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... für 10.000 in einem halben Jahr verkaufte STAR-WRITER PC 


Ja, Sie haben richtig gelesen, 
STAR-DIVISION hat in einem 
halben Jahr nach Markteinführung 
10.000 STAR-WRITER PC an 
zufriedene Anwender verkauft. 
Die vielen positiven Reaktionen 
der begeisterten Anwender, die uns 
angerufen und geschrieben haben, 
zeigen, daß STAR-DIVISION mit 
seinem Programm-Angebot und 
vor allen Dingen mit seiner Preis¬ 
politik genau richtig liegt; denn 
gute Programme müssen nicht 
teuer sein. Das zeigt der Preis von 
STAR-WRITER PC mit DM 398,-. 

Seit dem 1. März 1987 haben wir 
die STAR-WRITER PC Version 2.0 
auf den Markt gebracht. In dieser 
Programm-Version sind viele 
Anregungen der Anwender 
berücksichtigt worden. STAR- 
WRITER PC verfügt über eine 
neue Fußnotenverwaltung, arbeitet 
mit der HERCULES-Grafikkarte 
und es steht ein neues überarbeitetes 
Handbuch zur Verfügung. STAR- 
WRITER PC hat nun auch ein 
„Snapshot” Programm, mit dem 
Sie Grafiken aus anderen Program¬ 
men, z. B. LOTUS 123® oder 
MICROSOFT CHART® in den 
Text einbinden können. 


Selbstverständlich hat STAR- 
WRITER PC alle seine anderen 
Vorzüge, die so an ihm geschätzt 
werden, behalten. 

Ob Sie lieber mit der Maus, dem 
Pull-Down-Menue, Funktions¬ 
tasten oder mit Controll-Codes 
arbeiten, dieses Programm paßt 
sich Ihren Fähigkeiten Schritt für 
Schritt an. 

Anfänger oder Profi, STAR- 
WRITER PC hält bewiesener¬ 
maßen allen Ansprüchen stand. 



Bearbeiten Sie bis zu 7 Dokumente 
gleichzeitig auf Ihrem Bildschirm. 
Binden Sie Ihre Grafiken oder 
Fremdgrafiken in den Text ein. 
Erstellen Sie mit Text, Grafik und 
Adressen Ihre Serienbriefe. 

Das ist ja gerade das Besondere an 
STAR-WRITER PC: Sie verfügen 


mk STAR-WRITER PC über 
4 Pr ogram me in einem. Ein hervor¬ 
ragendes Textsystem, ein äußerst 
creatfves Grafikprogramm, eine 
perfekte Adressverwaltung und ein 
integriertes DFÜ-Programm mit 
Baudraten von 110 bis 9.600. 

Natürlich können Sie mit STAR- 
WRITER PC wie mit einem 
normalen Taschenrechner rechnen, 
übersichtlich selbstrechnende 
Formulare. Stichwort- und Inhalts¬ 
verzeichnisse erstellen. Sie ver¬ 
wenden Floskeltasten, Macro- 
funktion und können mit über 50 
verschiedenen Druckern durch die 
installierten Anpassungen arbeiten. 

Umfangreiche Hilfstexte auf dem 
Bildschirm unterstützen jeden 
Ihrer Arbeitsschritte unabhängig 
vom ausführlichen Handbuch. 
Holen Sie sich noch heute die neue, 
überarbeitete Version 2.0 von 
STAR-WRITER PC, dann gehören 
auch Sie zu der immer größer 
werdenden zufriedenen STAR- 
WRITER PC Gemeinde. 




STAR-WRITER PC 

Das Textsystem für alle IBM-Kompatiblen-Rechner und den Schneider PC! 


UELZENER STR. 12 ä« 
2120 LÜNEBURG äV 
FERNRUF (041 31) 402550 
TELEX 2 182 221 stard 






COUPON . \ 

Coupon bitte ausfüllen, ausschneidcn und an STAR-DIVISION schick ' 
Bitte schicken Sie mir 


□ 

□ 


kosienlos und unverbindlich 
Informationen über 
STAR-WRITER PC 

Bitte schicken Sic mir 
STAR-WRITER PC zum 
Preis von DM 398,— 


Name . 
F irma . 
Strasse. 


PLZ / Ort. 


Für Schneider PC und alle IBM-Kompatiblen-Rechner mit Monochrom- oder Gralikkan« J 

Alle Preise sind unverbindliche Prcisemptehlungen zzs) DM 10 .- für Perm und Verpackung ^ 




























Editorial—i 



Liebe Leser, 

aktuell über die Ereignisse im Computermarkt zu 
berichten, war und ist unser Ziel. Jede Ausgabe Ihrer 
PC Schneider International wird ausflihrlich geplant 
und steht einige Wochen vor ihrem Erscheinen in 
Form und Inhalt fest. Die Zeitspanne zwischen 
redaktioneller Fertigstellung und Erstverkaufstag wird 
von der Druckerei und dem Vertrieb in Anspruch 
genommen. Und das ist genau die Zeit, in der nichts 
mehr geht, aktuelle Meldungen müssen zwangsläufig 
auf die nächste Ausgabe verschoben werden. So kam 
es auch, daß die Schneider Computerdivision just 
während dieser Phase eine Pressekonferenz 
veranstaltete und dort neben neuen Computern auch 
ein neues Konzept vorstellte. 

Daß bei dieser Gelegenheit gleich eine komplett neue 
Produktserie mit dem PC 1640 - erstmals auch in 
EGA-Versio — präsentiert wurde, kam zwar nicht 
ganz unerwartet, doch ließ der relativ frühe Zeitpunkt 
vermuten, daß hier ganz gezielt auf die Nachfrage des 
Marktes, sprich der Anwender reagiert wurde. 

Schneider stellt mit der PC1640-Reihe erneut 
Flexibilität unter Beweis, welcher andere 
Computerhersteller kann dies auch von sich 
behaupten? Daß zwischen Ankündigung und 
Auslieferung nur etwa 3 — 4 Wochen liegen, beweist 
die konsequente Einstellung der Verantwortlichen, 
sich nicht in Wortschwallen und Wunschvorstellungen 
zu wälzen, die im Endeffekt nur den Markt 
verunsichern und somit auf das Käuferverhalten 
negativen Einfluß ausüben. 

Schneider bietet Produkte für ein vorhandenes 
Potential und kann diese Nachfrage auch befriedigen 
— der Kunde ist König! 


TOP 

- es gilt... 


Dies äußert sich auch in dem neuen Schneider- 
Konzept, neben der notwendigen Hardware auch das 
entsprechende Zubehör in Form von Soft- und 
Hardware und nicht zuletzt auch die wichtigen 
Service-Leistungen zu forcieren. 

Unter der Bezeichnung TOPline wird ein 
Systemverkauf angestrebt, der dem Anwender ein 
ausgereiftes Profi-Paket zur Verfügung stellt. 

Ein Blick auf die nun sehr umfangreiche Schneider- 
Produktpalette-vom CPC 464 über das Schreibsystem 
Joyce zum PC 1512 bis hin zum EGA-PC zeigt, daß 
Jur jedes Anwendungsgebiet eine adäquate Lösung 
angeboten werden kann. Die EGA-PCs zielen 
natürlich in den professionellen Markt und werden vor 
allem in Industrie und Handel ihre Abnehmer finden. 

Gute Nachrichten sind auch für die Besitzer und 
Interessenten der CPC-Serie zu vermelden. Das 
Kommunikationssystem BTX, dessen Zugang den 
CPC-Computem bislang verwehrt war, wird It. 
Schneider im Herbst in Form eines low-cost BTX- 
Decoders angeboten. Das in Kooperation mit Siemens 
und der Bundespost entstandene, steckbare Modul soll 
für unter DM 400, — angeboten werden — gute 
Aussichten für alle CPC-Anwender und BTX- 
Interessierten. 

Den ewig spekulierenden und Ungeduldigen sei an 
dieser Stelle verraten, daß zur Zeit in Türkheim 
intensiv über einen PC-ATnachgedacht wird, den 
viele schon im nun vorgestellten EGA-PC gesehen 
haben wollen. 

Zweifelsfrei besteht auch nach einem ATNachfrage; 
Schneider wird auch in diesem Falle wieder TOP sein. 
Wetten, daß.... ? 


Herzlichst Ihr 




Stefan Ritter, 
Chefredakteur 
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Eine Bitte an unsere Leser 


Die Rubrik »Leserbriefe« ist eine 
Einrichtung für alle Leser, die in 
irgendeiner Form Fragen, Pro¬ 
bleme oder Anregungen zu Pro¬ 
dukten, Programmierproblemen 
oder zu unserer Zeitschrift haben. 
Selbstverständlich sind wir be¬ 
müht, alle Leserfragen zu beant¬ 
worten. Doch haben Sie bitte 
Verständnis, daß wir nicht alle 
eingehenden Briefe persönlich 
beantworten können. Oft errei¬ 
chen uns mehrere Briefe zum 
gleichen Thema, einer davon 
wird dann stellvertretend für alle 
in unserer Zeitschrift beantwor¬ 
tet. Da auch wir nicht alle Fragen 
auf Anhieb beantworten können, 
müssen wir recherchieren. Und 


das dauert bekanntlich seine Zeit! 
Wir möchten hiermit alle PC-Le- 
ser noch einmal auf unseren Le¬ 
serservice hinweisen und bitten 
bei der Vielzahl der eingehenden 
Briefe um etwas Geduld. Für ei¬ 
lige Anfragen steht unsere Redak¬ 
tion jeden Mittwoch von 17 bis 20 
Uhr am »Heißen Draht« zur Ver¬ 
fügung. Vielen Dank für Ihr Ver¬ 
ständnis. 

Ihre PC-Redaktion 


PS: Die Redaktion behält sich 
vor, Leserzuschriften in ge¬ 
kürzter Form wiederzugeben. 


Ubertragungsfehler 

Ich darf Sie auf folgende 
»Übertragungs«fehler im 
Druck meines Leserbriefes 
(Heft 6/87) aufmerksam ma¬ 
chen, um deren Richtigstel¬ 
lung ich sie bitte: 

3030 erg(i)=FIX (num(i)J. 
ope(i)) 

3040 rest(i) =num(i)-erg(i)* 
ope(i): Ifrest(i) >: 0 OR num 
(i)=0 THEN GOSUB 4000: 
GOTO 3020 

Dirk Garnerus 
Bünde 

Red.: Hiermit geschehen. 

Antworten (Heft 5/87) 

Zum Leserbrief des Herrn 
Stiefel: Es könnte sein, daß Sie 
die Größe derRAM-Disk (z.B. 
mit dem NVR-Programm) so 
verkleinert haben,daß die Da¬ 
teien GEMSTART.BAT und 
COMMAND. COM nicht mehr 
in die RAM-Disk passen. Beim 
Laden von derblauen START- 
UP-Diskette wird versucht, 
diese beiden Dateien in die 
RAM-Disk zu speichern. Ver¬ 
größern Sie die RAM-Disk 
mittels des NVR(.EXE)-Pro- 
grammes auf die ursprüngli¬ 
che Größe von 34 KByte. 

Zum Leserbrief des Herrn 
Lettmann: Das Einladen von 
Kommas geht viel einfacher, 
wenn man den LINE INPUT- 
Befehl verwendet. Er interpre¬ 
tiert das Komma nämlich nicht 
als Trennzeichen. Speichern 
Sie die Zahl ganz normal in 
die sequenzielle Datei ab,be¬ 


nutzen Sie aber in der Einles- 
Routine anstelle des INPUT- 
Befehls den LINE INPUT-Be¬ 
fehl. 

Sebastian Zimmermann, 
Hamburg 


Schlechte Erfahrung 
mit Schneider-Disketten 

Ich habe schlechte Erfahrun¬ 
gen mit Schneider-Disketten in 
Verbindung mit meinem CPC 
464 mit DDI-1 und dem von 
Ihnen kürzlich abgedruckten 
Programm DFORM gemacht. 
Mehrere dieser Disketten wur¬ 
den,nachdem sie auf Exten- 
ded-Format formatiert wur¬ 
den, wieder gelöscht, so daß 
ein Read-Fail die Folge 
war,oder aber sämtliche Pro¬ 
gramme hatten plötzlich die 
doppelte Länge u.ä.. 

Ein Freund von mir hat die 
gleichen Erfahrungen ge¬ 
macht. 

Nachzutragen währe noch, 
daß mir dieses Mißgeschick 
mit MAXELL-Disketten nie 
passiert ist. Dort ist noch nie 
ein Fehler aufgetreten. 

Constantin Schaible 
Neuffen 


Noch mehr Bugs 

Nachdem ich ein etwas größe- 
resProgramm in BASIC2 ge¬ 
schrieben habe,kann ich die 
Liste der Bugs um ein paar 
Punkte erweitern: 

1. Ein kleiner Fehler, der im¬ 
mer wieder Spaß macht, er¬ 


gibt sich bei dem Versuch, 
dem Drucker ein CHR$(26) 
(z.B. als Tabulator) unter MS- 
DOS zu schicken. Es erscheint 
die Meldung: DISK IS FULL! 

2. Sehr ärgerlich waren mei¬ 
ne Erfahrungen mit den Funk¬ 
tionen UPPER$() und 
LOWER$(). 

Der Versuch, den Funkt ions¬ 
wert der Argumentvariable 
zuzuweisen (x$ = UPPERS 
(x$)) führt unweigerlich zu ei¬ 
ner Endlosschleife, bei der 
wirklich nichts mehr abgefragt 
wird. Auch die Kombination 
(x$+LOWERS hat mir 
so manchen Kaltstart einge¬ 
bracht. 

3. Sehr gefreut habe ich mich 
über die Möglichkeit der RE- 
CORD-Struktur, die vor allem 
bei Direktzugriffsdateien un¬ 
bedingt gebraucht wird. 
Aufgrund einer sehr unvoll¬ 
kommenen Stringverwaltung 
ist allerdings größte Vorsicht 
angebracht. Der String (z.B. 
pu$) muß auf jeden Fall mit 
der Gesamtlänge initialisiert 
werden, bevor die Struktur 
darübergelegt wird. Bei jeder 
Zuweisung ohne die Struktur 
geht die Stringverwaltung 
drauf, d.h. es kann z.B. kein 
vollständiger Dateisatz mehr 
damit geschrieben werden. 
Dabei gilt das Lesen aus einer 
Datei auch als Zuweisung. 
Die Kombination GET # 5, 
pu$:Put#5,pu$ fuhrt so zu 
reichlichen Datenverlusten. 
Ansonsten kann dieser Fehler 
mit WHOLE$()umgangen 
werden: GET # 5,pe$:pu$ = 
WHOLE$(pe$): PUT#5, 
pu$ , fuhrt zum gewünschten 
Ergebnis. 

4. Ein rätselhafter Rechenfeh¬ 
lerhat mich lange tief verun¬ 
sichert. Und zwar führt die 
Funktion TEXTCLEAR... auf 
einen Grafikbildschirm ange¬ 
wandt zwar zum gewünschten 
Ergebnis, zerstört aber für die 
nächsten Operationen die Fä¬ 
higkeit des Rechners, Gleit¬ 
kommazahlen zu verarbeiten. 
So führt das Programm: 
TEXT #2 CLEAR EOS 
x=2.5*x+30:?x 

zu: x=0! 

Zum Schluß noch eine Frage: 
Wer weiß, wie man ein 
BASIC2 Programm direkt 
vom DOS aus starten kann ? 
Martin Kallenbach, Rösrath 


Red.: BASIC2 Programme 
kann man nur von GEM aus 
starten. 


Tips und Fragen 

Erst einmal herzlichen Glück¬ 
wunsch nachträglich zu Eu¬ 
rem Jubiläum und auch be¬ 
sonders zu der Idee der Data- 
box für PC's. Die Databox 
4/87 war schon ein Hammer, 
denn gerade über die leidige 
Druckereinstellung mit 
BASIC2 habe ich mich geär¬ 
gert. Da kam das D ruckeru- 
tilliti gerade richtig. Jetzt aber 
zum eigendlichen Grund mei¬ 
nes Briefes. Ich möchte ein 
paarTips zum neuen PC (mit 
dem ich übrigens sehr zufrie¬ 
den bin) geben,aber auch ein 
paar Fragen stellen. So, und 
nun zu den Tips: 

1. Bedienung des Taschen¬ 
rechners unter GEM. Dieser 
Punkt wurde im Handbuch et¬ 
was kurz gefaßt. Die Bedie¬ 
nung mit der Maus ist etwas 
umständlich, deshalb die Zif¬ 
ferntasten im oberen Num- 
memblock verwenden. Die 
Rechenoperationen werden 
wie angezeigt eingegeben. 
Das +/— Vorzeichen liegt auf 
dem “/“-Querstrich. EC/ 
MC/M+/M-/C werden auch 
genauso eingegeben. 

2. Als ich unter GEM die von 
RPED.EXE (Editor) erstellten 
».BAK«-Dateien so gelöscht 
habe, indem ich alle auf ein¬ 
mal mit der Maus invertierte 
und dann löschte, erlebte ich 
eine böse Überraschung: 
GEM löschte auch Teile der 
Originaldateien, fugte Teile in 
andere Dateien mit gleichem 
Kürzel ein! Kaum zu glauben, 
aber wahr. Also lieber unter 
MS-DOS mit * bak löschen. 

3. Auch ist Vorsicht mit dem 
neuen MS-DOS Befehl »RE - 
COVER«, der zerstörte Sekto¬ 
ren auf der Diskette als solche 
kennzeichnen soll, geboten. 
Sind noch Dateien auf der 
Diskette enthalten, werden 
alle in aufsteigender Reihen¬ 
folge in 

FILE001. RFC, FILE002.REC 
usw. umbenannt. Es dauert 
ewig, bis man sie alle wieder¬ 
erkannt und umbenannt hat. 

4. Benennen Sie Ihre Dateien 
im GEM unter RPED.EXE 
auch nicht mit Umlauten. Das 
GEM-Menu »Eintrag-Aus- 
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wähl« kennt keine Umlaute 
und interpretiert diese als 
Pfeil-Zeichen (CHR$(27)). 
Dieses Zeichen ist aber als 
Laufwerks-Variable reser¬ 
viert, so daß hier aus einer 
Datei schnell ein Laufwerk 
wird. 

5. Die Piping-Befehle 
MORE, SORTfuhren meist zu 
einem Fehler. »Fehler in der 
Datenübertragung (PIPE)«. 
Dieser Fehler wird auch im 
Data-Becker Buch »Schneider 
PC für Einsteiger« nicht ge¬ 
löst. Es liegt einfach an dem 
freien Speicherplatz auf der 
Diskette. Er muß mindestens 
5000— 6000 Bytes betragen. 
MS-DOS legt nämlich bei ei¬ 
nem sortierten Inhaltsver¬ 
zeichnis zwei Dateien an, die 
man ganz einfach im oberen 
Teil des Directory erkennen 
kann. 

6. Startet man GEM von MS- 
DOS aus, besteht natürlich 
auch die Möglichkeit, Hard¬ 
copys mit Print-Screen zu er¬ 
stellen. Allerdings druckte 
mein DMP 3000 plötzlich in¬ 
vers. Könnte das an dem Gra¬ 
phics /R-Befehl liegen?Ich bit¬ 
te um Hilfe! 

7. Um auch Bilder, die ich mit 
BASIC2 erstellt habe, auf dem 
Drucker ausgehen zu können, 
habe ich versucht, mit dem 
Befehl OPEN DEVICE 31 die 
Datei »Metafilö.SYS« zu öff¬ 
nen. Leider wird vom GEM 
immer wieder GEM-FEHLER 
gemeldet. Scheinbar ist GEM 
nicht in der Lage, den META- 
Treiber anzusprechen. Dieser 
Treiber ist besonders interes¬ 
sant, weil man so BASIC2-BU- 
der mit dem GEM-Output aus¬ 
geben könnte. Ich bitte also 
auch hier um Hilfe. 

8. Hier noch eine kleine nütz¬ 
liche Batch-Datei unter MS- 
DOS: mit 

»copy con dirsort. bat 
dir ! sort! more 
Ctrl Z « 

kann man sich auf einfache 
Weise immer das sortierte In¬ 
haltsverzeichnis ausgeben las¬ 
sen. Aber auch hier muß man 
immer daran denken, 5—6000 
Bytes auf der Diskette frei zu 
haben. 

9. Und hier noch eine Frage: 
Wie kann ich die Schnapp¬ 
schuß-Funktion (Snapshot) 
auch unter BAS1C2 nutzen? 
Ich bekomme immer die Feh¬ 


lermeldung »zu wenig Spei¬ 
cherplatz«, obwohl ein GEM- 
Bild nie größer als 35000By¬ 
tes ist und macht geladenem 
GEM und BASIC2 eigendlich 
noch wesentlich mehr Spei¬ 
cherplatz zur Verfügung ste¬ 
hen müßte. 

So,ich hoffe, daß diese Tips 
den Schneider-PC Besitzern 
ein bischen weiter helfen und 
freue mich, wenn auch mir 
weiter geholfen werden kann. 

Andreas Morawietz, 
Otzenhausen 


Anpassung von Tasprint an 
den Seikosha SP-1000 CPC 

Leider arbeitet das Programm 
Tasprint nicht mit dem oben 
genannten Drucker zusam¬ 
men. Mir ist eine Anpassung 
gelungen, die ich gerne an an¬ 
dere CPC-User weitergeben 
möchte. Hier die Anweisun¬ 
gen dazu: 

Laden des BASIC-Laders: 
LOAD“TASPRINT 
Listen der Zeile 1290: 

LIST 1290 

Ändern Sie die folgenden Zei¬ 
len wie folgt: 

1290 DATA “Seikosha 
SP-1000 CPC“ 

1700 DATA “*1, “5“, “27“, 
“42“, “0“, "124“, “2“ 

1710DATA “*2“,“5“,“27“, 
“42“, “0“,“ 122“, “6“ 
Speichern Sie nun das Pro¬ 
gramm mit: SAVE “Tasprint 
Helga Hormel, 
Solms 


Ich möchte Sie 
um HILFE bitten. 

Man hat mir ein Panasonic JU 
465-5 Disk-Laufwerk mit 80 
Track, Double-Side, Double- 
Density und 1 Megabyte Spei¬ 
cherplatz geschenkt. Ich besit¬ 
ze aber einen CPC 6128 und 
brauche deshalb eine CP/M 
3.0 und eine CP/M 2.2 Anpas¬ 
sung, damit ich dieses Lauf¬ 
werk auch voll als B-Laufwerk 
mit 1 MByte nutzen kann. Wer 
könnte mir weiterhelfen, wo 
kann man eine solche Anpas¬ 
sung kaufen, gibt es Public- 
Domain-Soßware mit so ei¬ 
nem Programm, wer kann so 
etwas programmieren ???? 

Gerhard Kisler, 
Wien 


Druckfehler 

Ich mache mir die Mühe, das 
Listing MT8:8-Spur MIDI-Se- 
quenzer aus Heß 5/87abzutip¬ 
pen. Beim Starten des Pro¬ 
grammes erhielt ich die Mel¬ 
dung »Fehler in Zeile 2760«. 
Bitte drucken Sie die Zeile 
richtig ab. 

Andreas Schmidt, 
Waldbreitbach 

Red.: 

Da hat doch der Druckteufel 
wieder mal zugeschlagen. In 
dieser Zeile muß statt 
...,A0,EE,4,... 
...,A0,FE,4... heißen. 


DFORM für CPC 6128 

Ich möchte Ihnen hiermit mit¬ 
te ilen, daß das Programm 
DFORM (PC Schneider Inter¬ 
national 4 Seite 140) auch auf 
dem CPC 6128 läuft. Im Heft 
ist es nurfür den CPC464 ge¬ 
kennzeichnet. Mit dem neuen 
EXTENDED FORMAT stehen 
auf einer Diskette 426 statt 
356 KByte Speicherplatz zur 
Verfügung. Probleme können 
nach meiner bisherigen Erfah¬ 
rung höchstens mit dem Befehl 
SYMBOL AFTER aufireten, 
da HIMEM geändert wurde. 
»... bis zu 512k freien Spei¬ 
cherplatz ...« kann man in der 
Überschrifi lesen, jedoch läßt 
der Text nicht erkennen, was 
es mit den 512k auf sich hat. 
Es werden nur die 215k pro 
Seite genau erklärt. Ich hatte 
zwar nicht die Möglichkeit, 
das Programm auf dem CPC 
664 zu testen, kann mir aber 
durchaus vorstellen, daß es 
auch auf ihm läufi. 

Martin Knopp, 
Aindling 


Auskunft über Grafpad 3? 

Ich besitze einen Schneider 
Joyce Plus und suche nähere 
Informationen über die Sofi- 
ware Grafpad 3! Welcher Le¬ 
ser ist im Besitz dieser Softwa¬ 
re und kann mir einige Fragen 
dazu beantworten ? Ich bin von 
Beruf Technischer Zeichner 
(momentan studiere ich) und 
möchte diese Software beruf¬ 
lich einsetzen. 

Michael Matt, 
Aachen 


r 

— 

••• Augen aul beim Compuleikaul 

— 

PC 1512 PC MVISD • Laufwerk Monitor S/W 

139800 

FC 1512 PC MVIOD 1 LauSvcn« Monitor SW 

189800 

PC 1512 PC CMrSO 1 Uuhrerk Monitor Color 

189800 

PC 1512 PC C W0n 21 aulwerke Monitor Colo’ 

234900 

PC -512 PC MMIHD 70 WH Eesrpl. 1 1 sulw. Won SV7 2 99800 

PC 1512 PC CM/HD 20 MB Feslcl 1 Laulw. Mon Colpr 3 29800 

20 MB Fi'ecarö für PC 1512 und kompaiiole 

124900 

30 MB Filecard 19' PC 1512 und kompalWe 

133800 

20 MB Festplatte Seagaie mil Conlroller und KabelsaU 

79600 

FD 3 Zweillaulwerk Schneider PC 

■47800 

Specheraüfrüstk t ver 512 K aul 640 X 

79.00 

OMdschirmliller PC 1512 S/W und ferbmooilor 

69.00 

Schi:l?baiibe PC 15'2 lur alle Ärsionen 

4995 

Schneicci CPC 464 Keyboard 

279.00 

Schneider Monitor Gl 65 

198.00 

Schneider CPC 6123 im! Grünmamlot 

729 00 

Schneider CPC 612» ml' Farbmonitor 

123600 

Schneider CPC 6128 (Keytxwd) 

59900 


19800 


69800 

Roppy OH 1 rni! Conlroller 

49800 

Floppv FD 1 Zweiltaufwei« 

47600 

f 1 X Zwollaiifwcrk 5 25 Zoll 

758 00 

M1 X Zvieitlaulwerk 35 Zoll 

75600 

F1 XP.S Zweillaulwerk 5.25 Zoll 

65800 

Ml XRSZweit aulweik35Zoll 

85800 

Cumana 3 Zoll Zweitlautwerk 

39800 

Achlunq! Bille geben Sie ins unbeilirm Ihren Compulertyp an. Sie 

ersparen sxn und uns uunölice Bj-ctfragen 


Schneider PCW 0256 Joyce 

189800 

Schneider PCW 85>2 Joyce plus, wie PCW 8256 tedocli 

zusätzlich 1 WB Laulweik und 512 KB RAM 

229800 

I D 2 (2 Laulweik 1 MB für Joyce) 

82900 

3 Zoll Disketten CF 2 DD für Zweitlaulwerk Joyce 5 Stuck 98.00 

RAM Erweilerung «on 256 aul 512 K 

129 00 



3 Zoll Dir,keilen Panasonic!Maxen CE 2 5 Stock 49 00 

ah 10 Stock |e 890 ab 100 Stock je 850 

35 Zoll Diskellen Fuji 1 DD Kl Stock 69 95 

35 Zoll Disketten Fuji 2 DD 135 Ipi 10 Stück 79.95 

5 25 Zo; Diskelten DS ! DO Fuji 10 Stock 39 95 

Neiden MP 2 lur die Schneid« CPC 66416128 

15300 

Voile« VHF Modulator liu gestochen scharte Bilder 

29800 

RAM Erweiterungen der Fa Voie> 


erhebliche Preissenkung 1 a Quakal 


RAM trwe terung SP 756 

29800 

RAM Erweiterung SR512 bille immer Comcutertyc angehen/SROO 

RAM Erwsiterungssav um 256 KByte 

9800 

Bildschirmliller lüt GT 64/65 


Bildschrrmlillei lü' Faibmonilor CTM 644 

4900 

Monilo' DrehluO Neiaungswinkel slutenlos einstellbar 

3995 

Vbrtängerungskabel 15 meler lür CPC -164 

2995 

Clo für CPC 66-116128 

3495 

Slaubschtjl/hatjben aus weichem Ktinsltcdei. (Schneidcrqiaul 

dir Keydte'd 464/664/6128, NLQ 401, DD11. 


Morilor GrtiniFarbe 

ie '995 

Schulzhauben lür Vortex F-1 S! F1 D, F-1 X i M1 X 

ie '935 

Druckei Panasonic 1080/90791/92.0MP 2000 

ie 19.95 

Schulzhauben Rauchglas lur Konsole CPC 454/66416178 e 24 95 

RS 232 C seuelle SchriUstelle CPC 464(664 

14800 

AKüSlikkoppler Dalapbon S 21 d 

24900 

Akustikkoppler Daiaphori S 23 d lur 1200 Baud 

369 00 

AMX Maas Schwäre und deutsches 'landbuch 


Formularliaklor zu Drucker f.LQ 401 

6995 

Jc*vsl:ck Quickshol II mi! Aulofke 

•795 

Compelitinn Pro 5000 mil Mikroschalter 

3995 

Juyslick Adauler zum Anschluß von 2 Siuck Joyslicks 

1995 

Disleltenbo« 40Sl 3 bzw. 35 Zoll Disketten 'a Dualla 

3995 

wie oben jecoch hir 40 Sl 5 25 Zoll Disketten 

4995 

Diskeltetibux toi 100 Sl 525 Zoll Disketten mit Schloß 

2495 


Epson LX 808 180 ZcichcnlSeKunde 64300 

Epson EX 800 240 Zeiclien/Sekuriüe 109800 

Epson FX-1000 940 7eichen/Sekimde Bmil 144900 

rpson LQ 800 200 /eichenfSekiiröc 24 Nadeln 169500 
Epson 101000 300 ZeichenlSekunde 24 Nadeln 2193.00 
Epson 10 2500 320 Mchenßekunoe 24 Nadeln Bre i 294900 
Epson EX 800 300 ZeichenlSekunde 149800 

Epson EX 1000 300 Ze chenlSekunde Breil 199800 

Coloui Einbau Sei Wr EX 8001 1000 22900 

Epson Hl 60 4 Färb Ploiter 1298.00 


Panasonic B61 BO ZerevmSettin* 
Pioavhi« BOI 120 ZeichatiSekuntfe 
Panisomc M9? »90 AudwmSeMjnde 


598.00 

74900 

1096.00 


NFCP6 200 7eKfeiVSekuKle itaoUl Sp4H 139BOO 

NEC P 6 Colc* 200 /ekheiVSckteide Brei «00 

NEC P 7 MOZeicteiVSekterieBre« 1993.00 

Sty NIB120 ZocheniSrtunde nur Deutsene Gerate 798.00 
Slar NG10 120 ?eiclwnlSe*amrtr 793.00 

M I?"/• r vV-lr. i-> H • ii 124800 

EWSÄMaBaWuO NI WIE 10 26900 

OruclwaiKCIvußMMI CPC 464864 3995 

diln CPC 8128 IkhImkIiJi“, RundWt*.! geschunl 3955 

Oaekersunae 1a Quakte! VWWorm 9S00 

/’ I-I iir-:--. M'-’- 3895 

FnOtospap«! »mB XUJopedonitmn 300 BIM 7395 

dilo l(B0 Stell 3495 2000 Blau 4995 

Fhatitarttenm* für m Druck« ab Laser Mutter 

Allo Geräte mil FTZ und deutschem Haniilur.h 

Erpressers*« wer *t in » Sctenz un nacn Osenach. ertxn 
de »twekluig der EtaMung 

Bestehen S« uns mal in Raitnsburg. «lefonrsdie Anmeldung te 
erUMcM 

MrsandtreOmgungen imertet) »SlOtei Nachnahme wugich 
Parto auch bei Vorrasse Portr, eimoctvwn sonst Versand untrer"' 
GmchSteJiilon. Mtnlag Ns Freitag «an 900 - 12 00 
und win 1400 1600 MfllvrocnnaOiiiuteg geschlossen! 
Samstags 800 1300 lern langer Samstag 

Ste finden uns im Schuhteus Mayer nn 2 Stock 

Bachslr. 52 07380Ravensburg. -«Selon0751 / 26138 
CSE etedronte Schaubes 




schauties 

electronic bauelemente 
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Nochmal Grafpad 3! 

Ich habe seit 5 Monaten ein 
Grajpad3 zum Joyce. Bisher 
ist es mir nicht gelungen, auf 
der Symbol-Menu-Leiste und 
auf dem Symbolfeld des Graf¬ 
pad einzelne Symbole abzu- 
speichem und wieder aufzuru¬ 
fen. Das mir gelieferte Hand¬ 
buch gibt hierzu keine Aus¬ 
kunft. Wer hat bessere 
Erfahrungen, und kann mir 
diese mitteilen ? 

Günter Flemisch, 
Memmingen 


Systemabsturz bei 
Verwendung 

der GEM-PAINT-Diskette. 

Bei meinem kürzlich erstande¬ 
nen Schneider PC 1512 ist fol¬ 
gendes Problem auf getreten: 
Beim Versuch, Bilder mit Hil¬ 
fe der GEM-PAINT-Diskette 
an den Drucker auszugeben, 
stürzt der Rechner regelmäßig 
ab. Dies geschieht nach Off¬ 
nen des Datei-Menus, wenn 
ich die Option »An Ausgabe« 
anwähle (Handbuch S.227 
ff.). Auf dem Bildschirm er¬ 
scheint kurz darauf das Fen¬ 
ster »Ausgabe Starten« mit der 
Option »Drucker«. Ab diesem 
Moment ist der Cursor nicht 
mehr zu bewegen, das Lauf¬ 
werk bleibt nicht stehen und 
der Rechner muß erst einmal 
ausgeschaltet werden. 
Nachdem ich den Fehler zu¬ 
erst bei mir selbst gesucht hat¬ 
te (evtl, die falschen Dateien 
auf die GEM-PAINT-Disk ko¬ 
piert), nach der Erstellung 
mehrerer GEM-PAINT-Dis- 
ketten unter GEM und MS- 
DOS und nach Umtausch der 
Systemsoftware, trat der Feh¬ 
ler weiterhin auf. Wer kann 
mir helfen ? 

Hans Joachim Riel, 
Schwalmstadt 


Programme schreiben und 
ASCII-Dateien bearbeiten 
mit LOCOSCRIPT 

Freunde, wenn man Loco- 
Script-Texte in ASCII-Dateien 
umwandelt und umgekehrt, 
gibt es bekanntlich Schwierig¬ 
keiten mit den Umlauten. 
Wenn man nun Programme 
mit LocoScript schreiben 


möchte, empfiehlt es sich, 
gleich die Korrespondenzzei¬ 
chen für die Umlaute einzuset¬ 
zen. Das Programm braucht 
dann nach der Umwandlung 
nicht mehr überarbeitet 
werden. 

Die Zeichen sind: 
groß Ö = Extra + t, 
klein ö — Extra + ö, 
groß Ä = Alt + Ä, 
klein ä = Shift + Alt + ä, 
groß Ü = Alt + Ü, 
klein ü = Shift + Alt + ü, 
ß = Extra + 9 
Bei der Umwandlung von AS¬ 
CII-Dateien, z.B. um die 
DBase-Help-Datei unter Lo¬ 
coScript auszudrucken — was 
komfortabler, aber ein wenig 
zeitaufwendig geht, kann man 
über die ERSetze-Funktion 
nacheinander die Zeichen au¬ 
tomatisch korrigieren lassen. 
Vorher schreibt man mit dem 
f7-Modus die Datei in eine Lo- 
coScript-Datei. Übrigens geht 
das Ersetzen bei längeren Tex¬ 
ten schneller, wenn man je¬ 
weils die Bearbeitung been¬ 
det, und die Datei neu zur Be¬ 
arbeitung anfordert. Im ande¬ 
ren Fall muß erst der ganze 
Text zurückrollen. Es ginge 
einfacher, wenn man mehrere 
Zeichen gleichzeitig ersetzen 
könnte. 

Bruno Melchert, 
Köln 


Datenübertragung 
CPC 464 — PC 1512 
PC 1522 - CPC 464 

Benötigte Hardware: 

Serielle Schnittstelle für CPC 
464 Verbindungskabel zwi¬ 
schen CPC-Schnittstelle und 
serieller PC-Schnittstelle (sel¬ 
ber gelötet nach dem Schalt¬ 
bild in der Beschreibung zur 
Schnittstelle zum CPC, selbst 
für einen technischen Grün¬ 
schnabel wie mich kein Pro¬ 
blem). 

Benötigte Software: 
Terminal-Programm mit den 
Funktionen »Upload« und 
» Download« Public-Do- 
main-Programm »PRO- 
COMM« (Copyright 1985 PIL 
Software Systems Bruce Bar¬ 
ke low & Tom Smith). 

Alles funktioniert einwandfrei! 
Dies müßte auch auf den an¬ 
deren CPC-Modellen laufen. 
Detlev Uhlenbrock, 
Münster- Wolbeck 


Leserbrief aus Heft 6/87 
Aufstieg vom CPC auf den 
PC mit Daten 

Red.: 

Versehentlich wurden zwei 
Zeilen im Text nicht mit abge¬ 
druckt. Hier der vollständige 
Absatz: 

Durchführung: Das Listing 1 
mit LOAD in den CPC laden, 
Datendiskette in den CPC 
stecken, 160k CP/M-Disk in 
das 5 1/4 Zweitlaufwerk. 
Starten mit RUN. Anschlie¬ 
ßend die 160k CP/M-Disk im 
PC mit DOS PLUS und 
COPY auf eine Diskette in 
ganz normalem MS DOS For¬ 
mat umkopieren. 


Aufstieg vom JOYCE auf 
den PC mit Daten? 

Auch vom JOYCE kann man 
problemlos auf den PC um¬ 
steigen. Der JOYCE erzeugt 
nämlich Disketten im CP/M 
86 Format, einseitig mit 40 
Spuren, im eingebauten 3 
Zoll-Erstlaufwerk. Das Direc¬ 
tory befindet sich in den ersten 
vier Sektoren der Spur 1! Die¬ 
se Disketten könnte der PC 
1512 lesen, wenn er 3 Zoll- 
Disketten lesen könnte. Also 
besteht das Problem nur im 
umkopieren der Disketten auf 
51/4 Zoll-Disketten. 

Dazu wird benötigt: 
Hardware: 

a) JOYCE mit 5 1/4“ Zweit¬ 
laufwerk (40 Spuren), 

PC 1512 mit Zweitlaufwerk 
oder Festplatte, oder: 

b) JOYCE und CPC 6128 mit 
51 /4“Zweitlaufwerk (40Spu¬ 
ren), PC 1512 mit Zweitlauf¬ 
werk oder Festplatte. 
Software: 

a) keine (? evtl, wie bei b) 

b) Kopierprogramm, das be¬ 
liebige Formatierungen ko¬ 
piert (1:1). 

Vorbereitung: 

Die Daten werden im JOYCE 
mit PIP auf eine im CP5M Sy¬ 
stemformat frisch formatierte 
3 “ Diskette umkopiert, damit 
alles schön hintereinander ist. 

Durchführung: 

a) Umkopieren auf die 5 1/4“ 
Disk. 

b) In einem CPC 6128 vom 3“ 
Erstlaufwerk mit dem Kopier¬ 


programm auf das 5 1/4“ 
Zweitlaufwerk übertragen. 
Anschließend die 51/4“ Disk 
im PC mit DOS PLUS und 
COPY auf eine Diskette im 
ganz normalen MS-DOS-For- 
mat umkopieren. 

Hinweise: 

Evtl, müssen Dateien überar¬ 
beitet werden, da die deut¬ 
schen Umlaute anders auf 
dem Bildschirm erscheinen. 
Einfach überschreiben. 
Randbemerkung: 

Die vom JOYCE erzeugten 
Disketten kann der CPC 6128 
nicht lesen. Mit den beiden Li- 
stings von W. Wantia aus dem 
Artikel »Programme im IBM- 
Forrnat « auf dem CPC mit 
dem Kopierprogramm auf das 
5 1/4 “ Zweitlaufwerk über¬ 
tragen. 

Dieter Zwinger M.A. 

Darmstadt 


BASIC2 Probleme 

BASIC2 ist leider nicht ganz 
perfekt. Ebenso wie die, mei¬ 
ner Meinung nach wichtigen 
Befehle PEEK und POKE, hat 
man bei BASIC2 nicht die 
Möglichkeit Programme ein¬ 
zuladen - ob mit oder ohne 
einen Autostart — wie man es 
von GW-BASIC oder CPC- 
BASIC gewohnt ist. Man kann 
von GEM-Desktop aus durch 
anklicken von BASIC2-Pro- 
grammen einen »Pseudo-Au¬ 
tostart« durchßhren. Ebenso 
besteht unter BASIC2 die 
Chance, wiederum durch an¬ 
klicken einer Menuezeile, ein 
Programm zu laden. Die um¬ 
fangreichen Funktionen 
CHAIN bzw. COMMON sind 
ebenfalls nicht im Befehlssatz 
des Interpreters enthalten. 
Durch einen kleinen Trick 
kann man aber den vom CPC- 
BASIC her bekannten, etwas 
weniger leistungsstarken Be¬ 
fehl MERGE simmulieren. Da 
es sich bei den BASIC2-Pro- 
grammen um reine ASCII-Da¬ 
teien handelt. Zum einen geht 
das unter BASIC2, zum ande¬ 
ren unter DOS-Ebene. 

Zwei Dateien können Sie mit 
COPY datl + dat2 
unter DOS zusammenfügen. 
Unter BASIC2 sieht das Pro¬ 
gramm hierfür wie folgt aus: 
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OPEN ttstreaml APPEND datJ$ 
OPEN # stream2 INPUT dat2$ 
WHILE NOT EOF (#stream2) 
LINE INPUT #stream2,a$ 
PRINT #stream,a$ 

WEND 

CLOSE #streaml 
CLOSE #stream2 

Ich hoffe. Ihnen hiermit etwas 
geholfen zu haben. 

Christian Eißner 


Zum MASTERPIECE* 
Leserbrief 6/87 

Tatsächlich ist es so, daß es 
einen erstaunlich einfachen 
Weg gibt, »listgeschützte« JO- 
YCE-Programme in unge¬ 
schützte umzuwandeln. Dies 
funktioniert, weil das JOYCE- 
BASIC hier einen Fehler hat, 
der sich ausnahmsweise ein¬ 
mal angenehm bemerkbar 
macht. Da unsere Program¬ 
mierer naturgemäß nicht alles 
wissen können, wir anderer¬ 
seits auch nicht auf »Bauern¬ 
fang« aus sind, haben wir den 
Vertrieb des Programmes 
längst eingestellt. Weil es sich 
bei MASTERPIECE jedoch 
um eine programmtechnisch 
interessante Lösung handelt, 
kann jeder interessierte Leser 
gegen Einsendung einer Leer¬ 
diskette und Rückporto das 
Programm kostenlos bei uns 
erhalten. 

R. Knirk & S. Fonti 
Sonnenstr. 43 

52 70 Gummersbach 


Nachtrag zu »Profi RSX« 

Gleich in der ersten Folge un¬ 
serer Serie »Profi RSX« (Heft 
6/87) sind uns zwei Fehler un¬ 
terlaufen, die wir hiermit be¬ 
richtigen. 

In der Befehlsliste wurde der 
Befehl Nr. 15 ganz weggelas¬ 
sen und beim Befehlt Nr. 11 
die Nummer nicht vermerkt. 
Die Nr. 11 gehört zum Befehl 
“I A. VIELECK X“. 

Und hier der Befehl Nr. 15: 
15. I OR (““) 

Zum zweiten Fehler: 

Leider hat der Autor sowohl 
im Text, als auch im BASIC- 
Ladeprogramm vergessen, 
daß vordem Starten des Lade¬ 
programmes die BASIC-Spei- 
cherobergrenze durch 
MEMORY&9fa0-l 
herabgesetzt werden muß. Aus 
diesem Grund ist auch kein 
Autostart von der Databox 
möglich. 

In Teil 3 der Profi-RSX-Serie, 
die im letzten Heft erschien, 
wurde versehentlich ein As- 
sembler-Beispiellisting nicht 
mit abgedruckt. Dieses Listing 
tragen wir hiermit nach. 


Berichtigung zum Listing 
»ORAKEL« (Heft 7/87) 

Leider sind uns im Listing 
»ORAKEL« auf Seite 132 vier 
Fehler unterlaufen. 

Hier die nicht abzutippenden 
Zeilen: 
z 

= weiter “ 


= Vorjahr“; 
o 

Sie stehen im Listing zwischen 
folgenden Zeilen: 

1270:1280: 

1420: 1430: und 
1830:1840: 

Sie sind im übrigen leicht an 
der eingerückten Checksumme 
zu erkennen. 

Und hier noch die Zeile 1520 
vollständig: 

1520 LOCATE 1,1: PRINT 00 
1520 LOCATE 1,1: PRINT"der ein¬ 
gegebene";sg$; "-Preispro kWh ist"; 
■.LOCATE 17,2:PEN2:PRIN1'“DM“ 
;sgp; .LOCATE 11,4:PRINT“ 
r = richtigf=falsch “;:GOSUB 4080 
Bei dieser Gelegenheit haben 
wir noch die traurige Pflicht, 
Sie darauf aufmerksam zu ma¬ 
chen, daß uns bei der Be¬ 
schreibung zum Angleichen 
des Spiels »Mensch ärgere 
dich nicht« (Heft 4/87) an die 
CPC’s 664/6128 auch ein 
paar Fehler unterlaufen sind. 
Hier sind sie im einzelnen: In 
Listing 3 sind die zu ändern¬ 
den Pokes nicht in den Zeilen 
1400 und 1520 sondern in 
1480 und 1520. Außer in den 
Zeilen 1610 und 1620 muß 
auch in Zeile 1630 und in Li¬ 
sting 2 in den Zeilen 360 und 
370 die CALLs durch FILL- 
Befehle ersetzt werden. 
Obwohl wir von der Redaktion 
uns natürlich nach Kräften be¬ 
mühen, passieren solche Feh¬ 
ler sowohl durch menschli¬ 
ches, als auch technisches 
Versagen immer wieder. 
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30 




50 

; Routine zun Bestimmen der Adresse eines RSX-Befehle 

70 

; 



90 

-, f uer 

alle Sehneider/Amstrad Colour Personal Computer 

110 

; 



130 

; 

by Klaus Kremer 12/1996 


150 

i 



190 

1 



210 

FISDCO: EQÜ #BCD4 

;KL FIHD COMKAMD 

230 




250 

A BEFB: DEFH "BEFEHLSWAM" 

;Befehlsnamen absoelchern 

270 


DEFB "E"+#60 

;Bit 7 des letzxen Zeichens muss gesetzt 

sein! 




290 




310 

; hier kann irgendeine Routine 

stehen 

330 




350 




370 


LD HL,A BEFEHL 

;Adresse des Befehls nach HL 

390 




410 


CALL FIHDCOXHAHD 

; KL FIHD COHKAND nufrufen 

430 




450 


RET MC 

j nicht, gefunden? >Routine abbrecher. 

470 




490 




510 

; in ’ 

C' : ROH-Auswahladresse 


530 




550 

; in ' 

TL' : Adresse der Routine 


570 




590 

;ausserdem: A, B, DE zerstoert 


610 




030 

; Sie 

soennen die Adresse des Befehls Zwischenspeichern 

650 




670 

; oder 

die Routine direkt anspr 

ngen 

690 




710 

; z B 

alt >JP (HLX. 


730 




750 

i Ende 

des Beispiels - 



elektro GmbH 

Delsterner Straße 23 
5800 Hagen 1 
Telefon 0 2331/7 26 08 


Jetzt lieferbar: 


Herculesaufrüsfkit für Schneider PC 1512 


MM 720x348 Bildpunkte 

348,- 

DM 

Schneider PC 1512 MM/SD 

1499,- 

DM 

Schneider PC 1512 CM/SD 

1999,- 

DM 

Schneider PC 1512 MM/DD 

1999,- 

DM 

Schneider PC 1512 CM/DO 

2499,- 

DM 

Schneider PC 1512 MM/SO 

2649,- 

DM 

mH 30 MB Harddisk 



Schneider PC 1512 CM/SD 

3149,- 

DM 

mH 30 MB Harddisk 



Scnneidr DMP 3000 

648, 

DM 

Schneider DMP 4000 lür DIN A3 

999,- 

■DM 

Schneider CPC 464 

ab 398- 

■ DM 

Schneider Monochrom Monitor GT 65 

199,- 

■ DM 

Schneide' tebmonitor CTM 614 

699- 

•DM 

Schneider Modulator MP 2 

99- 

UM 

Schneider CPC 6128 mrt GT 65 

799- 

OM 

Schneider CPC 6128 mrt CTM 614 

1299- 

■ DM 

PC-Softwara 



Räumen Sie Ihre Festplatte auf, mit: 



Disk Oplirrizer 

199- 

OM 


Sie müssen mehrere Programme zur 
gleichen Zeit zur Verfügung haben? 

Wechseln Sie aus dem laufenden Pro¬ 
gramm ln ein anderes, das gerade benö¬ 
tigt wird. Bis zu 10 Programme In Sekun¬ 
denschnelle ansprechbar. 

Kein Problem! Wozu gibt es: 

Software Carousel '99— 0M 


Barkauf-Mietkauf 

Zielkauf 

Leasing für den gewerblichen Anwender 
nur In unserem Ladengeschäft möglich. 

Alle Produkte der Schneider-Computer- 
Division lieferbar. 

Drucker verschiedener Hersteller 
Ausgesuchte Software tür alle Schneider Com¬ 
puter 

24 Stunden Versand-Service 


TOPANGEBOTE 


3“-Disketten. 
10er Pack 


Maxell CF 2 DM 69,- 

PEGASYS CF 2 DD 
mit Klarsichtbox 
+ Label DM 85, - 



Festplatten für PC 1512 


PEGASYS 20 MByte, 3,5"-Festplatte 
nur 11 Walt Stromaufnahme, Inkl Controller, 
paßt ohne Umbau 

in jeden 5,25"-Schacht DM1098,— 

PEGASYS 20 MByte, 

3,5"-Festplattenkarte 

über einen Expansions- 

port einsteckbar DM1149,— 


Zubehör 


PEGASYS-Diskettenbox FG50L 

für ca 50 Stück 3''-oder 
3.5"-Disketten, mit Schloß und 
Ersatzschlüssel, tragbar DM 15,90 

PEGASYS-Monitorständer 
schwenk-, dreh- und kippbar DM 35, — 

Bildschirmfilter 

CTM 464/664 DM 34, - 

CT 64/65 DM 29,- 


0er Vfcisand eilolgl pei ffjclinalime zurligüchc Vfeisawlkoslen 
Handle ranf ragen erwünechtMl 

Alle ursere Artikel sind aucr» im guten Fachhandel 
int) m Kauihausen erhältlich 


Göddeker Computer 
und Zubehör GmbH 

HWisriflr» OUMUiron?« 1UDUN) 
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Fehler in dem 
Sonderheft Nr.: 4 

In meinem Leserbrief, der in 
Heft 6/87 ab gedruckt wurde 
und sich auf einen Fehler in 
dem Programm TURBO- 
MENU, welches auf Seite 70 
des Sonderheftes Nr.: 4 abge¬ 
druckt ist, bezieht, hat leider- 
der Druckfehlerteufel zuge¬ 
schlagen. 

Und zwar hat er in den Zeilen 
79 und 80 sein Amt ausge- 
fiihrt. Deshalb bitte ich die Le¬ 
ser von PC Schneider Interna¬ 
tional, den Schluß des Pro¬ 
grammes TURBO-MENU 
nochmals mit den nachfolgen¬ 
den Zeilen zu vergleichen und 
es zu ändern. 

27: fname : STRING [13]; 


77: END; 

78: CLRSCR; 

79: fname: = COPY(ruime(i],l, 

POSC '.name [i])-l) + 

COM 

80: IFfname — COM' TH ENfname: = 
(COPY(name [i], 1,8) + '.COM'): 
81: ASSIGN(dalei,fname): 

82: EXECUTE(dalei); 

83: END. 


3D-PL0T auf Databox 

Nachdem ich die bei Ihnen be¬ 
stellte Diskette 1 der Databox 
des Sonderheftes Nr. 4 erhielt, 
mußte ich feststellen, daß das 
Programm »3D-PLOT« auf 
dem CPC 464 ohne »Emula¬ 
tor« nicht läuft. 

Um es an den CPC 464 anzu¬ 
passen, muß man folgende 
Zeilen ändern: 

200 : FILL 2 und GRAPHICS löschen. 
1980: GRAPHICS PEN 2 löschen. 

1990: DRA WR 470,0 zu DRA WR 
470.0,1 ergänzen. 

Holge r Kroth, 
Berlin 


CONTEXT-ERGÄNZUNG 

Da ich nach der CONTEXT- 
Ergänzung aus Heft 5/86 
Schwierigkeiten mit der String¬ 
eingabe hatte, habe ich den 
Kalenderprogrammteil aus 
dem CONTEXT-Programm 
gelöscht und durch eine 
Laufwerks- und USER- Wahl¬ 
möglichkeit ersetzt. Durch 


RETURN kann nun in der 5. 
Zeile des Hauptmenues zwi¬ 
schen Laufwerk A und B ge¬ 
wählt werden. Durch Cursor 
rechts kann die USER-Wahl- 
möglichkeit angesprungen 
werden. Danach kann durch 
Cursor up bzw. down die 
User-Nummer verändert wer¬ 
den. Durch den Rücksprung in 
die Hauptwahlspalte mit Cur¬ 
sor links wird die entsprechen¬ 
de User-Nummer eingestellt. 

Die Änderungen gelten für ei¬ 
nen CPC 6128 in Verbindung 
mit einer Vortex-Floppy. 
Ohne diese ist der Befehl 
XSELECT, < string > durch 
I USER, < ganzzahliger 
Ausdruck > 

zu ersetzen. 

Die Programmänderungen: 

Zeilen 1020 — 1260 löschen. 

182 XSELECT, “1 ":lw$ = “B “:u = 1 
200 DATA Schreiben,Laden, 
Speichern, Löschen, 

“L: U“,Ende 

365 GOSUB 1040-.GOSUB 1120 
525 IF (y=14AND i=4)THEN 
GOSUB 1050:GOTO 520 
590 IF y= 14THEN CLS.PEN I: 

XSELECT, “0 “:END 
610 IF y = 12 THEN GOSUB 
1030: GOTO 520 
1020 'LAUFWERK & USER 
1030 IF lw$= “A “ THEN ly:$ 

= "B":XB: 

GOSUB 1040:RETURN ELSE 
lw$ = “A “: 

XA.GOSUB 1040: RETURN 
1040 PEN2-.LOCATE 6,12 
:PRINT lw$: RETURN 
1050 x=8:y-12 
1060 GOSUB 2170 
1070 IFi=l THEN u=u +1:1F 
u>15 THENu=0 
1080 IFi=2 THEN u=u-l:lF 
u<0 THENu=15 
1090 GOSUB 1120 
1100 IF i<> 3 THEN 
GOTO 1060 
1110 XSELECT,STR$(u) 

■.LOCATE 8,12: PEN 1: 
PRINT ":x=2:RETURN 
1120 PEN 2 :LOCATE 11,12.PRINT 
USING “# # “;u 
.-RETURN 

Thomas Beckmann, 
Berlin 


Knack die Nuss 

Im Juni-Heft von PC Schnei¬ 
der International stieß ich auf 
einen Leserbrief zum Rätsel 
»Knack die Nuß«. 


Ich kenne die Aufgabenstel¬ 
lung nicht, vermute aber, daß 
eine Anzahl Goldstücke im Be¬ 
reich 5E5 ... 2E9 gesucht 
wird, die sich sowohl quadra¬ 
tisch als auch dreieckförmig 
auslegen läßt. Eine Analyse 
des Problems führte zu folgen¬ 
dem kleinen Programm, das 
ohne zeitraubendes Wurzelzie¬ 
hen auskommt und die Lösun¬ 
gen auf dem CPC 6128 in 6 (!) 
Sekunden findet. 

10 am=SQR (SQR (2E+09)) 
20b--l:a = l 
30 b=b+2:bz=b*b 
40 df=bz-2*a*a 
50 IF ABS (dfi = l THEN 
r=a*b:s = r*r: z-bz- 
(df+l)/2:PRINTs,r,z 
:GOTO 30 

60 IF df<0 GOTO 30 
70a—a + I:IFa<am GOTO 
40 

80 END 

Hans-Jörg Rieken, 
Braunschweig 


CPC 464 als 
Schreibmaschine 

Mit diesem Programm (Li- 
sting 1) kann auf dem Monitor 
ein Text Zeilenweise geschrie¬ 
ben und geändert werden, der 
nach drücken der ENTER-Ta- 
ste in NLQ ausgedruckt wird. 

Vordem Programmstart sollte 
der Drucker eingeschaltet 
werden. Eine Änderung der 
Tastenbelegung erfolgt nicht. 

Norbert Button, 
Bremen 


Computer-Chinesisch 

Ich möchte gerne mal etwas in 
Richtung der Programmierer 
los werden. Auf vielen Messen 
(z.B. CEBIT) ist mir aufgefal¬ 
len, daß vermehrt bei der Pro¬ 
grammierung auf den späte¬ 
ren Benutzer Rücksicht ge¬ 
nommen wird. Das soll bedeu¬ 
ten, daß ein gutes Software¬ 
haus aufseinen Programmen 
sitzenbleibt, wenn die Bedie¬ 
nerebenen nicht einfach in ih¬ 
rer Handhabung sind. Oder 
gar der Benutzer mit unver¬ 
ständlichen Kürzeln oder mit 
»zwei Dreifingergriffen« ar¬ 
beiten muß. 

Ebenso wird hier in Deutsch¬ 
land deutsch gesprochen. Ein 
Kunde kann nicht erst einen 
Crash-Kurs Englisch belegen, 
um ein technisch geschriebe¬ 
nes Handbuch entziffern zu 
können. 

Eine Unart ist es auch, mas¬ 
senweise Amerikanismen zu 
einem sogenannten »Compu¬ 
terchinesisch « zusammenzu¬ 
brauen. Ich habe gerade bei 
Computermessen hinter die¬ 
sem Computerchinesisch eine 
klassische und manchmal 
sehr, sehr dünne Halbbildung 
bei den entsprechenden Leu¬ 
ten vorgefunden. Wirkliche 
Fachleute aus der Branche 
und besonders bei Program¬ 
mierern können einem 
schwach vorgebildeten Laien 
dessen Probleme in einfachen, 
deutschen Worten erklären. 
Der Home- oder Personal¬ 
computer des Ende 8ten-Jahr¬ 
zehnts ist meiner Meinung 


Listing 1 _ 

10 REM SCHREIBMASCHINE V3 
20 REM von Norbert Button 
30 REM 

40 CLS:M0DE 2:B0RDER 15 
50 PRINT#8,CHR$(27);"x”;CHR$(l> 

60 LOCATE 27,2:PRINT"CPC ALS SCHREIBMASCHINE" 

70 PLOT 208,366:DRAWR 216,0 
80 LOCATE 15,4 

90 PRINT"Der Text wird geschrieben, wenn ENTER ged 
rueckt wird" 

100 PRINT:PRINT” Zeile";TAB (37);"T e x t" 

110 PLOT 1,302:DRAW 640,302 

120 '--— 

130 i=l 

140 WINDOW #2,1,80,8,24 
150 n=i 

160 PRINT#2," ";i 

170 IF i>17 THEN n=17 ELSE n=i 

180 LOCATE #2,7,n:LINE INPUT #2,"";text$ 

190 PRINT#8,text$ 

200 i=i+l 
210 GOTO 150 
220 END 
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Hier «Blne Version: 

<10> 10 PRIIT ‘LOCOSCRIPT I I 0 El. by ROGBR VBIBAI* 

<25> 20 PBirr ‘aus. de» engl. Heft -8000 PLUS”, Juat 1987' 

<55> 30 PBtrr 

<64> 40 PBIH "Legen Sie Jetzt die LOCUSCBIPT- Die* ein* 

<46> 50 PRIIT ”bei der die Datei-loformtlon au6gedruckt »erden soll * 

<58> 80 PRIIT 

<90> 70 attron* = CHR*(2?)t*B**CHS*<14> : attroff* = OHR*(27)+"F"+CHR*(20) 

<66> 80 IIPUT -Geben Sie das benutzte Laufwerk an: U.'BJ* ; dr* : dr* = dr* t 
<32> 90 IIPUT ‘Geben Sie den lan» der Diskette an: ” ; dnnneS 

< 1> 100 LPBIIT attron* ; “Mam der Diskette: * ; dna»:» ; attroff« 

<13> 110 FOB group = 0 TO 7 

<49> 120 0PTI0B FILES STRS(group) 

<48> 130 IF FIIDS<dr*e». «•) = •” THB* GOTO 310 
<65> 140 groupnaa» = LBFT*<FIID*<dr*f». grp* >, 8) 

< 0> 150 IF groupna»* = " THBI groupaa»* = "Gruppe * + STR»(group) 

<21> 160 LPRIIT:LPBIIT attron» ; "Gruppe = ■ ; grnupnna» ; attroff* 

< 8> 170 FOB fllecount = 1 TO 100 

<81> 180 flle» = FIIDKdr* * "*.»*,fllecount> 

<40> 190 IF flle* - "* THBI GOTO 310 

<25> 200 IF SIGBT*<file»,3)=*GRP" THBI CLOSB 1 : GOTO 300 

<31> 210 IP RIGHT*<file*,3)=‘DCT‘ TBBI LPBIIT flle*;" - Locospell dictlanary":GOTO 
300 

< 4> 220 OPBI ‘I",1,flle* 

<93> 230 IF LÜF(l) < 3 THBI LPRIIT flle*;" Seine Locoscrlpt-Dntei * : GOTO 290 
<25> 240 a* = C«P0T*<3,«) 

<96> 250 IF a* O "JOT" THB* LPBIIT flle*;* - Seine Locoscript-Eatel * : GOTO 290 
<12> 280 a* » IIPUT*(2,#1) 

<43> 270 LPBIIT flle*;* - ";1IPUT»<30,»1> 

<36> 280 LPBIIT SPC< 151; IIP0T»<30,11 >: I.PBIIT SPC(lb); IIPUT* (30, *1) 

<63> 290 CLOSB 1 
<30> 300 IBXT fllecount 

< 2> 310 IBXT group 

<79> 320 OPTIO* FiLBS *0" 

<40> 330 PRIIT 

<59> 340 PRIIT “Soll nock eine LOCOSCRIPT-DISS ausgedruckt werden <J/I>?“ 

<77> 345 IIP0T “Falls lein (I), so zuerst die BASIC- DISC einlegen!*;antwort* 

<«4) 350 PRIIT 

<75> 360 IF antwort»=*J* OR antwort»="J* THBI GOTO 10 

<46> 370 IF antworte*I* OB BDtwort*="n* THBI GOTO 380 

<27> 380 IIPUT "I» BASIC-HoduG bleiben oder zur CP/I-Bbene? <B/C>* ; »odus* 

<52> 390 PRIIT 

<66) 400 IF nodus»“* B* OB ■Ddus*=“b* THBI GOTO 410 
<28> 410 BID 

<34> 420 IF nodus*=*C* OR mlus*-*c* THBI STSTBI 


nach der Taschenrechner der 
Zukunft. Damit will ich sagen, 
daß im Zuge der technischen 
Innovationen im Arbeitsleben 
vieler Menschen ein Computer 
oder ein computerähnlicher 
Arbeitsplatz im Vordergrund 
stehen wird. 

Diese Menschen werden in ih¬ 
rem Arbeitsleben wahrschein¬ 
lich nicht eine Zeile program¬ 
mieren müssen, aber sie wer¬ 
den mit dem »Mäusekino« 
leben. 

Darum an alle Profiprogram¬ 
mierer: 

Bitte schreibt Programme, die 
einfach und verständlich sind. 

Werner Lange, 
Wresredt 


Umrechnungsformel 
für Töne 

Im Handbuch steht eine recht 
praktische Formel zur Um¬ 
rechnung von einem Ton in 
seine Frequenz■ Leider ist sie 
falsch. 

Hier ist die richtige: 

PERIODE = ROUND (125000/ 
(440* (21 (OKTA VE+ (TON-10) 
/ 12 )))), 

wobei C= l, CIS=2, D=3, 
u.s.w. ist. Oktave geht von —3 
bis 4 (ganze Zahlen!) So 
braucht man bei einem 
SOUND-Programm nicht 
mehr die Liste im Handbuch, 
sondern kann einfach einge¬ 
ben: 3/2 (für D in Oktave 2) 
und erhält 106, den Wert im 
Handbuch. 

Jens Köplinger 
Obrigheim 


Tip zum Artikel »Hardcopy 
ohne Ausstieg« 

Erlauben Sie mir kurze Hin¬ 
weise zu den obeng. Veröffent¬ 
lichungen: 

Zul.: 

Es sollte im nächsten Heft 
8/87 darauf hingewiesen wer¬ 
den, daß beim Druck des Ar¬ 
tikels versehentlich alle ecki¬ 
gen Klammern des Textes 
durch »Ä« bzw.»Ü« ersetzt 
wurden. Die »A ’s« sind daher 
als »eckige Klammer auf ([)« 
bzw. die »Ü’s« als »eckige 
Klammer zu (])« zu lesen. 
Da die Tabelle wohl nicht für 


die Veröffentlichung auf der 
DATABOX vorgesehen ist, — 
dafür war sie eigentlich ge¬ 
dacht! -, sollten die Leser zu¬ 
mindest darauf hingewiesen 
werden, daß die auf der DA¬ 
TABOX 5/87 erschienene 
»TASTATUR.JOY« als Bei¬ 
spiel für den Artikel »Tabellen 
komfortabel umranden« im 
Heft 7/87 anzusehen ist. 
Nach Einschalten der Codes, 
Leerstellen, Zwischenräume 
und Indikatoren unter Menü 
ff]] kann die Art des Vorge¬ 
hens dann abgelesen werden. 

Zu 2.: 

Ich habe Euch seinerzeit die 
von mir in tagelanger und mü¬ 
hevoller Arbeit erstellte »TA¬ 
STATUR. JOY« kostenlos zur 
Veröffentlichung bereitge¬ 
stellt. 

Gewünscht hätte ich mir ja zu¬ 
mindest den Hinweis, daß die¬ 
se kreative Arbeit von mir ge¬ 
leistet wurde. Es ist nicht ge¬ 
rade erfreulich, wenn man sei¬ 
ne eigenen Arbeiten auf der 
DA TABOX ohne Namensan¬ 
gabe wiederfindet. 

Zu 3.: 

Soweit Ihr den Artikel und das 
BASIC—Kurzprogramm » LO- 
CUSCRIPTINDEX« aus dem 


engl. Heft »8000PLUS«, Juni 
87, Seite 63, noch nicht ent¬ 
deckt habt, möchte ich beson¬ 
ders darauf hinweisen. Ich 
habe mir die englische Ver¬ 
sion mit Hilfe von RPED. BAS 
umgeschrieben und sie 
»läuft«. Allerdings können die 
Buchstaben Ä, ä, Ö, ö, Ü, ü 
und ß beim Eintrag in die 
»Datei — Information« nicht 
benutzt werden und müssen 
durch ae, oe, ue bzw. ss er¬ 
setzt werden. 

Ferner werden die Dateien 
nicht in der Reihenfolge her- 
ausgeschrieben, in der sie im 
Directory erscheinen. Ich 
möchte Euch nicht vorenthal¬ 
ten, wie meine Version aus¬ 
sieht; vielleicht könnt ihr mit 
dem Artikel und dem 
BASIC—Programm was an¬ 
fangen. 

Zu 4.: 

Werden »Umbau« seines Joy¬ 
ce scheut, der bekommt eine 
Hardcopy »ohne Ausstieg«, 
wenn er die Tasten [SHIFTJ, 
fEXTRA] und [EXITJ gleich¬ 
zeitig drückt und diese wäh¬ 
rend des Ausdrucks weiter ge¬ 
drückt hält. 

Etwas umständlich, aber es 
geht! 

Detlef Gehring 
Hamburg 


PC Schneider International 



Das führende Schneider-Magazin 
bringt jeden Monat die interes¬ 
santesten News, nützliche Tips & 
Tricks und aktuelle Berichte rund 
um die Schneider-Computer. 

PC Schneider International, das 

kompetente Magazin für alle 
Schneider-User, hilft Ihnen, mehr 
aus Ihrem Rechner herauszuho¬ 
len und bietet allen Lesern eine 
großzügige Kommunikation un¬ 
tereinander. 

Dazu gehören u.a. regelmäßige 
Clubinfos, Testberichte über neue 
Hard- und Softwareprodukte, 
Buchbesprechungen sowie Situa¬ 
tionsberichte aus dem In- und 
Ausland. 

Übrigens wird PC Schneider In¬ 
ternational auch von Lesern ge¬ 
schätzt, die noch kein oder gar ein 
anderes Computersystem besit¬ 
zen. Eines ist sicher: Mit PC 
Schneider International sind Sie 
jederzeit bestens informiert und 
immer »up to date«. 

Schauen Sie doch einmal rein - 
es lohnt sich! 

PC Schneider International er¬ 
scheint am letzten Mittwoch je¬ 
den Monat. 

Ergänzende Informationen über 
alle Schneider-Computer finden 
Sie in unseren regelmäßigen The- 
men-Sonderheften, von denen 
bisher fünf erschienen und zwei 
weitere in Vorbereitung sind (u.a. 
auch für Joyce und PC’s). 

DMV Verlag, 

Fuldaer Straße 6, 

3440 Eschwege 
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Interessantes zu CP/M Plus 

Das Kommando »DIR« 


In den vorigen beiden Teilen dieser Se¬ 
rie wurde auf das Kommando »SET« 
eingegangen. Welche Auswirkungen 
sich aus SET auf das Kommando DIR 
ergeben und wie komfortabel die 
CP/M Plus-Version von »DIR« ist, 
zeigt der folgende Artikel. 


Zunächst das Allgemeine 


Was dem AMDSOS sein CAT, ist dem 
CP/M sein DIR. Wie wir alle wissen, hat 
das Kommando CAT nichts mit Katzen 
zu tun, sondern ist die Abkürzung für 
Catalog. DIR ist auch eine Abkürzung 
und heißt vollständig Directory. In bei¬ 
den Fällen erwartet der Verwender die¬ 
ser Kommandos, daß ein Inhaltsver¬ 
zeichnis aller Dateien eines Datenträgers 
ausgegeben wird. Typischerweise er¬ 
folgt die Ausgabe auf dem Monitor des 
Computers. 

Nun ist es unter CP/M Plus recht ein¬ 
fach, die Ausgabe einer DIR-Anweisung 
auch auf den Drucker oder in eine Datei 
zu leiten. Letzteres ist interessant, wenn 
man sich ein Global-Inhaltsverzeichnis 
all seiner Floppies anlegen will. 

Wie man dazu Vorgehen kann, soll an an¬ 
derer Stelle beschrieben werden, weil 
dazu ein weiteres CP/M-Kommando er¬ 
forderlich ist. Zunächst wollen wir uns 
daher auf das reine DIR-Kommando be¬ 
schränken und uns die Möglichkeiten un¬ 
terschiedlicher und selektiver Directories 
zu Gemüte führen. 


Residente und nichtresidente 
Kommandos 


Wenn Sie Ihre CP/M-Disketten mit DIR 
durchsehen, werden Sie feststcllen, daß 
eine Datei mit der Bezeichnung 
DIR.COM existiert. Deswegen könnte 
man mit Recht vermuten, daß »DIR« zu 
den nichtresidenten Kommandos gehört. 
Nichtresidente Kommandos sind CP/M- 
Befehle, die nicht Bestandteil des Be¬ 
triebssystems sind, sondern bei Aufruf 
von der Diskette gelesen werden. 


Voraussetzung ist dann, daß die notwen¬ 
dige Diskette im Laufwerk vorhanden 
ist. Haben Sie CP/M gestartet, nehmen 
die Floppy mit der Datei DIR.COM her¬ 
aus und ersetzen diese durch eine Flop¬ 
py ohne DIR.COM werden Sie feststel¬ 
len, daß die Kommandos DIR und DIR- 
SYS trotzdem ausgeführt werden kön¬ 
nen. 

Des Rätsels Lösung ist, daß lediglich das 
Kommando DIR mit Optionen (zu denen 
wir noch kommen), nichtresident ist. Die 
Beschreibung des DIR-Kommandos er¬ 
folgt daher in zwei Hauptabschnitten, 
nämlich residentes und nichtresidentes 
DIR. 


Das residente DIR-Kommando 


CP/M Plus stellt als Bestandteil des Be¬ 
triebssystems ein einfaches, residentes 
DIR-Kommando zur Verfügung. Es 
kann in zwei Versionen aufgerufen 
werden: 

DIR 

Gibt die Namen der Dateien mit dem 
DIR-Attribut aus. 

DIRSYS 

Gibt die Namen der Dateien mit dem 
SYS-Attribut aus (System-Dateien). 

Sie erinnern sich sicherlich an den im vo¬ 
rigen Teil der Serie beschriebenen SET- 
Befehl. Dort wurde der Unterschied zwi¬ 
schen den Attributen DIR und SYS er¬ 
klärt. 

Die residente Form des DIR-Komman¬ 
dos ist damit schon fast behandelt. Es sei 
noch auf folgende Gegebenheiten ver¬ 
wiesen: 

DIR und DIRSYS ohne weitere Zusätze 
geben das Inhaltsverzeichnis aller Datei¬ 
en auf dem angemeldeten Laufwerk un¬ 
ter der angemeldeten Benutzernummer 
aus. Beispiele: 

A>DIR 

Ausgabe aller Dateien mit dem DIR-At¬ 
tribut unter Benutzernummer 0 des Lauf¬ 
werks A. 

4G> DIRSYS 


Ausgabe aller Dateien mit dem SYS-At- 
tribut unter Benutzemummer 4 des Lauf¬ 
werks G. 

Mit der zusätzlichen Angabe der Lauf¬ 
werksnummer kann man das Inhaltsver¬ 
zeichnis einer Diskette im nicht angemel¬ 
deten Laufwerk aufrufen: 

A>DIR:B 

Ausgabe aller Dateien mit DIR-Attribut 
unter Benutzemummer 0 des Lauf¬ 
werks B. 

Als weiterer Zusatz ist die Angabe einer 
Dateibezeichnung zulässig. Die Dateibe¬ 
zeichnung darf dabei die bekannten 
Platzhalter aufweisen. Der Stern (*) als 
allgemeiner Platzhalter für eine beliebige 
Zeichenfolge, das Fragezeichen (?) als 
Platzhalter für jeweils ein Zeichen. Bei¬ 
spiele: 

A>DIRSYS:B *.COM 

Gibt alle Systemdateien des Typs COM 
von User 0 des Laufwerks B aus. 

1B> DIR W*.* 

Gibt alle Dateien mit dem DIR-Attribut 
unter User 1 aus Laufwerk B aus, deren 
Namen mit einem »W« beginnen. 

Diese Erweiterungen des residenten 
DIR-Befehls gelten grundsätzlich auch 
für das DIR-Kommando mit Optionen. 
Diese nichtresidente Kommandoform 
soll nun behandelt werden. 


Das nichtresidente DIR 
mit Optionen 


Die DIR-Version mit Optionen hat ge¬ 
wichtige Bedeutung in allen CP/M Plus- 
Systemen mit großem Massenspeicher- 
Volumen. Wie bereits in der Beschrei¬ 
bung des SET-Kommandos (Hefte 6’87 
und 7’87) erläutert, kann CP/M Plus 
sechzehn Laufwerke mit je 512 MBytes 
Speicherkapazität verwalten. 

Es reicht jedoch schon ein System mit ei¬ 
ner einzigen 20 MB-Platte, auf dem 
mehrere Benutzer unter ihren USER- 
Nummern arbeiten und das eine SYS- 
Ebene unter USER 0 aufweist, um das 
nichtresidente DIR unentbehrlich zu 


12 PC 8'87 












CP/M—i 


machen. Möglicherweise kommen Sie 
nicht in die Verlegenheit, Ihren Compu¬ 
ter derart aufzublähen, aber die Nützlich¬ 
keit des DIR-Kommandos ist unbestreit¬ 
bar. Darum wollen wir uns nun den Op¬ 
tionen zuwenden. 


Grundsätzliches zu den 
DIR-Optionen 


Die Form der Optionen-Eingabe bei DIR 
ähnelt der Methode, die schon vom SET- 
Kommando bekannt ist. Optionen sind in 
eckige Klammem zu setzen. 

Wer seinen Computer auf deutschen Zei¬ 
chensatz gestellt hat, benutzt logischer¬ 
weise die Buchstaben »Ä« und »Ü«. 
Übrigens ist die »eckige Klammer zu« 
(Ü) entbehrlich, d.h. es werden die Op¬ 
tionen auch erkannt, wenn sie nur mit der 
»eckigen Klammer auf« eingeleitet 
werden. 

Wie bereits erwähnt sind äußerten Op¬ 
tionen auch die Angabe von Laufwerks¬ 
namen, sowie Dateibezeichnungen mit 
Platzhaltern (* und ?) erlaubt. Optionen 
können ferner abgekürzt werden und 


zwar auf die Anzahl von Anfangsbuch¬ 
staben, durch die sie eindeutig identifi¬ 
zierbar sind. Es können darüberhinaus 
mehrere Optionen gleichzeitig angege¬ 
ben werden. Die einzelen Optionen sind 
dabei durch ein Komma voneinander zu 
trennen. 

Das Kommando DIR mit Optionen exi¬ 
stiert nicht in der Form DIRSYS! Damit 
ergibt sich als grundsätzliche Befehls¬ 
form: 

A>DIR [OPTION] 


Die Optionen in alphabetischer 
Reihenfolge 


Im Folgenden werden die DIR-Optionen 
beschrieben. 

ATT 

Gibt die frei definierbaren Attribute F1, 
F2, F3, F4 aus (siehe SET-Befehl). 

DATE 

Gibt die Datums- und Zeitmarken aus, 
sofern die Markierung aktiviert ist (sie¬ 
he SET, INITDIR, und DATE). 


DIR 

Gibt nur Dateinamen mit dem DIR-At¬ 
tribut aus (siehe SET). 

DISK/att 

Gibt Dateinamen in den durch »att« ge¬ 
kennzeichneten Laufwerken aus. Bedeu¬ 
tung: 
att/ALL 

Durchsucht alle belegten Laufwerke. 
att/(A,B,C....P) 

Durchsucht nacheinander alle in den run¬ 
den Klammem angegebenen Laufwerke, 
att/d 

Sucht nur auf dem mit »d« gekennzeich¬ 
neten Laufwerk. * 

DRIVE/att 

Entspricht DISK/att 

EXCLUDE 

Sucht nach Dateinamen, die der in der 
Kommandozeile angegebenen Form 
nicht entsprechen. Beispiel: 

A>DIR [EXCLUDE] *.COM 
sucht nach allen Dateien, die keine 
COM-Dateien sind. 

FF 

Gibt vor Beginn der Kommandoausfüh¬ 
rung einen Formularvorschub an den 
Drucker, sofern dieser aktiviert ist. 


BEKANNTMACHUNG 

Bei unserem 

allseits bekannten und beliebten Telefon-Service, 
dem »Heißen Draht«, 

können Sie Ihre Fragen und Anregungen von 

17.00 - 20.00 Uhr 

an die Redaktion 

von PC Schneider International richten. 

Auf Ihren Anruf freuen sich: 

Michael Ebbrecht (Hardware, Joyce), 
Stefan Ritter (Redaktion), 

Stefan Hartmann (CPC), Claus Daschner (CPC) 
und Heinrich Stiller (Spiele/Adventures). 

Jeden Mittwoch am 

miSSEH DRAHT 

Tel. (05651)87 02 


CPC 6128 • Joyce • Joyce Plus 

Unsere bahnbrechende Benutzer-Schnittstelle trägt einen neuen Namen: 

MenuMate 

Unverändert bleiben die Leistungsmerkmale: 

• Menüs nach eigenem Bedarf, in unbegrenztem Umfang 

• Meldungen, Hilfsanweisungen, Informationstexte 

• Einbau von beliebigen Kommandofolgen (z.B. Programmaufrufe) 

• reichhaltige Formatierung einzelner Menüs und Texte 

• Fenster-Technik, Pull-Down-Menüs, Schreibtisch-Effekte usw. 

• Menü-gesteuerter Editor: Fehlbedienung ausgeschlossen 

»Wenn Sie sich mit dem Programm einmal vertraut gemacht ha¬ 
ben, sind Sie in der Lage, ganze Handlungsabläufe eines kleinen 
bis mittleren Betriebes damit zu steuern.« 

- PC Schneider International 7/87, Seite 122 
»Die mögliche Menüvernetzung mehrerer Anwenderprogramme 
macht MenuMate meiner Ansicht nach besonders geeignet, Mit¬ 
arbeiter mit Bildschirm- und Computerarbeit auszusöhnen.« 

- Joyce News 3/87, Seite 4-6 

Informationsbroschüre kostenlos, unverbindlich 
DEMO-Version DM 25,-* (wird beim späteren Lizenzerwerb voll 
angerechnet) 

Benutzungslizenz DM 198,-* (unverbindliche Preisempfehlung) 
Beim Fachhandel oder direkt von: 


Gerald Keil 

SOFTWARE-ENTWICKLUNG 
UND VERTRIEB 

Obere Hochstraße 136 - 6652 BEXBACH/Saar 

* Nacnriahmtf (nm BRD| ugt DM 350 BITTE COMPUTERTVP ANGEBEN 
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FULL 

Gibt zusätzlich zu den Dateinamen fol¬ 
gende Informationen aus: 

Dateilängen in KB und 128-Byte- 
Blöcken. 

Dateiattribute, 
ferner, sofern aktiviert: 
Passwort-Sicherungsmodus 
Zeitmarken 

LENGTH=n 

Steuert die Ausgabe eines neuen Tabel¬ 
lenkopfes bei der Auflistung des Inhalts¬ 
verzeichnisses. Der Wert für n muß da¬ 
bei zwischen 5 und 65536 liegen. Der 
Standardwert für n ist so eingestellt, daß 
jeweils eine volle Bildschirmseite ausge¬ 
geben wird, bevor ein neuer Tabellen¬ 
kopf erzeugt wird. 

MESSAGE 

Erzeugt eine Nachricht, in der der Lauf¬ 
werksname und die Benutzernummer 
eingetragen ist, wenn mehrere Benutzer 
und Laufwerke durchsucht werden. 

NOPAGE 

Schaltet den Warte-Modus ab, wenn die 
aufgelistete Tabelle länger als eine Bild¬ 
schirmseite wird (sinnvoll, wenn die Ta¬ 
belle auf einen Drucker geleitet wird). 
DIR ohne NOPAGE gibt immer nur so 
viele Tabellenzeilen auf den Bildschirm, 
bis die Seite voll ist. Die weitere Ausga¬ 
be erfolgt jeweils nach Betätigung der 
Retum-Taste. 

NOSORT 

Gibt die Tabelle nicht, wie üblich, in al¬ 
phabetischer Reihenfolge aus, sondern in 
der Reihenfolge der Directory-Eintrage 
auf der Diskette. 

RO 

Gibt nur die Dateinamen mit dem Attri¬ 
but READ ONLY aus (siehe SET-Be- 
fehl). 

RW 

Gibt nur die Dateinamen mit dem Attri¬ 
but READ-WRITE aus (siehe SET-Be- 
fehl). 

SIZE 

Gibt zusätzlich zu den Dateinamen die 
Dateigröße in KB aus. 

SYS 

Gibt nur Dateinamen mit dem Attribut 
SYS (Systemdateien) aus (siehe SET-Be- 
fehl). 

USER=att 

Durchsucht die mit »att« gekennzeichne¬ 
ten Benutzernummem. 

att = ALL 

Durchsuchen aller Benutzenummem 

att = (0,l,2,....15) 

Durchsuchen aller Benutzernummern, 
die in den runden Klammem angegeben 
sind). 


att=n 

Durchsuchen der mit n bezeichneten Be¬ 
nutzernummer. 

Damit ist die Liste der möglichen Optio¬ 
nen komplett. Ausprobieren, kombinie¬ 
ren, und abkürzen der Optionen ist Ihrem 
spezifischen Interesse Vorbehalten. Hier 
sei nur als Anregung ein Beispiel ge¬ 
bracht: 

A > DIR 

[US = ALL,DR = ALL,FU,AT,ME 

Mit dieser Form des DIR-Kommandos 
bekommen Sie einen umfassenden Über¬ 
blick aller Dateien aller Benutzer und 
Laufwerke, aller Attribute und Marken. 


Das Erweitern der HELP-Datei 


Den guten Sitten folgend finden Sie als 
Ergänzung Ihrer Help-Datei das hier Er¬ 
arbeitete in der bekannten Listing-Ver- 
sion. Alphabetmäßig gesehen, sollten Sie 
diesen Text nach den Ausführungen zum 
DEVTCE-Befehl einfügen. 


Die liebe Verwandschaft 


Informationen über ein Disketten-Lauf- 
werk kann man nicht nur mit dem DIR- 
Kommando erhalten, sondern auch mit 
dem Befehl SHOW. Welche show man 
mit SHOW abziehen kann, ist Inhalt der 
nächsten Folge. 

(Henry Bruhns) 


///1 DIR 

Gibt Dateinamen und die mit ihnen ver¬ 
bundenen Eigenschaften aus 

Das Kommando existiert in den Formen 
DIR 

DIRSYS 

DIR mit Optionen 

DIR und DIRSYS sind residente Kommandos 
DIR mit Optionen ist eine nichtresidente 
COM-Datei 

///2Resident 

Syntax: 

DIR [d:] 

DIR [dateibez] 

DIRSYS [d:j 
DIRSYS [dateibez] 

Beschreibung: 

DIR listet Dateien mit DIR-Attribut, 

DIRSYS listet Dateien mit SYS-Attribut. In den 
Dateibezeichnungen sind Platzhalter (* und 
?) erlaubt. 

///3Beispiele 

A<DIR 

Listet alle Dateien mit dem DIR-Attribut von 
Benutzemummer 0 des Laufwerks A. 


A<DIR B: 

Wie DIR, jedoch Laufwerk B. 

4A<DIR *.BAS 

Listet alle DER-Ddteien mit der Namenser¬ 
weiterung .BAS des Benutzers Nr 4 aus Lauf¬ 
werk A. 

A<DIRS *.COM 

Listet alle Dateien mit dem Attribut SYS (Sy- 
stemdateien) und der Namenserweiterung 
.COM des Benutzers Nr. 0 aus Laufwerk A. 

///2Nichtresident 

Syntax: 

DIR [d:] (Optionen) 

DIR [dateibez] [dateibez).... 

(Optionen) 

Beschreibung: 

Das DIR-Kommando mit Optionen gestattet 
das Suchen nach Dateien auf allen Lauf¬ 
werken und unter allen Benutzernummem, 
unabhaengig von Attributen. 

3///Optionen 

ATT Listet die Dateiattribute 
DATE Listet Datum- und Zeitmarken 

DIR Listet DIR-Dateien 

DRIVE=ALL Listet Dateien aller Laufwerke 

DRIVE =(A,B,C... .P) Listet Dateien der in den 
Klammem angegebenen Laufwerke 

DRIVE=d Listet Dateien des mit d angege¬ 
benen Laufwerks 

EXCLUDE Listet Dateien, deren Spezifikatio¬ 
nen NICHT denen in der Kommandozeile 
angegebenen entsprechen. 

FF Sendet einen Formularvorschub an den 
Drucker, bevor die Dateinamen gelistet 
werden. 

FÜLL Listet Name, Groesse, Attribute, Pass- 
word-Modus und Zeitmarken. 

LENGTH=n 4>n>65537. Gibt an, nach 
wieviel Zeilen ein neuer Tabellenkopf ein¬ 
gefügt werden soll 

MESSAGE Listet waehrend des Suchern 
User-Nr. und Laufwerksnummer. 

NOSORT Listet Dateien in der Reihenfolge 
des Eintrags auf der Diskette (sonst alphabe¬ 
tisch). 

RO Listet Dateien mit RO-Attribut. 

RW Listet Dateien mit RW-Attribut. 

SIZE Listet Dateien und dazugehörige Größ- 
se in KB. 

SYS Listet SYS-Dateien. 

USER=ALL Durchsucht alle User-Nummem 
USER=n Durchsucht User mit Nummer n 

USER=(0,1,2,... 15) Durschsucht die in den 
Klammem angegebenen User-Nr. 

///3Beispiele 
A<DERC: (FULL) 

Listet alle Spezifikationen der Dateien der 
Benutzemummer 0 von Laufwerk C. 

A<DER D: (RW.SYS) 

Listet alle Dateien von Benutzernummer 0 
auf Laufwerk D mit den Attributen RW und 
SYS. 

3B<DIR (SEE) * PLI *.COM *.ASM 
Listet alle Dateien der Typen PLI, COM und 
ASM des Users 3 auf Laufwerk B. 

< DIR (SEE) * .PLI * .COM * .ASM 
Listet alle Dateien der Typen PLI, COM 
und ASM 
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Integrierte Software: 
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*#* ADRESSEN - VERWALTUNG **# 


Das C.U.B.O.-System ist nicht nur leicht zu ver¬ 
stehen und anzuwenden, es eröffnet Ihnen 
auch Möglichkeiten, die andere Programme 
in dieser vielseitigen Kombination nicht bie¬ 
ten. Es ist Schneider PC und IBM kompatibel. 
Eine Sensation, nicht nur des niedrigen Preises 
wegen (Fernsehreportage in Vorbereitung). 

Zu beziehen z. B. über 06 Software Europe. 


CRM Säte - Nummer ! 2 


Smcbname (KurielI ...Ilmeycp* 


«nr»<J|- 

Marnell ?e*t : KUNDEN 


Bestellung vom :10.06.97 

0e«o Programm .. 120.00 DH 

14.80 (tust ... 14.80 DN 


Dies alles ist auf einer Diskette: 


'Esc* -> Eingabe Ende 


Zahlbar : Innerhalb 10 Tage 


: IK=Kunde. l=Li«feranl unm.) 
0.00: 0N 

Termin 27.01.1986 


iter Buchen 777 (j/n> .... 



### KARTEI - KASTEN ### I jj&.m 


en - Nummer :03: 
en - Nummer :00e00: 


RECHEN-SPEICHER 2 akti 


‘Esc’ -> Eingabe Ende 


Haupt gruppe :ADRESSEN 

|Untergruppe IKUNDEN 


Bereich 1NEYC0N 


Bestellung vom :10.86.87 

Oemo - Programm . 170.00 DN 

14.00 MJSt ... 16.80 DN 


Zahlbar : Innerhalb 18 läge 




A dressen-Verwaltung 

- suchen nach jedem Zeichen, Wort 
oder Satz 

- reorganisationsfrei 

- Ausgabe einer sortierten Liste 
über Drucker oder Bildschirm 

- Merge Kartei-Karte, 
erfassen/ändern 

- über 30000 Adressen möglich 

Kartei-Kasten 

- Gliederung nach Hauptgruppe, 
Untergruppe, Bereich und Zitat 

- suchen nach jedem Zeichen, 

Wort oder Satz 

- Kopierfunktion Kartei Karte 

- Kopierfunktion Zeile 

- Druckfunktion Haupt- 
Untergruppe, Bereich 

- Rechenfunktion (2 unabhängig 
voneinander arbeitende 
Rechenspeicher) 

- Anwendunqsbeispiele: 
Lagerverwaltung, Bücher, Video, 
Zeitungsartikel etc 

- Erstellung von bis max 
99 Karteikästen 

- über 30 000 Karteikarten pro 
Kartei-Kasten 


Textbearbeitung 

- Merge Textblock 

- Mailmerge 

- Merge Kartei-Karte 

- suchen und ersetzen 

- Randausgleich 

- Zeilenumbruch 

- erstellen Text für Serienbrief 

- alle Funktionen werden 
automatisch angezeigt 

Serienbrief 

- selektieren nach Name, 
Postleitzahl, Branche 


Etiketten-Druck f 

- automatisches Drucken der für f 

/. 


den Serienbrief selektierten 
Anschriften 

- freie Gestaltung 

Handbuch 

- ca. 100 Seiten in 
deutscher 
Sprache 
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Ein Terminalprogramm für die 
serielle Schneider-Schnittstelle 
für die CPCs bietet SchneiderDa- 
ta jetzt an. »CPC-TERMY« ent¬ 
hält vier Programme, von denen 
eines zur Einstellung der Schnitt¬ 
stellenparameter unter Basic 
dient; drei weitere sind zum Be¬ 
trieb der Schnittstelle unter Basic, 


CP/M 2.2 und CP/M Plus vorge¬ 
sehen. Die Steuerung erfolgt über 
die Funktionstasten. TERMY ko¬ 
stet 69, - DM; der Paketpreis von 
TERMY und der Schneider- 
Schnittstelle beträgt 217,- DM. 
Info: 

SchneiderData 

8050 Freising □ 


EDI-ein neuer Text-Editor 


Als Ersatz für den MS-DOS Zei¬ 
leneditor EDLIN soll der Bild¬ 
schirm-Editor EDI fungieren. 
Das Programm kostet DM 98, — 
und kann zum Erstellen und Be¬ 
arbeiten von Textdateien aller Art 
verwendet werden. 

Die erzeugten Dateien enthalten 
keine Steuerzeichen,können also 
mit jedem Textprogramm weiter¬ 
verarbeitet werden, ohne jedoch 
auf den Zeilenumbruch verzich¬ 
ten zu müssen. Bis auf zwei Aus¬ 
nahmen (CTRL-J und -Z) können 
auch alle 255 im IBM-Zeichen- 
satz vorhandenen Codes eingege- 


BTX-Decoder von Blaupunkt 


Für den PC 1512 bringt Blaupunkt 
einen interessanten BTX-Deco- 
der mit leistungsfähiger Software. 
Dabei können alle BTX-Funktio- 
nen auf dem vorhandenen Moni¬ 
tor dargestcllt werden. Zur Farb- 
und Graphikdarstellung nach 
CEPT-Standard kann ein zweiter 
Monitor an die RGB-Buchse des 
Decoders angeschlossen werden. 
Der Decoder kostet incl. BTX- 
Basissoftware ca. DM998,- und 
kann mit der BTX-Software PRO¬ 
FI DIREKT (ebenfalls von Blau¬ 
punkt) ergänzt werden. 

Info: Blaupunkt 

3014 Laatzen 1 □ 


ben und am Bildschirm darge¬ 
stellt werden. 

Pro Datei können bis zu 60000 
Zeichen bearbeitet werden, wo¬ 
bei ein sehr schneller Bildschir¬ 
maufbau realisiert wurde. 

Einige mitgelieferte Utilities (wie 
z.B. RAM-residenter HEX-. 
DEZ-, BIN-und Oktal-Taschen- 
rechner oder Drucker-Treiber für 
EPSON-kompatible) ergänzen 
EDI auf sinnvolle Weise. 

Info: 

Shamrock Software 

8000 München 40 □ 


Immobilienverwaltung 


Ein Programm für Haus-und 
Grundstücksmakler zur Verwal¬ 
tung ihres Objekt- und Kunden¬ 
bestandes ist jetzt auf dem Joyce 
erhältlich. Pro Datendiskette 
können 300 Objekte und 500 In¬ 
teressenten verwaltet werden. Die 
Bedienung ist übersichtlich und 
viele Funktionen wie z.B. selek¬ 
tiertes Suchen, Angebote und Eti¬ 
ketten drucken erleichtern die 
Verwaltungsarbeit erheblich. 
Eine Version für den PC 1512 ist 
angekündigt. 

Info: Hashagen Textservice 
Eckstr. 11 

6113 Babenhausen □ 


Echtzeituhrenmodul für Joyce 


Ein Erweiterungsmodul für die 
PCWs zum Anschluß an den Er¬ 
weiterungsport bietet die Fa. CSS 
an. Dieses Modul enthält eine se¬ 
rielle (RS 232) und eine paralle¬ 
le (Centronics)-Schnittstelle so¬ 
wie eine Echtzeituhr mit Wo¬ 
chentags- und Datumanzeige. 
Eine mitgelieferte Diskette ent¬ 
hält Dienstprogramme für dieses 
Modul; der Preis beträgt 349,— 
DM. 

Info: CSS 

Gutenbergstr. 9b 

8950 Kaufbeuren/Allgäu □ 


Computer-Flohmarkt 


Am 22. August 1987 veranstaltet 
die VGB Bruchsal ihren 1. Com¬ 
puter Flohmarkt. Zum Angebot 
gelangen Computer, Peripherie, 
elektr. Zubehör und Fachlite¬ 
ratur. 

Das Konzept sieht eine Mischung 
von Flohmarkt für private Anbie¬ 
ter und Angebote von Fachhänd¬ 
lern vor. 

Informationen und Teilnahmebe¬ 
dingungen sind erhältlich bei: 

Computer Club Bruchsal 
Tel: (07251)41325 □ 



Das englische Softwarehaus AR- 
NOR, welches sich soeben in 
Deutschland niedergelassen hat, 
bietet jetzt die deutsche Überset¬ 
zung des schon seit langem für 
die CPCs bekannten englischen 
Textverarbeitungsprogramms 
Protext an. Aus urheberrechtli¬ 
chen Gründen wurde das Paket in 
»Prowort« umbenannt; außer der 
sprachlichen Umsetzung wurden 
jedoch nur geringfügige Ände¬ 


rungen vorgenommen. Prowort 
enthält eine Mailmerge-Funktion 
und eine Rechtschreibüberprü- 
fung mit einem ca. 40000 Worte 
umfassenden deutschen Wörter¬ 
buch. Das Programm ist für Joy¬ 
ce und CPC 6128 unter CP/M 3.0 
verfügbar und kostet ca. 248,- 
DM. 

Info: Arnor Deutschland 
2000 Hamburg 76 und 
Fachhandel □ 


Softwaremäßiger Schnittstellentester 


Mit COMIX 1.3 liegt eine reine 
Softwarelösung zur Analyse und 
Steuerung von seriellen Schnitt¬ 
stellen am Monitor vor. 

COMIX ist speicherresident und 
ermöglicht das Koppeln von PCs 
über die RS 232-Schnittstellen. 
Der Filetransfer geschieht mit ei¬ 


ner Übertragungsrate von 4 K pro 
Sekunde. COMIX kann auch als 
Terminalprogramm mit indivi¬ 
duellen Baudraten eingesetzt 
werden und ist zum Preis von 
DM 299,— erhältlich. 

Info: Comfood Software 
4400 Münster □ 
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Mehrfrequenz-Monitor 
von Mitsubishi 


DMP 3160: Neuer Drucker von Schneider 


Adapterkarten für PC 


AT-kompatibel per Steckkarte 


Mit einer IBM-kompatiblen 
Steckkarte ist es möglich, eine 
AT-Rechenleistung in kompakte 
Gehäuse einzubaucn. Die Steck¬ 
karte bietet eine 80286-CPU, die 
mit 10/12 MHz getaktet wird so- 
w ie einen RAM-Speicher von 
512 KB. der auf der Platine auf 
insgesamt 1MB erweiterbar ist. 
Des weiteren sind sämtliche 
Funktionen eines AT-Motherbo- 


ards verfügbar, einschließlich 
des Akkumulators für die Echt¬ 
zeituhr. 

Die Baugruppe kostet ca. DM 
1500, — und kann durch eine pas¬ 
sive AT-BUS-Karte (DM 98, -) 
ergänzt werden. 

Info: 

Graf Elektronik 
Postfach 1610 

8960 Kempten fl 


Disketten- und Kassettenbox 


Das Media-Box-System ermög¬ 
licht die Archivierung von Dis¬ 
ketten im 3“ bis zum 51/4“ 
Format, Datasetten und Kom¬ 
pakt-Kassetten, Video-Kassetten 
aller Formate, für CDs und vieles 
mehr. 

Je nach Größe der Box lassen sich 
diese Datenträger übersichtlich 


und sicher aufbewahren, das im 
Baukastenprinzip gehaltene Sy¬ 
stem ist jederzeit erweiterbar. 

Je nach Boxtyp liegt der Preis von 
DM25,- bis DM 65,-. 

Info: 

LI NDY-Elektronik 

6800 Mannheim □ 


Vom 4.-6. September finden 
die Elektronik- und Computerta¬ 
ge Saar in der Kongreßhalle Saar¬ 
brücken statt. Gezeigt werden 
moderne Technologien aus den 
Bereichen Computer, Elektronik, 
Video und Nachrichtenübermitt¬ 
lung sowie moderne Fertigung¬ 
stechniken der Industrie. □ 


Einen neuartigen 14“Farbmoni¬ 
tor mit einer Auflösung von 800 
x 560 stellte jetzt die Fa. Mitsu¬ 
bishi vor. Der Monitor passt sich 
automatisch den Horizontal- und 
Vertikalfrequenzen und den Bild¬ 
formaten an. Unterstützt werden 
Graphikkarlen mit RGB-TTL- 
Eingängen im EGA-, CGA und 
MDA-Modus. Des weiteren sind 
auch die neuen Graphikstandards 
PGA und VGA der neuen IBMs 
über den Analog-Eingang zu ver¬ 
wenden, ebenso der Composite 
Video-Eingang. Übrigens können 
alle drei Eingänge gleichzeitig 
angeschlossen werden. 

Der Freescan-Monitor (ca. DM 
1850.- zzgl. Mwst) ist auch 
BTX-fahig. Es ist z.B. möglich, 
zwei übereinander gelagerte Bil¬ 
der gleichzeitig darzustellen 
(Bl'X-Mode), indem z.B. ein Vi¬ 
deorekorder an den Video-Ein¬ 
gang und ein BTX-Decoder an 
den RGB-Analog Eingang ange¬ 
le hlossen wird. 

Info: Kulemkampff & Konitzky 
P.O.Box 103867 

2800 Bremen □ 


Mit den Adapterkarten für IBM- 
PC-AT/XT und Kompatible kön¬ 
nen Funktionskarten getestet und 
modifiziert werden.Die Adapter¬ 
karte wird an Stelle der Funk¬ 
tionskarte in den Steckverbinder 
auf der Grundplatte einge¬ 
steckt,anschließend wird darauf 
dann die Funktionskarte ge¬ 
steckt. Durch eine spezielle Hal¬ 
terung können auch Sondermaße 
bearbeitet werden. 

Info: Fa. Fischer elektronik 
5880 Lüdenscheid □ 


Neue Technik im alten Kleid bie¬ 
tet der Schneider-Matrixdrucker 
DMP 3160 auf der Basis des Mo¬ 
dells DMP 3000. 

Die Software des 3160 ist gegen¬ 
über dem 3000 unverändert kom¬ 
patibel zum Epson- und IBM- 
Modus. 

Die Verbesserungen ergeben sich 


durch eine 9 x 9-Punktmatrix und 
eine höhere Druckgeschwindg- 
keit. 

Diese beträgt (wie der Name ver¬ 
muten läßt) 160 Zeichen/sec im 
Entwurfsmodus; für den NLQ- 
Modus werden 55 Z/s ange¬ 
geben. 

Info: Fachhandel C 


Computertage Saar 
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Software-TÜ V 

Gütegemeinschaft 
Software setzt 
Qualitätsstandards 



Welcher Anwender wurde nicht 
schon einmal mit der Tatsache 
konfrontiert, daß die eben gekaufte 
Software zu allen möglichen 
Zwecken taugte — nur nicht zu 
dem, der in der Produktbeschrei¬ 
bung stand. Relativ hilflos tappt die 
Masse der Anwender durch den 
Softwaredschungel und scheint sich 
oftmals damit abgefunden zu haben, 
erst im zweiten oder dritten Anlauf, 
d.h. nach ein oder zwei Fehlkäufen, 
die richtige Software für eine be¬ 
stimmte Anwendung zu bekommen. 
Eine Lösung dieses allseits bekann¬ 
ten Problems könnte mittelfristig 
das Gütezeichen der 1985 in Frank¬ 
furt gegründeten Gütegemeinschaft 
Software e.V. bieten. 

Die Gütegemeinschaft Software e.V. 
(GGS) ist die Folge einer Entwicklung, 
über die in allen Fachzeitschriften bereits 
unzählige Artikel geschrieben wurden. 
Parallel zu einer rasanten Ausbreitung 
von Computertechnologie in den ver¬ 
schiedenen Bereichen unserer Volks¬ 
wirtschaft wuchs die Nachfrage nach 
Programmen »von der Stange«, nach 
Standardsoftware, die »ready to run«, 
also ohne eigene Programmierarbeit und 
Entwicklungsleistung einsetzbar ist. 
Heute bietet eine nicht genau quantifi¬ 
zierbare Zahl von Softwareanbietern ihre 
Produkte auf einem Markt an, der 1986 
nach Angaben der GGS ein Volumen 
von 15,8 Milliarden DM hatte. 

Die Anzahl der zur Zeit angebotenen 
Programmpakete realistisch zu bezif¬ 
fern, dürfte unmöglich sein; die Band¬ 
breite der Schätzungen reicht von einigen 
tausend bis weit über zehntausend. Doch 
selbst wenn man einschränkend an¬ 
nimmt, es seien wirklich nur zweitau¬ 
send, so wird schon daran deutlich, daß 
es so gut wie unmöglich ist, sich einen 
Überblick über das gesamte Angebot zu 
verschaffen. 

Der eigentliche Mißstand auf dem Soft¬ 
waremarkt resultiert jedoch weniger aus 
der reinen Masse der angebotenen Pro¬ 
gramme, sondern aus dem drastischen 
Qualitätsgefälle zwischen verschiedenen 
Programmen gleicher Anwendung. Es 
scheint einfach zu viele Anbieter auf die¬ 
sem Markt zu geben, die nach dem Stu¬ 
dium einiger Programmierhandbücher 


glauben, alltagstaugliche Programme auf 
den Markt bringen zu können. In der 
Branche geht das Sprichwort von der 
»Bananenpolitik« vieler Softwarehäuser 
um, deren Produkte selbst im günstigsten 
Fall erst beim Anwender reifen. 

Um Mißverständnisse zu vermeiden, sei 
hier festgestellt, daß es sich bei diesen 
Programmen erst in zweiter Linie um 
solche aus dem low cost Bereich handelt. 
Als in den frühen achtziger Jahren die er¬ 
sten Bemühungen um einheitliche Qua¬ 
litätsstandards für Software einsetzten, 
war noch nicht abzusehen, daß sich aus 
dem Gesamtangebot des Softwaremark¬ 
tes ein low cost Bereich abtrennen 
würde. 

Daher handelte es sich bei den Grün¬ 
dungsmitgliedern der GGS nicht um 
»kleine Anwender«, die sich eben einmal 
über ein schlechtes Programm geärgert 
hatten, sondern um namhafte und meist 
große Firmen, die entweder als Anbie¬ 
ter oder Anwender auch heute noch am 
Geschäft rund um den Computer betei¬ 
ligt sind. 

Während diese Anwender in erster Linie 
an wirklich einsatzfähiger Software für 
die eigenen Bedürfnisse interessiert wa¬ 
ren, dürften die Motive der an der Grün¬ 
dung der GGS beteiligten Anbieter an¬ 
ders gelagert sein. Die Anbieter hatten 
wohl damals schon erkannt, daß sich die 
zweistelligen Wachstumsraten in der 
Computerbranche nicht beliebig fort¬ 
schreiben lassen dürften, wenn der 


Markt nicht gleichzeitig auch Software 
in ausreichender Qualität hervorbringen 
würde. 

Die GGS selbst wurde im März 1985 ge¬ 
gründet, doch schon vorher waren ver¬ 
schiedene Technische Überwachungsve¬ 
reine, die Gesellschaft zur Prüfung von 
Software mbH in Ulm sowie die Gesell¬ 
schaft für Mathematik und Datenverar¬ 
beitung mbH in Sankt Augustin in Sa¬ 
chen Softwarequalität und Gütesiche¬ 
rung aktiv und bildeten mehr oder weni¬ 
ger die informelle Vororganisation bis 
zur Gründung der Gütegemeinschaft. 


Verbraucherschutz 
durch Qualitätsstandards 


Nachdem die genannten Organisationen 
standardisierte Güte- und Prüfkriterien 
für Software entwickelt hatten, wurden 
diese im Herbst 1985 vom RAL Deut¬ 
sches Institut für Gütesicherung und 
Kennzeichnung e.V und vom DIN Deut¬ 
sches Institut für Normung e.V. über¬ 
nommen und als Richtlinien für die Ver¬ 
gabe des RAL- und des DIN Prüfzei¬ 
chens (GZ 901 und DIN V 66285) ver¬ 
abschiedet. Software, die diesen 
Richtlinien entspricht, darf sich seitdem 
- und nach eingehender Prüfung durch 
die autorisierten Prüfstellen — mit den 
beiden abgebildeten Gütezeichen 
schmücken. 
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SOFTWARE 



Abb.l: An diesen beiden Siegeln läßt sich gütege¬ 
prüfte Software erkennen 


Die Tatsache, daß gleichzeitig zwei Prüf¬ 
zeichen verliehen werden, hat nichts mit 
Stempelgigantomanie zu tun, sondern re¬ 
sultiert daraus, daß RAL und DIN zwei 
vollkommen getrennte Institutionen sind. 
Während das Gütezeichen RAL für eine 
nach objektiven Kriterien ermittelte Pro¬ 
duktqualität verliehen wird, sich also 
ausschließlich auf das Produkt bezieht, 
dokumentiert das DIN Prüfzeichen, daß 
die durchgeführte Prüfung dieser Soft¬ 
ware nach den in der DIN Norm V 
66285 festgelegten Richtlinien erfolgte. 
Da beide Zeichen zwangsläufig zugleich 
vergeben werden, wird im weiteren Ver¬ 
lauf dieses Artikels ohne weitere Diffe¬ 
renzierung von einem Gütezeichen ge¬ 
sprochen werden. 

Die Gütegemeinschaft Software e.V. 
vergibt gemäß den von RAL und DIN er¬ 
lassenen Richtlinien das Gütezeichen, 
wobei angemerkt werden muß, daß die 
Softwareprüfungen selbst nicht von der 
GGS, sondern von autorisierten Prüfstel¬ 
len durchgeführt werden (siehe Abbil¬ 
dung 2). 

Nach eigenen Angaben verfolgt die GGS 
folgende Ziele: 

- Anhebung der Qualität der am Markt 
angebotenen Software 

- Harmonisierung der unterschiedli¬ 
chen Interessenlagen der Marktpartner 

- Schaffung allgemein gültiger Quali¬ 
tätsstandards 

- Herausgabe verbindlicher Güte- und 
Prüfbestimmungen 

- klare Kennzeichnung qualitätsgeprüf¬ 
ter Software 

- Weiterentwicklung der Qualitätsstan¬ 
dards und Prüfbestimmungen entspre¬ 
chend dem jeweiligen Stand der Technik 


Kein exclusiver Club, 
sondern offen für alle 


Die GGS ist nun beileibe kein exclusiver 
und abgeschlossener Club, der weit ab¬ 
gehoben von den Alltagsproblemen der 
Softwareanwendung seine Politik be¬ 
treibt. Denn die Mitgliedschaft für eine 


Einzelperson kostet pro Jahr 1.200 DM, 
eine Firma mit bis zu 30 Arbeitnehmern 
zahlt einen Jahresbeitrag von 1.250,- 
DM. Dies sind Beträge, die einen Beitritt 
in die GGS für alle Firmen attraktiv ma¬ 
chen sollten, die als Anwender und An¬ 
bieter ein Interesse an qualitativ hoch¬ 
wertiger Software haben. 

Die Gütegemeinschaft besteht z. Zt. aus 
über 80 Mitgliedern, die sich grob in drei 
Gruppen unterteilen lassen: Softwarean¬ 
bieter, Anwender und Prüfinstitutionen. 
Diese Zusammensetzung dürfte gewähr¬ 
leisten, daß die aus der Arbeit der GGS 
und ihrem Umfeld entstandenen und per¬ 
manent weiterentwickelten Güte- und 
Prüfbestimmungen von einer Ausgewo¬ 
genheit zwischen Maximalanforderun¬ 
gen der Anwender einerseits, und Bereit¬ 
willigkeit zur Qualitätssteigerung der 
Anbieter andererseits bestimmt werden. 
Der von einer Mitgliederversammlung 
gewählte Vorstand beruft auf Empfeh¬ 
lung der Geschäftsführung den Güteaus¬ 
schuß. Dieser erarbeitet die Güte- und 
Prüfbestimmungen , die Anträge auf 
Verleihung des Gütezeichens und vergibt 
das Recht zum Führen des Gütezeichens, 
das gegebenenfalls auch wieder aber¬ 
kannt werden kann. Unterstützt wird der 
Güteausschuß vom Wissenschaftlichen 
Beirat, der u.a. Empfehlungen zur Ak¬ 
tualisierung der Güte- und Prüfbestim¬ 
mungen aufgrund neuer wissenschaftli¬ 
cher Erkenntnisse ausspricht. Der Güte¬ 
ausschuß spiegelt in seiner Zusammen¬ 
setzung die drei genannten Interes¬ 
sengruppen von Softwareanbietern, An¬ 
wendern und Prüfinstitutionen wider. 


...auch die Prüfer werden 
immer wieder geprüft 


Wie schon angemerkt, wird die Software 
nicht von der Gütegemeinschaft selbst, 
sondern von autorisierten Prüfstellen ge¬ 
testet. Diese Prüfstellen müssen sich ih¬ 
rerseits vor ihrer Zulassung und dann in 
jährlichem Abstand einer strengen Au- 
torisierungsprüfung durch die Gesell¬ 
schaft für Mathematik und Datenverar¬ 
beitung (GMD) in St. Augustin unterzie¬ 
hen. Damit wird sichergestellt, daß auch 
in allen Prüfstellen exakt nach den Kri¬ 
terien der DIN Norm geprüft wird und 
sich nicht im Laufe der Zeit Fehlinter¬ 
pretationen der Güte — und Prüfbestim¬ 
mungen einstellen, die Verlauf und Er¬ 
gebnis der Softwareprüfungen beein¬ 
flussen. 

Durch diese permanente Kontrolle der 
GMD und die Fessel der normierten 
Güte- und Prüfbestimmungen werden 


Bertelsmann Datenverarbeitung GmbH 
Postfach 5555 
4830 Gütersloh 1 
Tel. (0 52 41) 8 20 51 

DTU Deutsche Treuhand 
Unternehmensberatung GmbH 
Friedrich-Ebert-Anlage 26 
6000 Frankfurt/Main 21 
Tel. (069) 74 08 16 

GPS Gesellschaft zur Prüfung 
von Software mbH 
Hirschstraße 16 
7900 Ulm 

Tel. (07 31)61 95 43 

Peat, Marwick, Mitchell & Co 
Große Gallusstraße 10-14 
6000 Frankfurt/Main 1 
Tel. (069) 21 64-0 

Rheinisch-Westfälischer TÜV 
Postfach 10 32 61 
4300 Essen 1 
Tel. (02 02) 82 50 

Treuarbeit Aktiengesellschaft 
Bockenheimer Anlage 15 
6000 Frankfurt/Main 1 
Tel. (069) 71 23-0 

TÜV Bayern e.V. 

Software-Prüfstelle 
Postfach 21 04 20 
8000 München 21 
Tel. (089) 57 91-19 54 

TÜV Berlin e.V. 

Software Prüfstelle 
Postfach 11 06 61 
1000 Berlin 11 
Tel. (030) 332 01-185 

TÜV Norddeutschland e.V. 
Software-Prüfstelle 
Große Bahnstraße 31 
2000 Hamburg 54 
Tel. (040) 85 57-577 

Technischer Überwachungsverein 
Rheinland e.V. 

Postfach 10 17 50 
5000 Köln 1 
Tel. (02 21)83 93-0 

TÜV Stuttgart e.V. 

Prüfstelle für Software 
Gottlieb-Daimler-Straße 7 
7024 Filderstadt 1 
Tel. (0711) 70 05-454 


Abb. 2: Die autorisierten Prüfstellen der 
Gütegemeinschaft 
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r~ Bericht 


sogar herstellereigene Prüfstellen von 
der GGS zugelassen, die jedoch aus¬ 
schließlich eigene Software prüfen dür¬ 
fen. Unter der Voraussetzung, daß die¬ 
se Prüfstellen organisatorisch unabhän¬ 
gig und streng von den Entwicklungsab¬ 
teilungen der jeweiligen Hersteller 
getrennt sind, dürfen z.B. IBM, Sie¬ 
mens, Philips eigene Prüfstellen unter¬ 
halten. Allerdings erscheint diese Kon¬ 
struktion der herstellereigenen Prüfstel¬ 
len trotz der Kontrollmaßnahmen nicht 
ganz unproblematisch. 


Die Softwareprüfung 


Will ein Softwarehersteller ein Pro¬ 
gramm mit dem Gütezeichen der GGS 
versehen, empfiehlt es sich, die jeder¬ 
mann zugänglichen Prüfkriterien schon 
bei der Planung des Programms zu be¬ 
rücksichtigen. Erfahrungsgemäß ist es 
recht schwierig und kostenintensiv, ein 
fertiges Programm nachträglich an die 
Prüfkriterien der Gütegemeinschaft an¬ 
zupassen. Dies dürfte einer der Gründe 
dafür sein, daß heute erst 22 Programme 
(siehe Abbildung 3) mit den Gütezeichen 
versehen sind. 

Denn der Versuch vieler Hersteller, 
schon vorhandene Software prüfen und 
auszeichnen zu lassen, scheiterte in den 
meisten Fällen daran, daß diese Software 
nicht den Gütebestimmungen entsprach 
und es den Herstellern zu kostspielig er¬ 
schien, ihre Programme nachträglich zu 
ändern. Diese Tatsache dürfte ein häu¬ 
fig vorgebrachtes Argument der Kritiker 
widerlegen — daß die erforderlichen 
Qualitätsstandards zu niedrig angesetzt 
und die Prüfkriterien zu sehr auf Forde¬ 
rungen der Softwareanbieter abgestimmt 
seien. 

Ein Anbieter, der sein Programm zur 
Prüfung geben will, sollte sich bei den 
verschiedenen autorisierten Prüfinstitu¬ 
tionen erst einmal über die anfallenden 
Kosten informieren, die bei den einzel¬ 
nen Institutionen durchaus variieren kön¬ 
nen. Hat er sich dann für eine Prüfstelle 
entschieden, reicht er sein Programm 
mitsamt der detaillierten Produktbe¬ 
schreibung und dem Bedienerhandbuch 
ein. 

Grundlage einer ersten Vorprüfung des 
Programms ist die Produktbeschreibung. 
Zu einer DIN gerechten Produktbe¬ 
schreibung gehören u.a. folgende An¬ 
gaben: 

— detaillierte Funktionsbeschreibung 

- Angaben zu Grenzwerten, z.B. max. 

Abh.3: Die bislang mit dem Gütezeichen ausgezeichneten Programme Anzahl der Datensätze pro Datei 


AVA Architekturprogramm für 
Angebot, Vergabe, Abrechnung 
Architext Dipl,-Ing. D. Grau 
In der Mordach la 
6109 Mühltal 

Prodent 

Zahnarztabrechnungssystem 
ChreMaSoft 
Hollerallee 23 
2800 Bremen 1 

FRODO 

Programm für Heizungstechnik u. 
Heizungsplanung 
ConSoft GmbH Computertechnik 
An der Christuskirche 15 
3000 Hannover 1 

GFU-Haus 

Hausverwaltungsprogramm 
GFU Software-Service GmbH 
Wermelskircher Str. 16 
5000 Köln 21 

Agtext 

Textverarbeitung 
A. Grutzeck Software Design 
Weidenweg 7 
6450 Hanau 

P-4705 

Schornsteinberechnung nach DIN 
4705 

Kaminbau Willi Stegemann 
Oststraße 5 
4405 Nottuln 

UNTWOP 

Standardprogramm für die Woh¬ 
nungswirtschaft 
D. Konertz GmbH 
Kunstfeldstraße 8 
5090 Leverkusen 

KONTRES 

Relationales Datenbak Management 
System 

Kontron Elektronik GmbH 
Oskar-v, — Miller-Str. 1 
8057 Eching 

MEMOIRE ® 

Lagerwirtschaftssystem für Juwelier 
Einzel- und Großhandel 
Middelberg + Göx 
Am Bürener Berg 7 
4531 Lotte 1 

Handwerkersystem 
Integrierte Betriebsorganisationslö¬ 
sung für Handwerksbetriebe 
Moser GmbH & Co. KG 
5120 Herzogenrath 

COBRA 

Programmgenerator für kfm. und ad- 
min. Anwendungen 
Moser GmbH & Co. KG 
5120 Herzogenrath 


OLYTEXT 

Bildschirm-Schreibsystem 
Olympia AG 
Postfach 960 
2940 Wilhelmshaven 

Finanzbuchhaltung 
Semmerling & Armbrecht 
Hauptstraße 133 
4800 Bielefeld 14 

SIPRO-X 

System für interaktive Projektpla¬ 
nung 

Siemens AG 
Postfach 83 09 51 
8000 München 83 

M.A.S.T. -PPS 

Produktionsplanungs- und Steue¬ 
rungssystem 

SRZ Siemag Rechenzentrum GmbH 
Obere Industriestr. 6 
5902 Netphen 

SAFE-Guard 
Benutzeroberfläche 
uti-maco Software GmbH 
Oeder Weg 52-54 
6000 Frankfurt 1 

Fastback 

schnelle Datensicherung 
uti-maco Software GmbH 
Oeder Weg 52-54 
6000 Frankfurt 1 

HASY-plus-Elektro Handwerker- 
Organisations-System 
Auftragsbearbeitung, Kalkulation 
Bois-S, Software GmbH 
Bachwiese 10 
6542 Dichtelbach 

MultiComm 
Kommunikationssystem 
ifs Computersysteme 
Am Hohenstein 3-5 
6233 Kelkheim/Ts. 

Varial 3000 

Finanzbuchführung 

Philips Kommunikations Industrie 

AG 

Weidenauer Straße 211-213 
5900 Siegen 21 

TOPFIB 

Finanzbuchführung 
Taylorix Organisation 
Siegler, Haußer GmbH & Co 
Postfach 829 
7000 Stuttgart 40 

PCAS-Handwerk 

Abrechnungspaket Baunebengewerbe 
mit eigener Datenbank 

Sibware PCAS Software 
Entwicklungs- und Vertriebs GmbH 
Am Ehrenmal 6 
4230 Wesel 
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— Angabe über die notwendige Hardwa¬ 
rekonfiguration und nötige Betriebssoft¬ 
ware 

— Angabe über Mindestkenntnisse des 
Anwenders zur Installation und zum Be¬ 
dienen des Programms 

— Angaben zur Einhaltung gesetzlicher 
Grundlagen oder branchenspezifischer 
Anforderungen 

— Angaben zur Wartung des Programms 

— Angaben zum mitgelieferten Hand¬ 
buch, zur Landessprache des Handbu¬ 
ches und zur Landessprache der Benut¬ 
zerschnittstelle 

Nur dann, wenn die Produktbeschrei¬ 
bung diesen formalen Anforderungen 
gerecht wird, findet die eigentliche Prü¬ 
fung statt. 

Sie beginnt mit der Kontrolle des Benut¬ 
zerhandbuches. Die Güte- und Prüfbe¬ 
stimmungen sehen zwingend vor, daß 
zum Programm ein gedrucktes Hand¬ 
buch oder zumindest ein ausdruckbarer 
Textfile vorliegt. Ein »selbsterklärendes« 
Programm, dessen Handhabung aus¬ 
schließlich durch aufrufbare Hilfstexte 
erklärt wird, hat keine Chance, das Gü¬ 
tezeichen zu bekommen. 


Das Handbuch muß einheitlich struktu¬ 
riert sein und über ein Inhaltsverzeichnis 
verfügen; ein Stichwortverzeichnis soll, 
muß jedoch nicht vorhanden sein. Alle 
Funktionen des Programms müssen in 
einer verständlichen Weise beschrieben 
sein. In der Konsistenzprüfung wird das 
Handbuch auf die einheitliche Verwen¬ 
dung von Begriffen und Funktionsbe¬ 
schreibungen untersucht. 

Der nächste Schritt besteht in der Instal¬ 
lationsprüfung, bei der zunächst einmal 
festgestellt wird, ob das Programm er¬ 
stens gemäß den Angaben der Installa¬ 
tionsbeschreibung einzurichten und 
zweitens mit der in der Produktbeschrei¬ 
bung angegebenen Mindestkonfiguration 
benutzbar ist. Weiterhin schreiben die 
Güte- und Prüfbestimmungen vor, daß 
die erfolgreiche Installation des Pro¬ 
gramms z.B. anhand eines Prüfpro¬ 
gramms oder eines Prüfdatensatzes 
nachvollziehbar ist. Zumindest muß in 
der Installationsanweisung ein Listing 
abgedruckt sein, mit dem sich kontrollie¬ 
ren läßt, ob auch wirklich alle Dateien 
komplett installiert wurden. 

Erst jetzt erfolgt die Überprüfung der 
Programminhalte. Anhand der Produkt¬ 


beschreibung wird zunächst einmal fest¬ 
gestellt, ob auch alle darin genannten 
Funktionen mitsamt den sich daraus er¬ 
gebenden Unterfunktionen im Pro¬ 
gramm enthalten sind. 

Ist dies geschehen, erfolgt die recht um¬ 
fangreiche und aufwendige Korrektheits¬ 
prüfung. Hierzu werden aus der Pro¬ 
duktbeschreibung und dem Benutzer¬ 
handbuch Prüffälle für jede Funktion 
konstruiert. Die Anzahl der Prüffälle pro 
Funktion richtet sich nach der Bedeutung 
der einzelnen Funktion für den Pro¬ 
grammablauf. 

Die Prüffalle werden nach in den Güte- 
und Prüfbestimmungen genau festgeleg¬ 
ten Methoden konstruiert. Vorgegangen 
wird nach der Grenzwertanalyse, der 
Äquivalenzanalyse und einer Ursache- 
Wirkungsanalyse. Im einzelnen darauf 
einzugehen, dürfte den Rahmen dieses 
Artikels sprengen; sie seien hier nur für 
die interessierten Leser erwähnt, die et¬ 
was mit diesen Begriffen anzufangen 
wissen. 

Wichtig für das Resultat der Prüfung ist, 
daß die vom Programm gemäß Produkt¬ 
beschreibung und Handbuch erwarteten 
Ergebnisse auch mit den tatsächlich ein- 



SIREN 

Die Schneider-Utilities 


ARNOR 

Anwender-Software 
auf EPROM oder Diskette 


PROTEXT/PROWORT Textverorbeitung 

Das Programm mit den Features professioneller 
Software. Superschnelle Textoperationen für olle 
Ansprüche. Große Textfiles. Für alle Drucker. 

Für alle CPCs S' -Diskette DM 94.90 EPROM DM 124.90 
PROTEXT/PROWORT für JOYCE (CPM+) DM 239.90 

PROMERGE Moilmergepaket für PROTEXT 

Mailmerge, Variablenverarbeitung, Calculator, Hin¬ 
tergrunddrucken, mehrspaltiges Layout, usw. 

Für alle CPCs 3"-Diskette DM84.90 EPROM DM 114.90 

UTOPIA Die BASIC-Erweilervng auf EPROM 

Alles für die ernsthafte BASIC-Programmierung. 

Ober 50 neue Befehle zum File- und Disk -handling, 
Programmierlullen Hervorragende Utihiysammlung! 

Für alle (PC s EPROM DM 94.90 

MAXAM Assembler/Disassembler/Monitor 

Das Standartwerkzeug für den Maschinensprache- 
Programmierer. Das kompl. Z80 Entwicklungssystem. 

Für alle CPC s 3 -Diskette DM 94.90 EPROM DM124.90 
MAXAM II für JOYCE (CPM+) DM 239.90 


DISCOVERY PLUS 

Tape to Dlsc Transfer (BACKUPI) 

Kopiert geschützte Software von Kass. auf Diskette. 

4 Kopierprogramme f. Speedlock, Headerlose u.v.a. 

Für alle CPCs 3 "-Diskette nur DM 59.90 
DISCovery User Service: 2 85 Transferlösungen und 
Tips zu 'Problemfällen' in DISCUS 1, 2, 3 und 4 

Je DISCUS DM 5.-, seperate Bestellung +DM1.- 

HANDY MAN 416 k pro 3"-Dlskette 

Superschnelles Formatierprogramm für alle Formate 
+202 k und 208 k Format. Läuft mit ein od. zwei 
Laufwerken auch unter CP/M. 6 weitere Utilities wie 
Diskettenstartmenü, Monitor, DISC/FILESEARCH etc. 

Für alle CPCs 3"-Disketle nur DM 59.90 

MASTERDISC 12 Dlskettenutililies 

Diskettenbackup, Directory-Editor, gelöschte Files 
retten, Fast-Formatter, File-Copy, Diskettenmonitor, 
Deprotector. 12 Spilzenutilities! 

für alle CrCs 3"-Diskeiie nur DM 59.90 

TWO ON ONE PACK 

Masterdisc und Handy Man auf einer Diskette DM 99.- 

PRINT MASTER 

Druckprogramm für DMP 2000/3000 und 
EPSON-Kompatible. 10 versch. Schriften, 
eigene Schriften entwerfen, 
versch. Screendumps. 

Druckt ASCII-Files, 

RSX-Ei Weiterungen. 

Für alle CPC’s 
3"-Diskette 
DM 59.90 


3"-Zweitlaufwerk AMDRIVE 

Quohtätslaulwerk in massivem Alugehäuse. Größe 
und Farbe passend zum CPC. Voll kompatibel. An¬ 
schlußfertig. Bei Bestellung CPC-Typ angeben! 

Der Preis: nur DM 333.- + DM 8.- Versandanteil 

Britannia EPROM-Karte Super Romplus 

EPROM-Karte für 14 EPROMS am CPC (auch 464). 
ROM-Manager Modul. 19 RSX-Befehle. Startmenü. 

DM 149.90 (Adapter für CPC 6128 DM 30.-) 

ROMBO EPROM-Karte für 8 EPROMS 
DM 119.90 (Adapter für CPC 6128 DM 30.-) 

Britannia PHASOR ONE Joystick 

Pistolgrip-Design. Microschalter. DM 39.90 

5UPERCOPY Uniwersnlprogrnmm für DNk.-Barkup 

Kopierprogramm mit Erfolgsgarantie! Bei Versagen 
bieten die Hersteller einen kostenlosen UPDATE. 

3' -Diskette für alle CPCs DM 79.- JOYCE DM 89.- 

3"-Disketten MAXELL CF2 10 st. dm 74.- 

PR8-SOFT Klaus-M. Pracht 
Postfach 500 

D-8702 Margetshöchheim 

24 Std.-Telefon: 

O09 31/46 4414 
Spiele zu Schleuderpreisen! 

Aktuelle Liste anfordern I j 
Auch JOYCE 
und PCI 
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getroffenen übereinstimmen. Wenn das 
Programm unter Berücksichtigung be¬ 
sonderer gesetzlicher Bestimmungen ar¬ 
beitet, z.B. Schomsteinberechnung nach 
DIN 4705, so wird das entsprechende 
DIN-Regelwerk zur Prüfung des Pro¬ 
gramms hinzugezogen. 

Ein nächster wichtiger Punkt betrifft die 
benutzerbezogene Robustheit des Pro¬ 
gramms. Selbstverständlich muß ein 
Programm Bedienungsfehler des An¬ 
wenders ohne Endlosschleifen, System¬ 
absturz, Datenverlust oder Datenzerstö- 
rung abfangen können. Einheitlichkeit 
und Verständlichkeit der Fehlermeldun¬ 
gen sind ein weiteres Kriterium bei der 
Prüfung des Programms. Die Fehlermel¬ 
dung muß den Benutzer eindeutig auf die 
Ursachen und auf notwendige Maßnah¬ 
men zur Behebung des Fehlers hin- 
weisen. 

Auch auf die Einheitlichkeit des Dialog¬ 
verhaltens wird großer Wert gelegt. 
Wenn z.B. der Befehl zum Verlassen ei¬ 
nes Menüs bei jedem Untermenü ein an¬ 
derer ist, dürfte dies einem positiven 
Prüfergebnis ziemlich abträglich sein. In 
diesem Zusammenhang wird auch noch 
einmal die Konsistenz im Gebrauch von 
Begriffen und Schlüssel Worten zwischen 
Programm und Handbuch geprüft. 

Eine Reihe von weiteren Prüfzielen kann 
sich aus Angaben des Herstellers in der 
Produktbeschreibung ergeben. So sehen 
die Güte- und Prüfbestimmungen z.B. 
keinen Zwang zur Angabe des Antwort¬ 
zeitverhaltens eines Programms vor. 
Macht jedoch ein Hersteller diese Anga¬ 
be freiwillig, werden die Prüfziele auto¬ 
matisch auf diese freiwillig gemachten 
Angaben erweitert. 

Der Ablauf des Prüfvorgangs wird lau¬ 
fend protokolliert, die Ergebnisse müs¬ 
sen unter gleichen Bedingungen selbst¬ 
verständlich jederzeit wiederholbar sein. 
Da es nicht Ziel der Prüfstellen ist, Pro¬ 
gramme »durchfallen« zu lassen, besteht 
in den meisten Fällen ein enger Kontakt 
zwischen Prüfstelle und Hersteller des zu 
prüfenden Programms. So können wäh¬ 
rend der Prüfung festgestellte Fehler 
u.U. noch kurzfristig vom Hersteller be¬ 
hoben werden. 

Festgestellte Fehler und Mängel werden 
in zwei Klassen unterteilt: 

In der Klasse 1 werden Fehler und Män¬ 
gel erfaßt, die wesentliche Forderungen 
der Güte- und Prüfbestimmungen nicht 
erfüllen. Programme mit Fehlem der 
Klasse 1 können nicht mit dem Gütezei¬ 
chen versehen versehen werden. Hier 
muß nach Behebung der Fehler durch 
den Hersteller eine Nachprüfung erfol¬ 
gen. Zu Fehlern der Klasse 1 gehören 


u.a.(im folgenden zitiert nach den Güte- 
und Prüfbestimmungen für Software): 

— Unvollständigkeit des Handbuches 

— Nichtausreichen der Mindestkonfigu¬ 
ration 

— Fehlen einer Funktion bzw. einer Teil¬ 
funktion 

— Fehlern oder Mängeln, die zum Pro¬ 
grammabsturz, Endlosschleifen Daten¬ 
verlust oder Datenzerstörung ßhren 

— Fehlem oder Mängeln, die zu falschen 
Ergebnissen ßhren 

— Nichterfiillang von genannten gesetz¬ 
lichen Bestimmungen 

Fehler und Mängel mit geringerer Be¬ 
deutung werden in der Klasse 2 erfaßt. 
Hier kann das Gütezeichen mit der Maß¬ 
gabe vergeben werden, daß diese Fehler 
innerhalb von 6 Monaten abgestellt wer¬ 
den und dies durch eine erfolgte Nach¬ 
prüfung belegt ist. 

Bei einer Nachprüfung wird nicht die ge¬ 
samte geschilderte Prozedur wiederholt. 
Vielmehr wird zuerst die fehlerhafte — 
und nun verbesserte Funktion unter¬ 
sucht. Anschließend werden zusätzlich 
noch alle die Funktionen kontrolliert, die 
Schnittstellen zu der veränderten und 
verbesserten Funktion besitzen. Damit 
soll sichergestellt werden , daß die Feh¬ 
lerbeseitigung einer Funktion nicht an 
anderer Stelle neue Fehler erzeugt hat. 
Wenn nach Prüfung oder gegebenenfalls 
Nachprüfung eines Programms lediglich 
Fehler der Klasse 2 zu Tage treten , er¬ 
stellt die Prüfstelle anhand der Protokolle 
einen Bericht und spricht eine Empfeh¬ 
lung zur Verleihung des Gütezeichens 
aus. 

Der Hersteller kann nun mit diesem Be¬ 
richt die Verleihung des Gütezeichens 
bei der GGS beantragen. Der monatlich 
tagende Güteausschuß erteilt dann nach 
Durchsicht des Prüfberichtes und der 
Produktbeschreibung die Autorisierung 
zum Führen des werbewirksamen Güte¬ 
zeichens. 

Die Kosten einer Softwareprüfung hän¬ 
gen zunächst einmal von Art und Um¬ 
fang des zu prüfenden Programms ab. 
Der Testaufwand für ein multitasking- 
und multiuserfahiges Programmpaket 
dürfte wesentlich höher sein, als für eine 
kleine Datenbankverwaltung. Eine wei¬ 
tere Einflußgröße auf die Kosten bilden 
die Spezialkenntnisse, die ein Programm 
von seinen Testern erfordert. 

Es ist empfehlenswert, sich vor der Prü¬ 
fung ein Kostenangebot von mehreren 
Prüfstellen machen zu lassen, da jede 
Prüfstelle ihren Aufwand anders ein¬ 
schätzen und dementsprechend kalkulie¬ 
ren wird. 

Eine Firma, deren Textverarbeitungs¬ 
programm mit dem Gütezeichen verse¬ 


hen ist, bezifferte die Kosten der Prüfung 
mit ca. 12.000 DM. In Abhängigkeit 
vom Absatz kalkuliert diese Firma die 
durch die Softwareprüfung verursachten 
Mehrkosten auf 80 Pfennige pro ver¬ 
kauftem Programm. 

In Anbetracht der durch das Gütezeichen 
hervorgerufenen verkaufsfördemden Ef¬ 
fekte, dürften diese beispielhaft genann¬ 
ten Zahlen auch für kleine Softwarehäu¬ 
ser kein Hindernis sein, gute Produkte 
prüfen und auszeichnen zu lassen. 


Die Bestrebungen der GGS, mit dem 
Gütezeichen Standards ßr Qualitäts¬ 
software zu setzen und damit auch ßr 
mehr Transparenz auf dem Software¬ 
markt zu sorgen, stoßen nicht auf den 
ungeteilten Beifall der Branche. 
Hauptsächlich sind es Scheinargu¬ 
mente, die in dieser Diskussion gegen 
die Gütegemeinschafi ins Feld geßhrt 
werden. Wenn aus der Vereinigung 
Deutscher Softwarehersteller (VDS) 
laut wird, das Bürgerliche Gesetzbuch 
reiche doch aus, um bei fehlerhaften 
Produkten das Recht des Käufers auf 
Wandlung oder Minderung durchzu¬ 
setzen, zeugt dies erstens von einer ge¬ 
wissen Naivität und zweitens von einer 
maßlosen Arroganz■ Denn wer ein 
Programm kauft, will damit arbeiten, 
und sich nicht u. U. monatelang mit 
Rechtsanwälten, Gutachtern und Ge¬ 
richten beschäftigen müssen. 

Ähnlich an der Sache vorbei geht das 
Argument, das Gütezeichen sei ein 
Vehikel der großen Softwareherstel¬ 
ler, um den Markt gegen kleinere Soft¬ 
warehäuser abzuschotten. Natürlich 
sind die Kosten ßr die Softwareprü- 
ßng nicht gering. Andererseits ma¬ 
chen sie nur einen kleinen Teil des Ge¬ 
samtbetrages aus, den heute auch ein 
kleines Unternehmen ßr Entwicklung 
und Vermarktung eines Produktes in¬ 
vestieren muß. Abgesehen davon bin 
ich der Meinung, daß im Zweifelsfall 
dem Verbraucherschutz ein größeres 
Gewicht beizumessen ist, als der Ge¬ 
fahr, daß ein kleines Softwarehaus ein 
Programm nur deshalb nicht ver¬ 
markten kann, weil die Prüfkosten ßr 
das Gütezeichen nicht aufgebracht 
werden können. 

Wie die noch geringe Zahl der Pro¬ 
gramme mit Gütezeichen zeigt, hat das 
Gütezeichen auch noch lange nicht die 
Bedeutung ßr den Softwaremarkt, 
daß ein Programm ohne Gütezeichen 
heute nicht mehr absetzbar ist. Die 
Softwarebranche wird sich jedoch 
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damit abfinden müssen, daß gütege¬ 
prüfte Software mittelfristig Qualitäts- 
Standards setzen wird, an denen sich 
andere Programme — ob geprüft oder 
nicht - messen lassen müssen. 

Eine Gefahr sehe ich allerdings in ei¬ 
ner allzu euphorischen Erwartungs¬ 
haltung der Anwender, die nun den¬ 
ken, mit einer gütegeprüften Softwa¬ 
re seien alle Probleme gelöst. 

Standardsoftware bedeutet nun ein¬ 
mal, daß ein derartiges Programm 
nicht auf die spezifischen Bedürfnis¬ 
se eines einzelnen Anwenders zuge¬ 
schnitten ist. 

Das Gütezeichen kann nur dafür ste¬ 
hen, daß ein Programm auch alle 
Funktionen auf weist, die in der Pro¬ 
duktbeschreibung genannt sind, die¬ 
se Funktionen mitsamt allen Unter¬ 
funktionen zu richtigen Ergebnissen 
führen und Fehlbedienungen nicht au¬ 
tomatisch zu Systemabstürzen und 
Datenverlust führen. 


Das Gütezeichen dokumentiert weiter, 
daß die Software auch wirklich gemäß 
den gesetzlichen Bestimmungen arbei¬ 
tet, die u. U. in der Produktbeschrei¬ 
bung genannt sind. 

Mehr kann das Gütezeichen derzeit 
nicht leisten. Alle Erwartungen, die 
darüber hinaus gehen, sind reines 
Wunschdenken und führen zwangs¬ 
läufig zu Enttäuschungen. 

Zu wünschen ist, daß die GGS ver¬ 
sucht, gemeinsam mit Industrie- und 
Handelskammern, Handwerkskam¬ 
mern und anderen berufsständischen 
Vereinigungen Prüfkriterien zu ent¬ 
wickeln, anhand derer sich die Bran¬ 
cheneignung eines Programmes prü¬ 
fen und testieren läßt. 

Weiterhin sollten die Pflichtangaben 
in der Produktbeschreibung z.. B. auch 
auf Angaben zum Antwortzeitverhal¬ 
ten eines Programms ausgeweitet 
werden. 


Zusammenfassend sei hier festgestellt, 
daß die Gütegemeinschaft Software 
e. V. einen außerordentlich wertvollen 
Beitrag z.u einer Qualitätsanhebung 
von angebotener Standardsoftware 
leistet. Mit der Gründung der GGS 
wurde ein Schritt in die richtige Rich¬ 
tung getan. 

Letztlich wird es jedoch immer die al¬ 
leinige Aufgabe des Anwenders blei¬ 
ben, ein Programm im Einzelfall dar¬ 
aufhin zu untersuchen, ob und inwie¬ 
weit es seinen spezifischen Anforde¬ 
rungen entspricht. 


Wer an weiteren Informationen über den 
»Software-TÜV« interessiert ist, oder 
der Gütegemeinschaft beitreten möchte, 
wende sich an die 

Gütegemeinschaft Software e.V. 
Lyoner Straße 18 
6000 Frankfurt/Main 71 

(W.Huske) 


Universeller EPROM-Programmer 4003 
für Schneider CPC 464 / 664 / 6128 



■ Programmiert illa gängigen EPROM- und EEPROM-Typen 
( z.B.: 2716, 27C16, 2732, 2732A, 27C32, 2758, 2764, 
2764A, 27C64, 27128, 27128A, 27C128, 27256, 27C256, 
2508, 2532, 2564, X2804A, X2816A, X2864A.. ) ■ Voll 
menügestauerte Software »i»f Kassette oder Diskatte 
* 32 KByte frei für EPROM-Daten ( Brennen des 27256 
ohne Nachladen ) ■ Keift Umschalter! Stecken oder Löten 
nötig ■ Programmier Spannung wird im Gerät erzeugt ■ Ver¬ 
bindung zum CPC über Flachbsndkebel und Interface-Kirt* mit 
durchgeFührtem Eapensionsport 1 Rote und grüne leuohtdiode zur 
Betriebs-Art-Anzeige ■ Komplett mit 28 poligem Tealool-Sockel 


■ Fertiggerit für CPC 464/664 DM 289,50 • Bausatz für CPC 464/664 DM 239,- ■ 

■ Fertiggerit für CPC 6128 DM 319,50 ■ Bausetz für CPC 6128 DM 269,- ■ 

■ Aufpreis für Softwert euf 3' Diskette : DM IS,- / «uf 5.25* Diskette DM 5,- ■ 


EPROM-Karte 2 - 6 4 K By t e für alle CPC 

■ Wehlweis* beatückber mit 2-64 KByte EPROM-Kepezi- 
tet ■ Arbeitet mit den EPROM-Typen 2716,-32,-64,-128 

■ Durchgeführter Erweiterungsbus ( Floppy kompatibel ) 

■ Autostart von BASIC- und/oder Assamblar-Progrsm- 
man » Komplett mit umlengreicher und komfortabler 
Software auf Kassette oder Diskette ■ Gleichermaßen 
für Profis und Einsteigsr geeignet ■ 

■ Fertiggerit für 464/664 DM 229.50 ■ Fertiggerit für 
6128 DM 249,50 ■ Bausatz mit Anlsilung für 464/664 
DM 199,50 ■ Bsusatz mit Anleitung für 6128 DM219,50 

■ Aufpreis für Software auf 3" Diskette : DM 15,- / euf 5 25* Diskette : DM 5,- ■ 

■ Fertiggerit ohne Software für CPC 464/664 ; DM 99,- / für CPC 6128 : DM 119,- ■ 

preisgünstige Matrix-Drucker 

SPEEDY 100-80 100 Zeichen pro Sekunde • FX80 kompatibel ■ Near Leiter Quality • 

■ Bia zu 142 Zeichen pro Zeile ■ Friktionswalzs und Trsktorsntriab ■ nur DM 739,- 

SPEEDY 130-80 130 Zeichen pro Sekunde ■ Bis zu 132 Zeichen pro Zeile » 9*9 Metri« 

■ IBM kompatibel ■ Ideal für PC 1512 ■ deutsches und englisches Handbuch ■ nur DM 639,- 
Citizen LSP-120D 120 Zeichen pro Sekunde ■ IBM und EPSON kompatibel ■ 9*9 Mstria 

■ 4K Puffer serianmißig ■ Schriften : Pioa, Elite, invers, proportional, kursiv, komprimiert, 
doppelt breit, doppelt hoch ... ■ Neer Letter Quality. ■ 2 Jahr* Garantie * nur DM 525,- 

Druckerkabel dobberud 

für CPC 464/664 DM 35,- Ifl O U/TRI E “ EL E H TR OH IH 

für CPC 6128 DM 39,- 

für PC 1512 DM 39 - Brahmestraßa 9. 6835 Brühl, Tel: (06202) 71417 



Neue Public Domain-Software für CPC, Joyce und C-128! 

Unser Software-Angebot wächst unaufhörlich: Ab sofort gibt es vier neue deutschsprachige Dis¬ 
ketten aus der Public-Domain bei uns! 

Bei uns bekommen Sie diese Programme mit deutschen Systemmeldungen und einem gedruckten 
Handbuch in deutscher Sprache - garantiert lauffähig aut Ihrem Schneider-CPC, Joyce und 
Commodore-128: 

Diskette 1: JRT-Pascal - vollständiges Pascal mit 64K-Strings, Overlays. * 

Diskette 2: ZM-Assembler, Editor, Linker, Debugger und intelligenter Disassembler 
Diskette 3: Künstliche Intelligenz - Interpreter für XLISP und E-PR0L0G* 

Diskette 4: C-Compiier Small-C - Fließkommazahlen, umfangreiche Bibliotheken, erzeugt 
puren Maschinencode' 

Diskette 5: Forth-83 - komplette Implementation von Forth mit Assembler, Decompiler, 
Screen-Editor, Kommentar-Screens. 

Diskette 6: CP/M-Utilities wie Dateikompressor, Diskmonitor, UNERA, Mehrspalten¬ 
druck, Super-Directory... 

Diskette 7: Alle Programme aus dem Großen CPC-Arbeitsbuch von M. Kotulla und L Mie- 
del (Franzis-Veriag, nur CPC) 

Diskette 8: Das Super-Adventure Colossal Cave - Suchen Sie Schätze in der Höhle! (Pro¬ 
gramm englisch, deutsche Beschreibung)* 

Und hier die brandneuen Disketten: 

Diskette 9: CPC-Disk Utilities - Diskettenmonitor, Kopierprogramm für geschützte Software, 
selektiver Dateilöscher (nur Schneider-CPC/AMSDOS) 

Diskette 10: BizBasic - Profi-Erweiterung für Basic mit relativer Dateiverwaltung, Sortie¬ 
ren in Maschinensprache, ACCEPT... (nur CPC) 

Diskette 11: Basic-Compller E-Basic - kompatibel CBASIC-Compiler. Riesiger Betehlsum- 
fang, auch Fließkommazahlen! 

Diskette 12: Turbo Pascal-Programme wie INUNE-Generator, Diskparameier, Grafik (Grafik¬ 
generator, GSX und CPC-ROM-Roulinen) 

' auf dem CPC-464/664 nur mit Speichererweiterung (64K genügen) Disketten 1-4 und 11 mit Wordstar 
kompatiblem Editor 

Commodore-128: Disk 12 ohne Grafik. Disketten in von 1570/1571 lesbarem Format Kein 1541-Format 
oder CP/M 2 2-Cartridge für C64! 

Weiterhin gilt unser Superpreis: nur 30,- Mark pro Diskettel Bitte geben Sie Ihr Diskettenformat (3 
Zoll, Vortex, 1570/1571) an Nachnahme oder Vorauskasse Keine Versand- oder Vterpackungsgebüh- 
ren! Ausland: nur Vörauskasse 


MARTIN KOTULLA 

Grabbestraße 9, B500 Nürnberg 90, Telefon: 0911 / 303333 

Weitere Bezugsquellen für CPC, Joyce und Commodore-128: 

TESCO GmbH. RüdenhausenerstraBe. 8714 Wlesentheid, Telefon 09383/1237 
Computer Solutions. BelgradstraBe 9.8000 München 40, Telefon 089/3088048 
Computer Hard-Sottwara Simon. EspenslraBe 79, 4600 Dortmund 1, Telefon (0231) 51 1370 
Wertere Bezugsquellen lür CPC und Joyce: 

Techn BüroIngeborgHochholzer,Erhard-Prunner-Str. 1,8062MarktIndersdorl,Telelon081 36/1625(auch 
3,5"/Vortex) 

Weeske Compuler-Elektronik, Potsdamer Ring 10, 7150 Backnang, Telefon 071 91/1528-29 
Computerslore. HochstraBe 11,8500 Nürnberg80, Telefon 0911/289028 
Anfragen von Händlern, OEMs und VARs sind stets willkommen! 
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In Heft 6/87 haben wir diesen Wettbewerb 
gestartet. Es geht darum, ein kleines Rät¬ 
sel zu lösen. Ein Lösungswort aus der 
EDV wird gesucht, wobei wir Ihnen die 
Suche absichtlich erschwert haben. Wenn 
Sie sich jedoch die Liste der ausgesetzten 
Preise ansehen, werden Sie sicherlich so¬ 
fort zu Papier und Stift greifen und sich an 
die Lösung des Rätsels begeben. 

Die Gewinne sind: 

1. Preis 

PC 1512 mit Farbmonitor, Laufwerk und 
Drucker. Damit kann der nächste Winter ru¬ 
hig kommen. 

2. Preis 

Festplatte 20MB von Vortex für Ihren Rech¬ 
ner (CPC, Joyce oder PC 1512) - Jede Men¬ 
ge Speicher zum Erfassen ihrer Urlaubsbe¬ 
kanntschaften 

3. Preis 

1 Softwarepaket im Wert von DM 500, - für 
ihren Computer. Falls die Nächte wieder län¬ 
ger werden. 

4. — 10. Preis 

1 Jahresabo der PC Schneider International, 
damit Ihnen auch 1988 die Lektüre nicht aus¬ 
geht. 

Das kann sich wirklich sehen lassen. Und um 
gewinnen zu können, müssen Sie sich auch 
nicht übermäßig anstrengen. Alles, was Sie 


tun müssen, ist die Seitenzahlen der Hefte 6, 
7 und 8 aufzuschrciben, auf denen folgendes 
kleines Rechnersymbol versteckt ist: pil 
Diese Symbole sind von 1 —21 durchnume¬ 
riert, denn soviele Buchstaben enthält unser 
Lösungswort. Dabei können auch mehrere 
Symbole auf einer Seite sein. Pro Heft finden 
Sie (oder auch nicht, das kommt auf Sie an) 
sieben dieser Symbole.Ganz Schlauen, die 
jetzt einfach alle Worte mit 21 Buchstaben 
ausprobieren wollen, sei verraten, daß die 
Zahlen verschlüsselt sind und auch nicht in 
der richtigen Reihenfolge in den Heften er¬ 
scheinen. 

Entschlüsselt und geordnet werden sie von 
folgendem kurzen Programm, welches Sie 
zur Eingabe der Com- 
puternummem und der 
dazugehörigen Seiten¬ 
zahlen auffordert und 
bei richtiger 'Fütte¬ 
rung’ das Lösungswort 
preisgibt.In diesem 
Heft finden Sie also die 
letze Gruppe von sie¬ 
ben Symbolen. Notie¬ 
ren Sie sich Nummer 
und Seitenzahl, es 
lohnt sich. 

Tippen Sie anschlie¬ 
ßend das kleine Basic- 
programm ab und star¬ 


ten es. Das ermittelte Lösungswort schreiben 
Sie auf eine frankierte Postkarte (nur solche 
nehmen am Wettbewerb teil) und senden die¬ 
se bis zum 21.8.1987 (Poststempel) an 

DMV GmbH 
— Sommerwettbewerb 
Postfach 250 
3440 Eschwege 

Vergessen Sie nicht, Ihren Rechnertyp und 
Ihre vollständige Anschrift auf der Karte zu 
notieren! 

Viel Spaß bei der Lösung wünscht Ihnen die 
Redaktion der PC International 


10 as-"” 

20 x-2 

25 bS«”0004172110160111090712201B0213051519060314" 
30 FOR i-1 TO 21 
40 PRINT”Camputer Nr.”i"auf S.”; 

50 INPUT s 
50 aS-aS+CHRSCs-x) 

70 x-x+H 

BO IF x>B THEN x-0 

90 NEXT 

100 taxtS-*’” 

110 FOR k-1 TO 21 

120 h-UALCniDSCbS,k*2-l,233 

130 textS-textS+niDSCa*,h,1) 

140 h-0 

150 PRINT textS 
150 NEXT 
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Aus aktuellem Anlaß 


Betr,: Leserservice DATABOX 

Liebe Leser, 

in jüngster Zeit häufen sich die Anfragen bezüglich unseres Dis¬ 
kettenservice DATABOX. Viele Leser meinen, daß auf der DA¬ 
TABOX zum Teil fehlerhafte Programme vorhanden sind, die nach 
dem Starten über das Menue eine Fehlermeldung wie z.B. Snake.bin 
not found ausgeben. 


Hierzu ist folgendes zu sagen: Grundsätzlich befinden sich alle Pro¬ 
gramme genauso auf der DATABOX, wie sie auch im dazugehöri¬ 
gen Heft veröffentlicht wurden. Das heißt, wenn Programmteile aus 
laufenden Programmen erst erzeugt werden müssen, so ist das auch 
auf der DATABOX der Fall. D.h., die Programme sind keineswegs 
fehlerhaft, sondern müssen erst lt. Bedienungsanleitung im Heft be¬ 
arbeitet bzw. generiert werden. 

Die Einrichtung der DATABOX hatte zur Grundlage, unseren Le¬ 
sern die für viele mühsame und zeitraubende Abtipparbeit zu er¬ 
leichtern. Es war ursprünglich nicht unsere Absicht, fertige und 
komplett lauffähige, sogenannte READY to RUN-Programme auf 
der DATABOX zu veröffentlichen, da wir der Meinung waren, daß 
dadurch der Lemcffekt verloren geht. 

Ein veröffentlichtes Programm sollte u.E. nicht nur fehlerfrei lau¬ 
fen, sondern zusätzlich etwas von seiner Struktur und seinem Ab¬ 
lauf vermitteln. Zudem sind bei einigen Programmen Handgriffe 
von Nöten, die auch in diversen anderen Programmen dann immer 
wieder auftauchen, wie z.B. das MERGEn von einzelnen Programm¬ 
teilen, Erzeugung von Binfiles etc. 

Natürlich ist es für uns überhaupt kein Mehraufwand, sofort lauf¬ 
fähige Programme auf der DATABOX zu bringen. 

Deshalb unsere Bitte an Sie liebe DATABOX-Kunden: 

Schreiben Sie uns doch ganz kurz Ihre Meinung zu diesem Thema. 
Wir möchten natürlich den DATABOX-Service so attraktiv wie 
möglich gestalten und hoffen auf Ihre rege Mithilfe. 

Also, noch einmal in Kurzform: 

Möchten Sie lieber fertige Programme auf der DATABOX oder sind 
Sie mit dem von uns bisher gewählten System zufrieden? 

Ihre Antwort richten Sie bitte an den DMV-Verlag, 

Stichwort: DATABOX, 

Fuldaer Str.6, 

3440 Esch wege 


02366/35017-019 


PANASONIC - 

MATRIXDRUCKER 


SYDDROM! 


Computer GmbH • Ewaldstr. 181 • 4352 Herten 
Unsere Ladengeschäftszeiten sowie unser 
Versandtelefon von: 

Mo - Fr 10.00 -18.00 Uhr, Sa 10.00 -14.00 Uhr 


KX-P 1091 

648,- 

KX-P 1092 

848,- 

KX-P 1592 (A3) 

1248,- 

KX-P 1595 (A3) 

1558,- 

6128 - Centr - Kabel 39,- 
IBM - Centr.-Kabel 29,- 

Druckerständer 

29,00 

Diskettenbox SS50 

für 3” Disk 

15,95 

MAXELL 3” aO 

0 . 

Disketten 

78,90 

Mouse 2tlg. für CPC 

ohne Software 

79,00 


Joysticks für CPC: 

Speed King 

33,00 

Competition Pro 

29,00 

Comp. Pro-neu- 

38,50 

STAR DIVISION FÜR CPC 

STAR WRITER 1 

198,00 

CREATOR-STAR 

49,90 

STAR-MON 

79,90 

MATHE-STAR 

79,90 

DISKSORT-STAR 

49,90 

DATEI-STAR 

98,00 

STATISTIK-STAR 

79,90 

COPY-STAR II 

39,90 

DESIGNER-STAR 

39,90 

COMPOSER-STAR 

98,00 

M.O.S. 

98,00 

alles auf 3” Disketten 



02366/35017-019 


Autorisierter 
Fachhändler 
für STAR-DIVISION 


398,00 
398,00 
598,00 
49,90 

BUSINESS-STAR PC 498,00 


PC-STAR WRITER 
FIBU-STAR PC 
V. 1 +V. 2 
4- Kontenblätter 


STAR-Software für JOYCE 


Bestell-Coupon 

Hiermit bestelle ich: 


CPC 6/87 


□ per Nachnahme 

Name: _ 


□ per V-Scheck 


Adresse: 


Händleranfragen erwünscht 


8’ 87 PC 25 






































[—Programm 


SMILING-BALL 

Smiling-Ball ist ein farbenfrohes Geschicklichkeitsspiel für die 
Schneider CPC’s. Der Spieler hat die Aufgabe, Smiley (den 
smilenden Ball), zu steuern. Dies ist sowohl mit einem Joystick 
als auch mit den Cursortasten möglich. Gesteuert wird Smiley, 
indem man einfach die Richtung angibt, in die er laufen, oder 
besser gesagt, rollen soll. Ist der Impuls gegeben, dann rollt 
er von alleine weiter. Stößt er gegen die Randbegrenzung des 
Spielfeldes, dann wird er in die entgegengesetzte Richtung zu¬ 


rückgeworfen. Ziel des Spiels ist es, die roten Herzen (100 
Punkte), die blauen Drops (50 Punkte) und die Sterne (10 Punk¬ 
te) zu fressen. Aber Vorsicht: Die Herzen sind von schwarzen 
Steinen eingeschlossen, die Smiley schwer im Magen liegen 
und zum Verlusteines seiner fünf Leben führen. Sind alle eß¬ 
baren Gegenstände gefressen, dann kommt man in den näch¬ 
sten Level. Nach entweder fünf Vergiftungen oder nach Ab¬ 
lauf der 5000 Zeiteinheiten ist das Spiel beendet. Schafft man 
alle Level (es gibt drei davon), dann erhält man die restlichen 
Zeiteinheiten als Bonus. Also dann ... good smile! 

(M. Srowig) 


= 3 




570 

1F !NKEY(2)=0 OR JOY(0)=2 THEN Impuls 

[14083 

580 

IF INKEY (8) =0 OR JOY<0>=4 THEN Impuls 

C2165 J 

590 

IF lNKEY(1)=0 OR JOY<0)«8 THEN impuls 

£20073 

600 

GOTO 410 


[450] 

610 



[117) 

620 

1 inks 


C1103J 

630 

LOCATE xloc.yloc 


[603] 

640 

PAPER 2:PEN 3sPRINT CHR*(207) 


[1810) 

650 

x = x- 1 


£849) 

660 

GOSUB 860:’test 


[1229] 

670 

RETURN 


[555] 

680 

rechts 


[723] 

690 

LOCATE xloc.yloc 


C603) 

700 

PAPER 2:PEN 3:PRINT CHR*(207) 


C1810) 

710 

x = x + i 


C 853) 

720 

GOSUB 860:’test 


C1229) 

730 

RETURN 


£555 3 

740 

oben 


[ 100) 

750 

LOCATE xloc.yloc 


£603) 

760 

PAPER 2iPEN 3:PR 1 NT CHR*(207) 


£1810) 

770 

y = y—1 


C 773 ] 

780 

GOSUB 860:'test 


C12293 

790 

RETURN 


[555 3 

800 

unten 


(531) 

810 

LOCATE xloc,yloc 


£6033 

820 

PAPER 2:PEN 3:PR1NT CHR*(207) 


[1810) 

830 

y = y+ 1 


£809] 

840 

GOSUB 860:’test 


£1229) 

850 

RETURN 


[5553 

860 

Test 


£973 

870 

IF x<l THEN x=l:impu1s=2 


£9993 

880 

IF x>20 THEN x=20:impuIs=1 


£15083 

890 

IF y<1 THEN y=1:impu1s=4 


£ 18873 

900 

IF y>15 THEN y=15:impu1s=3 


[10513 

910 

IF Zeichen*(x,y)=CHR*(207) THEN 

RETUR 

C21643 

920 

IF zeichen*(x,y)=CHR*< 228) THEN 

score 

£4179] 

“score+100:SOUND 1,150,10,15,1 



930 

IF zeichen*(x,y)=CHR*(143) THEN 

SOUND 

£3209] 

1,600,20;GOSUB 980:’leben 



940 

IF zeichen*(x,y)=CHR*(238) THEN 

score 

[28713 

=score+10:SOUND 1,20,10,15,1 



950 

IF zeichenllx,y)=CHR*(231) THEN 

score 

£29463 

=score+50:SOUND 1,100,10,15,1 



960 

zeichent(x,y)=CHR*(207) 


C18483 

970 

RETURN 


£555] 

980 

l ife= 1 ife -1 


£5193 

990 

IF 1ife = 0 THEN GOTO 1860:’Game over 

£2154) 

1000 

LOCATE 39,(1ife+l)#2:PRINT ” " 


£14693 

1010 

RETURN 


£5553 

1020 

’ 


£117] 

1030 

•SCREENS 


£714) 

1040 

FOR y=i TO 15 


£11103 

1050 

FOR x=l TO 20 


£753] 

1060 

Zeichen*< x,y)=CHR*(207) 


£ 18483 

1070 

NEXT:NEXT 


£10223 

1080 

IF 1eve1=1 THEN RESTORE 1310 


£ 1314] 

1090 

IF 1eve1=2 THEN RESTORE 1350 


£829) 

1100 

IF 1eve1=3 THEN RESTORE 1380 


£6353 

1110 

FOR n=1 TO 50 


£894) 

1120 

READ x,y,eher:Zeichen*(x,y) 

= CHR* 

£ 17133 

(char) 



1130 

IF x=0 THEN 1180 


£6553 

1140 

zeicheni(x,16-y)= CHR*(char) 


£ 17153 



i n 

frM 

für 464-664-6128 T 

IF■ 

1 _Hfl 


10 ’ 

ttNft***************** 

£6653 

20 ’ 

* SMILING - BALL * 

[4163 

30 ' 

* programmmiert von* 

[14773 

40 * 

* Mario Srowig * 

£5523 

50 ’ 


£665) 

60 ’ 


£ 117] 

70 ’ 

Initialisierung 

[1300] 

80 ’ 


£117) 

90 

INK 1,6:1NK 2,2:INK 3.24:INK 0.0 

£18803 

100 

hiscore=0 

£2163 

110 

DIM zeichen*(20.15) 

£745) 

120 

ENV 1,10,-1,2 

£448) 

130 

GOSUB 1430:'TitelbiId 

£ 19103 

140 

’ 

£ 1173 

150 

’Aufbau-SpielfeSd 

£ 11073 

160 

’ 

£117] 

170 

MODE 1:RESTORE 240 

£ 1254] 

180 

FOR loop=l TO 6:READ xIoc,y!oc,anz,p 

£ 18253 

pa, 1 i n 


190 

PEN p:PAPER pa 

£ 1001 ] 

200 

FOR n=1 TO lin 

£7123 

210 

LOCATE x1oc,yIoc:PR I NT STR ING*(an £2206) 

z,CHR*(207)> 


220 

y1oc=yIoc+1 

£682) 

230 

NEXT:NEXT 

C1022) 

240 

DATA 11,3,24,1,2,19, 12,4,22,1,3,17, 

£2104) 

13, 5 

,20,2,3,15 


250 

DATA 2,4,8.1,1,5, 2.10,8,1.2,5, 2,16 

£ 15563 

8, 1. 

3,5 


260 

PAPER 3:PEN 0:LOCATE 7.23:PR INT"SMILI [45103 

NG-BALL ";CHR*(164); H MS-DATA 1987" 


270 

PAPER 3 

£825 3 

280 

PEN 1:LOCATE 3,5:PRlNT"SCORE " 

£2545) 

290 

PEN 2:LOCATE 3,11:PR INT"LEVEL " 

£ 15383 

300 

PEN 0:LOCATE 3,1?:PRINT" TIME " 

£ 17203 

310 

PEN 1:PAPER 2:F0R yl=2 TO 10 STEP 2:L £40223 

OCATE 39,y1:PR I NT CHR*(224):NEXT 


320 

’ 

£1173 

330 

’Reset 

£424) 

340 

* 

£117) 

350 

1 eve 1 * 1: 1 ife = 5:switch = 0:score = 0:zeit 

C2898) 

5000 


360 

GOSUB 1030:’screens 

£23213 

370 

x=10:y=8:impuls=0 

£18293 

380 

’ 

£1173 

390 

’Hauptschi elfe 

£866 3 

400 

’ 

£ 1173 

410 

xloc=x+12:yloc=y+4 

£2534) 

420 

LOCATE 3,7:PR I NT score 

£889) 

430 

LOCATE 3,19:PRINT zeit:zeit=zeit-1 

C15973 

4 40 

LOCATE 4,13:PR 1 NT level 

£ 1176 3 

450 

LOCATE xloc.yloc 

£603 3 

460 

PEN 0:PAPER 1:PRINT CHR*<224) 

£20613 

470 

IF score=1920 THEN 1 eve 1 = 1 eve 1 + 1 : swit [43533 

ch= 1 

. :G0T0 1030 


480 

IF score=5600 THEN leve1=1eve1+1:swit C48833 

ch=l 

. :GOTO 1030 


490 

IF score=12640 THEN 1860 

£ 1217) 

500 

IF ze11<=0 THEN 1860 

£9433 

510 

IF Impuls«! THEN GOSUB 620: Minks 

£29923 

520 

IF impuls=2 THEN GOSUB 680:’rechts 

£696 3 

530 

IF impu1s=3 THEN GOSUB 740:'oben 

£21043 

540 

IF impuls=4 THEN GOSUB 800:’unten 

£17483 

550 

IF INKEY*«"" THEN 410 

£886) 

560 

IF INKEY(0)=0 OR J0Y(0)=1 THEN impuls £19873 
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1150 

Zeichens(21-x,16-y)=CHRS(char) 

[1887] 


1540 

LOCATE 5,8:PR I NT b$;" BALL 

[1457] 

1160 

Zeichens(2l-x,y)»CHRS(char) 

t1383] 


«;b$ 



1170 

NEXT 

t 350 ] 


1550 

LOCATE 5,9:PR 1 NT d$;SPACES(15);dS 

[24023 

1180 

FOR y1oc=5 TO 19 

t 1053] 


1560 

LOCATE 5, 10:PR 1 NT eS;SPACES(15);eS 

[17803 

1190 

FOR xIoc=13 TO 32 

C1106] 


1570 

LOCATE 5,11:PR I NT b*;SPACES(15);bS 

[1494] 

1200 

LOCATE xloc,yloc 

C60?] 


1580 

LOCATE 5,12:PR 1 NT" aSjSPACES(17);a 

(17473 

1210 

aS=zeichen*(xloc-12,yloc-4) 

C975 ] 


$;" " 



1220 

IF aS =CHRS(228) THEN PEN 1:PAPE 

[1218] 


1590 

PAPER 1:PEN 3 

[8683 

R 2 




1600 

LOCATE 8,20.: PRINT" Press any key to 

[39863 

1230 

IF aS =CHRS(238) THEN PEN ItPAPE 

C1739] 


Start 

»T 


R 3 




1610 

CALL &BB03 

C 396 ] 

1240 

IF a$=CHRS(143) THEN PEN OsPAPE 

[927] 


1620 

Ti te1 me 1odie 

[1339] 

R 0 




1630 

part=l 

[741 ] 

1250 

IF a$=CHRS(231) THEN PEN 2:PAPE 

[1784] 


1640 

RESTORE 1660 

[587] 

R 3 




1650 

FOR n=1 TO 8:READ periode1<n):NEXT 

[2274] 

1260 

IF aS=CHRS(207) THEN PEN 2:PAPE 

[1531] 


1660 

DATA 478,478,239,239,478,478,239,239 

C 2069 3 

R 3 




1670 

RESTORE 1820 

[9223 

1270 

PRINT aS 

£399] 


1680 

FOR takt=l TO 8 

[8563 

1280 

NEXT:NEXT 

C1022] 


1690 

FOR steps=l TO 8 

C 575 ] 

1290 

IF switch=l THEN Score»score*1.5;GOT 

[1165] 


1700 

SOUND 1,periodel(steps)/part, 15, 

[27293 

0 370 




15, 1 



1300 

RETURN 

[555] 


1710 

READ pS 

[4153 

1310 

DATA 9,1,238,3,2,143,9,2,236,2, 3,143 

[25033 


1720 

IF p$ = "@" THEN perlode4=95 

[18203 

. 3,3, 

228,4,3,143,9,3,238 



1730 

IF p$="c" THEN periode4=119 

t 1926 3 

1320 

DATA 2,4,143,3,4,228,4,4,143,6,4,231 

[26421 


1740 

IF pS="g" THEN periode4=159 

[15933 

, 9,4, 

238,7,5,231,9,5,238 



1750 

IF P S="-" THEN periode4=0 

[ 16573 

1330 

DATA 8,6,231,9,6,238,1,10,238,2,10,2 

[3185] 


1760 

SOUND 4,periode4/part,15 

[2462] 

38,3, 

10,238,4,10,238,5,10,238 



1770 

SOUND 2.periode4/part+1,15 

[22123 

1340 

DATA 6,10,238,7,10,238,0,0.0 

[1396] 


1780 

WHILE SQ <1)>127: 1F INKEYS<>"" TH 

[28753 

1350 

DATA 7,1,231,3,2,143,7,2,231,9,2,231 

(2841] 


EN RETURN:WEND 


.2,3, 

143,3,3,228,4,3, 228 



1790 

NEXT:NEXT 

[10223 

1360 

DATA 6,3,143,7,3,231,2,4,143,3,4,228 

C3259] 


1800 

part=part+0.3:IF part>2 THEN part=l 

[24693 

,4,4, 

228,4,5,143,1,6,238 



1810 

GOTO 1670 

[309] 

1370 

DATA 3,6,238,5,6,238,7,6,238,2, 7, 238 

t 3447 3 


1820 

DATA e.-,c,-,g,-,e,-,c,-,g,-,e,-,c,- 

£4224] 

,4,7, 

238,6,7,238,8,7,238,0,0,0 



, e , - , 

g»-,c,-,g,-,e,-,c,-,g,-,e,- 


1380 

DATA 1.1,228,2,1,228,3,1,228,4,1,143 

[2565] 


1830 

DATA c,-,d,d,-,d,d, - , - 

[31183 

,5,1, 

231,9,1,238,1,2,228 






1390 

DATA 2,2,228,5,2,231,8,2,238,1,3,228 

£24403 


1840 

RETURN 

C 555 } 

,3, 3, 

143,5,3,231,8,3,230 



1850 

9 

C1173 

1400 

DATA 1,4,143,4,4,143,5,4,231,7,4,238 

C 2693] 


1860 

'Game over 

[9533 

,1,5, 

231,2,5,231,3,5,231 



1870 

9 

[1173 

1410 

DATA 4,5,231,5,5,143,6,5,238,5,6.238 

[13653 


1880 

score=score*1.5+zeit 

[1864] 

,0,0 

0 



1890 

IF score>hiscore THEN GOTO 1930:'Bes 

[33623 

1420 

• 

[ 117] 


t sitil 1er 


1430 

* Tite1 bi Id 

£797 3 


1900 

LOCATE 3,7:PRINT score 

[889 3 

1440 

» 

£117] 


1910 

LOCATE 17,13 : PAPER 2:PEN 1:PRINT "GA 

C 3003 3 

1450 

MODE 1 

£506 3 


ME - 

OVER" 


1460 

PAPER 3:PEN 2 

£1144] 


1920 

FOR pause=1 TO 2000:NEXT : GOTO 130 

C 2589 ] 

1470 

a$*STRINGS(6,CHRS(143>):bS=STRINGS(8 

C 3628 3 


1930 

’ Best smi1 er 

[8193 

,CHR $ (143) > 



1940 

MODE 0 

[507] 

1480 

cS = CHRS(143 )+" ” + STR 1 NGS < 2,CHRS(143 

C 2015 3 


1950 

PAPER 1 : PEN 3:L0CATE 3,2 : PR INT"CQNGR 

[32513 

) ) + " 

"+CHRS ( 143 ) 



ATULATIONS 


1490 

dS =CHRS ( 143) +" " + STR 1NGS(4,CHRS (143) 

C1510] 


1960 

PAPER 2 : PEN 3:L0CATE 3,4:PRINT" You 

[34583 

)+" 

+CHRS(143) 



ar e 

the " 


1500 

eS=STRINGS(2,CHRS(143 ))+" "*STRIN 

[ 3774 ] 


1970 

LOCATE 3,6 : PR I NT" best SM 1 LER " 

C2290J 

GS (2 

CHRS ( 143) ) 


1980 

LOCATE 3,8 : PR 1 NT" today " 

130533 

1510 

LOCATE 5,5 : PR I NT" aS ; SPACES ( 17)jaS 

[2376] 


1990 

PAPER 1 : PEN O-.LOCATE 3,11:PRINT" you 

[3667] 





r score is " 


1520 

LOCATE 5,6:PR J NT bS ;» S M 1 L I N G 

[25613 


2000 

LOCATE 7,12:PR I NT score 

[9613 

";b$ 




2010 

hiscore=score 

[1753 

1530 

LOCATE 5.7 : PRiNT cS ; SPACES ( 15 ); cS 

£21383 


2020 

FOR pause=1 TO 3000 : NEXT : GOTO 130 

£2158] 


— 


COMPUTERKAUF 
leicht gemacht! 

Wir finanzieren Ihren Computer und Zubehör. 
Auch für Händler interessant. Info anfordern. 

SKG BANK 

Postfach 321, Cecilienstr. 4,6600 Saarbrücken 
Telefon (0681) 3030-111, Telex 4421344 



TAS 


(inkl. 200-seitigem dt. Handbuch) 


198 ,- 


Relationale Datenbank/Programmiersprache mit Compiler 


TAS Leistungsdaten 

max. 16 geöffnete Datendateien 
max. 16 Schlüsseltelder pro Datei 
max. Feldgröße 254 Zeichen 
max. 255 variablen pro Programm 


max. Datensatzgröße 10.254 Zeichen 
unlimitierte Anzahl an Feldern pro Datei 
unlimitierte Dateigröße 
max. 65,535 Datensätze 


Mit TAS entwickeln Sie Ihre eigenen menügesteuerten Programme von der einlachsten Adreß- 
verwaltung bis zur Fakturierung oder Finanzbuchhaltung. 

Mit TAS erwerben Sie eine Programmiersprache mit vielfältigen Möglichkeiten, einen Compi¬ 
ler und eine komfortable Adressenverwaltung, die Sie aut Ihre eigenen Bedürfnisse anpassen 
können, da ab sofort der komplette Quellcode mit ausgelietert wird. 


Ab sofort auch eine MS-DOS Version (TAS Plus) für den Schneider PC bei uns für 
DM 349,- erhältlich. 

Info kostenlos, Demo TAS Plus DM 20,- 


Händleranfragen erwünscht. Demo TAS DM30,- 


UBLFGRHG HER5CHKE DRTEHTECHMK 

7034 Gärtringen • Aidlinger Weg 6 • Tel.: 07034/29610 
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I Programm 



Der Spaceglider Cobra Mk /// in Action 


s 

1 

ace G 

lider 


■ 

_ 


Eine Cobra Mk ITI dockt an die Raumstation des Planeten Zaon- 
ce, lädt ein paar Tonnen Maschinen ab und verschwindet wieder. 
Doch was passiert mit den ganzen Handelsgütern, wenn sie in der 
Station sind? Sie werden ganz einfach zu einer der 6 Bodenstatio¬ 
nen teleportiert und von dort durch kleine Raumgleiter weiterver¬ 
teilt. Sie verkörpern nun einen dieser Piloten, die diese Aufgabe 
erledigen. Da dies jedoch ein nicht ganz ungefährliches Unterneh¬ 
men ist, sind Sie der einzige, der dies auf dem Planeten Zaonce 
noch tut, alle anderen Piloten wurden durch Roboter ersetzt. Sie 
müssen nun versuchen, so viel Geld wie möglich zu verdienen, be¬ 
vor Sie sich ebenfalls zur Ruhe setzen. 


Hinweise zum Abtippen 

- Teil 1 abtippen und abspeichern. 

- Teil 2 abtippen, auf einer separaten Kassette/Diskette abspei¬ 
chern und starten. Wenn kein Fehler aufgetreten ist, den Binärteil 
hinter Teil 1 abspeichem. — Teil 3 abtippen und unter dem Namen 
»GLIDER.PRG« abspeichern. Beim Abtippen sollten Sie darauf 
achten, keine überflüssigen Leerzeichen mit abzutippen (CPC 
464-Besitzer sollten vor dem Abtippen POKE &AC00,255 einge¬ 
ben), da das Programm fast den gesamten Speicher belegt. Beim 



S U TT T T 


£ 1 





Der Handelscomputer: Hier ist Handeln, Kaufen oder Verkaufen angesagt. 


Abspeichem kann es zu einem Memory Full Error kommen, wenn 
Sie vorher nicht CLEAR eingeben. Falls Ihnen das Programm zu 
schwer ist, können Sie in Zeile 60 die Variable ’etr’ mit der ge¬ 
wünschten Anzahl Ersatztransporter belegen. 


Beschreibung der RSX-Befehle 


ISSET,x,y,adr: 

Setzen eines Shapes 

ISDEL,x,y,adr: 

Löschen eines Shapes. Dabei wird der Hintergrund aus einem 2. 
Bildschirmspeicher (Adresse &5000) gelesen. 

lSMOVE,xl,yl,x2,y2,adr: 

Bewegen eines Shapes von x2/y2 nach xl/yl. 

IXSET,x,y,adr: 

Das Shape wird mit dem Hintergrund verknüpft (XOR). 
IXMOVE,xl,yl,adrl,x2,y2,adr2: 

Löschen des Shapes adrl von xl/yl und Setzen des Shapes adr2 an 
x2/y2. 

lCHECK,x,y,adr: 

Kollisionsabfrage, das Ergebnis wird in Speicherstelle &A6A0 ge¬ 
schrieben. Für die oben genannten Befehle gilt: 
x — 0-79, y = 0-199 , adr=Adresse des Shapes. Die ersten beiden 
Bytes des Shapes geben die Breite und die Höhe des Shapes in By¬ 
tes an. 

IGET: 

kopiert den Bereich von &5000 bis &8FFF langsam in den Bild¬ 
schirmspeicher. 

ICLS: 

langsames Löschen des Bildschirms 
ISCROLL.ge: 

Eine interruptgesteuerte Routine ändert mit der Geschwindigkeit 
1/ge die Farben 1-10. Die Farbtabelle befindet sich an Adresse 
&A392. 

ISCROFF: 

Abschalten der Routine. 

IFLICKER,dauer: 

Sehr schneller Farbwechsel von Pen 1. 

IJOY,§x,§y,§feuer: 

Joystickabfrage, schreibt das Ergebnis in die Variablen x, y und 
Feuer. 

IDRAW: 

Zeichnen des Farbbalkens beim Aufladen der Waren. 


Spielanleitung 


Nach Beendigung des Ladevorgangs erscheint das Titelbild. Um 
das Spiel zu starten, müssen Sie den Feuerknopf drücken. Nun 
wird Ihnen mitgeteilt, welche Station gerade neue Waren erhalten 
hat. Durch erneutes Drücken des Feuerknopfes starten Sie. Sie 
müssen nun so schnell wie möglich die Station erreichen. Mit 
Druck auf Feuer + Joystick nach hinten können Sie Ihren Gleiter 
beschleunigen, Feuer 4- Joystick nach vorne bremst den Gleiter ab. 
Die linke Anzeige gibt an, welche Station Sie zuletzt passiert ha¬ 
ben. Die rechte Anzeige zeigt Ihr Ziel an. Um bei der Zielstation 
zu landen, genügt es, ganz unten in der Nähe der Station zu flie¬ 
gen. Bei einer Kollision mit einem der Gesteinsbrocken, die Ih¬ 
nen auf Ihrem Flug entgegenkommen, verlieren Sie den Gleiter 
und die an Bord befindlichen Waren. Sie werden jedoch von Ihrer 
Versicherung mit 10 Credits pro Warencontainer entschädigt. 
Nachdem Sie Ihr Ziel erreicht haben, müssen Sie noch einen en¬ 
gen Schacht durchfliegen, bevor sich die blinkende Schleuse öff¬ 
net. Dabei gilt: Joystick nach rechts = linkes Triebwerk zünden. 
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Programm | 


Joystick nach links = rechtes Triebwerk zünden, Feuer = unter¬ 
es Triebwerk zünden. Danach wird die Verbindung mit dem Han¬ 
delscomputer aufgenommen. Sie können nun durch Anwählen von 
"KAUFEN« oder »VERKAUFEN« Waren kaufen oder verkaufen. 
Dazu steuern Sie den Pfeil auf die gewünschte Ware und lösen 
durch Druck auf Feuer den Kauf bzw. Verkauf von einem Waren¬ 
container aus. In dem geöffneten Window sind Angaben über den 
Stückpreis und die vorhandene Menge pro Ware vorhanden. Die 
durchschnittlichen Preise sind: 


Ersatzteile: 

10 Credits 

Maschinen: 

20 

Credits 

Batterien: 

15 Credits 

Computer: 

40 

Credits 


100 



(117) 

110 

• Teil 1 


(202) 

120 

* 


(117) 

130 



(10513 

140 

'« SPACE GLIDER ■ 



150 

* * k 


(175) 

160 

’« (C) 1907 by « 


£341) 

170 

' • Andromeda-Solt • 



180 

’ « N 


(1753 

190 

'» urltten ln 1986/1987 by « 


(1178) 

200 

'« Oliver Heggelbacher « 


(1056) 

210 



£175) 

220 



C10513 

230 

' 


£ 1173 

240 

SYMBOL AFTER 256 : MEMORY S.4FFF: SYMBOL AFTER 48 


(2074 3 

250 

ENV 1,3.4,1,3,-1,6 


£5223 

260 

ENV 2,3,4,1,4,-1,9,1,-1,3 


(1138) 

270 

ENV 3,4,3,1,6,-2,1 



260 

ENV 4,1,10,1,1,-10,1 


£029) 

290 

ENV 5,3,4,1,12,-1,6 


[1166] 

300 

ENV 6,1,12,1,1,0,21,1,-12,2 


(765 3 

310 

ENV 7,1,12,1,1,0,45,1,-12,2 



320 

ENV 8,1,12,1,1,0,93,1,-12,2 


(6253 

330 

ENV 9.1,12,1,1,0,69,1,-12.2 


(993) 

340 

ENV 10,1.12,1,1,0,21,1,-12.2,1,0,24 


(13653 

350 

ENV 11,1,13,2,5,-1,4,1,-8,2,1,0,24 



360 

ENT-1,1,-24,10,1.-15,10,1,39,10 


£ 16843 

370 

ENT-2,2,1,1,4,-1,1,4, 1,1,2,-1,1 


(1572) 

360 

ENT-3, 1,1,1 


(5153 

390 

SYMBOL 48,126,102,102,102,102,102,126,0 


(1714) 

400 

SYMBOL 49,6,6,6,6,6,6,6,0 


£17073 

410 

SYMBOL SO,126,6,6,126.96,96,126,0 


(15593 

420 

SYMBOL 51,126,6,6,126,6,6,126,0 


£ 1868) 

430 

SYMBOL 52,102,102,102,126,6,6,6,0 


(19451 

440 

SYMBOL 53,126,96,96,126.6,6,126,0 


(17503 

450 

SYMBOL 54,126,96,96,126,102,102,126,0 


(25403 

460 

SYMBOL 55,126,6,6,6,5,6,6,0 


(1S39) 

470 

SYMBOL 56,126,102,102,126,102,102,126,0 


(25513 

480 

SYMBOL 57,126,102,102,126,6,6,126,0 


(22633 

490 

SYMBOL 128,255,255,192,207,206,208,208,208 


(26103 

SOO 

SYMBOL 129,255,255,3,243,11,11,11,11 


£ 19411 

510 

SYMBOL 130,208,208,208,208,207,192,255,255 


(2744) 

520 

SYMBOL 131,11,11,11,11,243,3,255,255 


(1573) 

530 

SYMBOL 132,255,255.0,255,0,0,0,0 


(18623 

540 

SYMBOL 133,0,0,0,0.255,0,255,255 


(2049) 

550 

SYMBOL 134.208,208,208,208,208,208,208,208 


(2736 3 

560 

SYMBOL 135,11,11,11,11,11,11, 11.11 


(18743 

570 

SYMBOL 143,68,255,17,17,17,255,68,68 


(2265) 

580 

SYMBOL 144,0,0,24,36,90,189,129,255 


(22753 

590 

SYMBOL 145,24,12,6,255,255,6,12,24 


(2050) 

600 

SYMBOL 146,24,48,96,255,255,96,48,24 


t1607) 

610 

’ 


(117) 

620 

FOR t«l TO 5:1NK t,9:INK t»S,17:NEXT t 


(28833 

630 

INK 0,0:1NK 11,24:1NK 12,15:INK 13,6:INK 14,22:INK 

15,11 

(23593 

640 

PAPER 0:BORDER 0 


£1107) 

650 

MODE 0:PEN 11 


(12533 

660 

LOCATE 5,11:PR 1 NT "SPACE GLIDER" 


t18t43 

670 

LOCATE 6, 13:PR I NT "IS LOAD 1NG" 


C1545 J 

680 

LOAD"!glIder.gra" 


(10213 

690 

CALL &A300:!CLS:!GET 


(11643 

700 

LOCATE 6,7:PEN 12:PRINT "UHITTEN BY" 


C24B23 

710 

TAG.-PLOT 16,270, 14:PR INT "OLIVER HEGGELBACHER " l : TAGDFF 

£3536) 

720 

LOCATE 1.1 


(6113 

730 

RUN"!g11 der.prg" 


[1522] 









10 



(11643 

20 

« SPACE GLIDER > 


(862 3 

30 

• Teil 2 « 


(297 3 

40 



C1164] 

50 



(117) 

60 

SYMBOL AFTER 256:0PENQUT "duromy" : MEMORY 1.4FFF : CLOSEOUT : SYME 

(45813 

OL 

AFTER 48 



70 

■OR t 1 S, A300 TO AA30B : READ a:POKE t, a : NEXT t 


[3005] 

80 

)ATA 1,0, 64, 17,0,80,33,0, 192,237, 176,201 


(1772) 

90 

'APER 0:MODE 0 


(980) 

100 

FOR t=l TO S:1NK t,9:(NK t*S,17:NEXT t 


(28833 

11C 

INK 0,0:INK 11,24:INK 12,1S:INK 13,6:1NK 14,22:INK 

15,11 

(2359) 

120 

DEF1NT e-z:y=220:f»2:a=2:c*10:g=5:e*900 


(29393 


Waffen: 

90 Credits 

Sonden: 

400 

Credits 

Roboter: 

200 Credits 





Bevor Sie einen weiteren Menüpunkt anwählen, müssen Sie das 
Window mit »WEITER« schließen. Haben Sie diesen Teil des 
Spiels mit »ENDE« beendet, so müssen Sie die Container noch auf- 
bzw. abladen, indem Sie die Waren links mit Druck auf Feuer auf¬ 
nehmen und am rechten Ende mit Feuer abladen. Die Roboter ha¬ 
ben es auf Ihre Container abgesehen, so daß Sie bei der Berührung 
eines Roboters den Warencontainer verlieren. Danach wird Ihnen 
mitgeteilt, wo Sie die Waren abliefem sollen. Dort können Sie dann 
Ihre Ladung mit Gewinn verkaufen. (Oliver Heggelbacher) 


130 IF y <100 THEN 180 C11191 
140 MOVE O.ysl=c:DRAUR g.O.liFOR t=l TO 8:IF l<6 THEN 1=1*5 EL C30433 
SE 1=1-5 

150 DRAUR e/10,0,1: NEXT t:g=g-14:e=e*40 (16463 
160 c=c-a:a*a/l,06:IF c<l THEN c=lO (27543 
170 y*y-2:GOTO 130 (15713 
1B0 FOR t = 0 TO 98 STEP 2.-PL0T 0,t,13:DRAU 639,t:NEXT t (39003 


190 PLOT 0,98,11tDRAWR 120,0:PLOT 639,96:DRAUR- 120,0:PLOT 0,94 (53423 
,15iDRAUR 120,0:PLOT 639.94,15:DRAUR-120,0 

200 y=98:FOR t«0 TO 40 STEP 2:y=y*2:PL0T 122*t,y,11:MOVER 4,0: (56213 
DRAU 516-t,y,13:PLOT S18-t,y,11:PLOT 122*t*4,y-B.15:PLOT 518-t 
*4,y-6:NEXT t 

210 PLOT 166,142,11:DRAU a76.142:PL0T 170,138,IS:DRAU 472,138: (30033 
PLOT 170,136:PLOT 472,136 

220 c=10:FOR t = 0 TO 96 STEP 4:c2=c:F0R 1=124 TO 136 STEP 2:PLO [79423 
T 320-t, l,c2:PL0T 320*t,1,c2:c2 = c2*1: IF c2>10 THEN c2*l 


230 NEXT 1:c=c-1:IF c<l THEN c=10 (15633 

240 NEXT t C 3603 

2S0 PAPER 14:F EN 12:L0CATE 6,19:PR INT"SCHUB : « (34373 

260 PAPER 15:PEN 14:L0CATE l,21:PR INT"STAT1ON: ”:LOCATE 12,21: (57883 

PRiNT"ZIELST.: - 

270 PEN 11:LOCATE 7,23:PR INT = ZEIT : " (1694) 

280 PAPER 14:o=l:FOR t=l TO 10:LOCATE ll-t,2S:PEN o:PRINT CHR* (37363 
(233)i:LOCATE 10*t,25:PR INT CHR«(233)::c=c*1:IF c>lO THEN c=l 
290 NEXT t:PAPER 0 (5033 


300 PLOT 156,84,12:DRAUR 324,0;DRAUR 0,20:DRAWR-324,0:DRAUR 0, (57493 
-20:MOVER 4.2:DRAUR 0.16,14;DRAUR 316,0 

310 PLOT-4,62, 14.-DRAWR 292,0:DRAWR 0, 20: DRAUR-292,0: DRAUR 0,-2 (60213 
0 :MOVER 4,2: DRAUR 0, 16, 15.-DRAUR 284,0 

320 PLOT 344,62,14:DRAUR 296,0:DRAUR O.20cDRAUR-296,O:DRAUR 0, (49713 
-20:MOVER 4,2:DRAUR O,16,15IDRAUR 284,0 

330 PLOT 134,30, 14 : DRAUR 264,0;DRawR 0, 20 : D3TAUR-264,0: DRAUR o, [47533 
-20:HOVER 4,2:DRAUR 0.16,IS:DRAUR 256,0 

340 PLOT 0,399,12:DRAU 639,399:DRAU 639.340:DRAU 0,340:DRAU 0, (45503 
399 

350 FOR t»-160 TD 164 STEP 2:PLOT 320*t,330.13:DRAU 320*t=2,33 (32223 
8:NEXT t 

360 FOR t * -160 TO 164 STEP 12:PL0T 320*t, 330, 12.-DRAU 320*t*2,3 (36263 
38:NEXT t 


370 PLOT 160,330:DRAU 480,330 (10393 

380 LOCATE 1,7:PEN 1:PRINT "SPACE GLIDER” (18873 

390 ■=0:FOR 1*2 TO I5:c-10:FOR t=0 TO 383 STEP 4:IF TEST<t,l*2 C6S693 
88)*1 THEN PLOT 32*t»1.5,362»1*2,c:DRAUR 2,0 

400 oc-lilF c< 1 THEN c = 10 (9043 

410 NEXT t:a=a*2:NEXT i (9923 

420 a«="(C) 1987 BY ANDROMEDA-SOFT" (21523 

430 FOR t"l TO LENta«3:LOCATE 1,7:PRINT MlD*(a«,t,l) (25833 

440 FOR 1=2 TO IS STEP 2:F0R k=2 TO 15 STEP 4:IF TEST!k=2,1*28 (56573 
8)* 1 THEN PLOV 96*t*16*k,344*1,12 

450 NEXT k,l.t (3413 

460 PLOT 176,356,12:PL0T 304,356:PL0T 432,356 (12441 

470 RESTORE 480:FOR t=l TO 15:READ x,y:PLOT x,y,0:NEXT t (35881 

480 DATA 200,346,200,358,216,346,216,358,264.346,264.358,280.3 (53351 
46,360,358,472,358,472.352,472,346,500,346,512,356.520,346,216 
,352 

490 LOCATE 1,7:PRINT SPACE«(12) (19491 

SOO FOR t*l TO 20:PLOT I NT(RND"640),240*INT(RND«60),11:NEXT t (26963 
510 CALL t. A300 (5933 

520 • (117) 

530 MODE 1:INK 1,24:PAPER 0;PEN 1 (19701 

540 RESTORE 720 (731) 

SSO a = 4,9000 :b = - 1:a *0: z = 720 (1881) 

560 PRINT "Zelle :"i2;CHR«(13); (20643 

570 GOSUB 670 (9431 

560 s=9*2:s=s*ABS(w) (699) 

590 IF s>9999 THEN «=a MOD 10000 (1217) 

600 IF w> =0 THEN POKE a,w:a = a* 1:GOTO S70 (1555) 

610 9=s*256:n=ABS(w) (12253 

620 GOSUB 670:«=a«2:s=3*u (10611 

630 IF «>9999 THEN 9=3 MOD 10000 C12173 

640 FOR t = l TO n:POKE a, w:a = a* 1:NEXT t (160S) 

650 GOTO 570 (3791 

660 ’ (1173 

670 READ w:b=b+1 (938) 

660 IF b = 12 THEN c*w:b=0:READ wilF aOc THEN PRINT "Fehler in (66473 
ZelIe";z:END ELSE Z = Z*10:PRINT STR ING«17,9);z:CHR»(131;:s = 0: IF 
»>4.A6SF THEN 3260 

690 RETURN (5551 

700 • (117) 

710 ’ £117) 

720 DATA 13,10.-32,0,170,-12,0,170,-11,0,65,255, 8SS3 (2456) 

730 DATA -11,0,-2,255,170,-8,0,69,223,255.119,255. 7249 £21663 

740 DATA 207,-5,0,69,-2,207,223,187.179,255,-3,207, 8441 (2151) 

750 DATA -2,0,-3,207,51,223,255,119,255,155,103,-2, 7972 12219) 

760 DATA 207,138,0,81,-3,0,-2,255,170,-2,0,81, 3945 (1801) 

770 DATA -2,0,13.10,-5,0,85,-12,0,-2,255,-11, 9625 (30663 

780 DATA O,-2,255,170,-4,207,-5,0,85,255,119,239, 5329 (2257) 

790 DATA -2,207,138,-6,0,85,187,247,239,51,0,162, 5734 (30613 

800 DATA -5,0,69,223,251,119,170,-6,0,207,223,187, 7813 (2S51) 

810 DATA 255,170,-6,0,89.207,51,138,255,-8,0,-2, 9738 (1739) 

820 DATA 207,-10.0,207,219,-11,0,13,10,-7,0,170, 5942 (2223) 

830 DATA -11,0,-2,255,-6,0,-4,207,85,-2,255,-7, 1645 (20043 

840 DATA 0,69,-2,207,223,187,255,170,-6,0.81,0, B394 (17153 
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I—Programm 


850 DATA 51,223,251,119,170,-9,0,85,167,247,239,138, *956 
B60 DATA -8,0,65,255,119,239,207,-10,0.255,69.51, 2089 
870 DATA 207,136,-11.0.-2,207.-12,0,231,207,13.10. 9512 
880 DATA -32,0,34.-11,0,17,51,-10,0,69.-2,51, 3403 
690 DATA 103,-8.0,69,159,-2,51,55,207,-6,0,69, 1093 
900 DATA 155,59,-3,51,89,207,-4,0,69,159,55,51, 3989 
910 DATA 119,255,51,-2,55,207,-2,0,69,155,-3,59, 7285 
920 DATA 255,119,187,-3,S9,207,0,-4,207,223,167,179, 4205 
930 DATA 255,-4,207,138,13,10,-6,0,170,-11,0,-2, 3166 
940 DATA 255,170,-9,0,85,187,179,255,-5,0,207,219, 7377 
950 DATA 207,51,-4,207,155,103,219.207,138.69,159,123, 645 
960 DATA 63,163,-2,123.63,183,123,63,207,-2,0,69, 7477 
970 DATA 159,123,63,163,63,163,123,63,207,-4,0,69. 8173 
960 DATA 159,123,63,191,123,63,207,-6,0,69,159,-3, 4181 
990 DATA 63,207,-6,0,69,159,191,207,-10,0,60.207, 7065 
1000 DATA -6,0,8,16,-43,0,61,162.-6,0.179,115, 703 
1010 DATA -6.0,103,115,-6,0,179,115.-6,0,81.162, 2276 
1020 DATA -51,0,8,16,-35,0,81,162,-6.0.179,243. 2057 
1030 DATA -5,0,81,51,115,162,-4,0,81.103,155,162, 3996 
1040 DATA -4,0,61,103,51,162,-4,0,81,179,115,162, 7292 
1050 DATA -5,0,-2,243,-6,0,81,162,-35,0,6,16, 9912 
1060 DATA -27,0,61.243,-6,0,243,116.162.-4,0,61, 8833 
1070 DATA 179,51,162,-4,0,81,51,155,115,-4,0,81, 9657 
1080 DATA 103,155,243,-4,0,81,103,51,115,-4,0,81, 1977 
1090 DATA -2,51,243,-4,0,81,179,115,162,-5,0,-2, 6934 
1100 DATA 179,162,-5,0,81,243,-27,0,6,16,-19.0, 1766 
1110 DATA 61,243,-6,0,-2,243,162,-4,0,61,179,51, 7517 
1120 DATA 243,-4.0,81,-3,115,-4.0,179,103,155,179. 5805 
1130 DATA 162,-3,0,243,207,155,115,162,-3,0,179,-2, 4576 
1140 DATA 103,51,162,-3,0,-2,179,51,115,162,-3,0, 7558 
USO DATA 243,-2,51,179,182,-3,0,81,-3,115.-4,0, 5452 
1160 DATA 81,-2,179,243,-5,0,-2,243,162,-5,0,61, 1909 
1170 DATA 243,-11,0,8,16,-11,0,-2,243.-5,0,81, 9453 
11 BO DATA -2,243,162,-4,0,243,-2,51,243,-4,0,179, 4507 
1190 DATA -3.115,-3,0,61,179,207,51,243,162,-2,0, 3172 
1200 DATA 61,115,103,155,115,162,-2,0,81,51,207,155, 629 
1210 OATA 179,162,-2,0,61,179,103,51,115,162,-2,0, 2596 
1220 OATA 61,115,-3,51,162,-2,0,61,179,-2,51,243, 665 
1230 OATA 162,-2,0,61,-2,179,-2,115,162,-3,0,243. 3855 
1240 DATA 51,179,243,-4,0,243,-2.115,243.-4.0,81, 7433 
1250 DATA -2,243.162.-5,0,-2,243,-3,0,12.16,-51, 5795 
1260 DATA 0,17,34,-10,0,17,34,0,21,63.-7,0, 6034 
1270 DATA 17,-2,0,21,127,42,-6,0,69,-2,207,21, 3731 
1280 DATA 191,63,-6,0,219,-2,243,138,-2,191,-5,0, 7702 
1290 DATA 69,-4,207,21,191,-75,0,12,16,-39,0.17, 6061 
1300 DATA 51,-10,0,17,51,-10,0.17,-3,0.-2,63, 7659 
1310 DATA -6,0,17,-3.0,63.255,42,-5,0,69,-2, 6932 
1320 DATA 207,0,127,-2.63,-5,0,219,-2,243,138,-2, 6850 
1330 DATA 127,191,-4,0,69,-3,243,231,85.127,191,-4. 7510 
1340 OATA 0,-S, 207, 138, 127-, 191,-62,0, 12, 16,-39,0, 7982 
1350 DATA 51,34,-10,0,51,34,-10,0,34,-3,0,21, 4001 
1360 DATA 63,42,-5,0,34,-3,0,21,127,191,-5,0, 9230 
1370 DATA 34,-3,0,21,191,255,42,-4.0,-3,207,136, 6084 
1360 DATA 21,25S,-2,63,-3,0,69,243,247.243.23t,21, 5031 
1390 DATA 255,127,191,-3,0,219,243,255,251,243,138,255. 5767 
1400 DATA 127,191,-2,0,69.-2,243,247,-2,243,231,85, 8431 
1410 DATA 127,191,-2,0,60,-6,207,0,127,191,-37.0, 2366 
1420 DATA 12,16.-2,0.-2,51,-10,0,-2,51,-10,0, 656 
1430 DATA -2,51,-10,0,34,-11,0,34,-4,0,21,-2, 1164 
1440 DATA 63,-4,0,34,-4,0,21,127,255,42.-3,0, 2678 
1450 OATA 34,-4,0,21,191,255,191,-3,0,-4,207,138, 3864 
1460 DATA 21,255,127,255,42,0,69,-4,243,231,21,255, 9341 
1470 DATA 191,-2,63,0,69,-2,243,251,243,231.21.255. 7917 
1480 OATA 191,255,191,0,219,243,247,255,-2,243,136,255, 9215 
1490 DATA 191.255,191,0,219,-2.243,251,-2,243,138,85, 9813 
1500 OATA 191,255,191,69,-6,243,231,0,191,255,191,69, 7223 
IS10 DATA -7,207,0,21,255,191,-24,0,-2,8,-8,0, 2416 
1520 DATA 255,-7,0,187.170,-6,0,187,119,-6.0,-7, 3207 
1530 DATA 255,0,-7,255,42,-4,207,223,-11,255,-2,8, 8064 
1540 DATA -15,0,255,-6,0,85,119,-6,0,187,119,0, 7066 
1550 DATA -7,255.21,-10,255,239,-4,207,-6,255.3,5. 1303 


1S60 DATA 0,17,34,0,51,179,17,115,243,0,51,179, 7409 

1570 DATA 0,17,34,3,5,17,34,0,115,51,0,243, 9767 

1580 DATA 179,34,115,51,0,17,34,0,3,6,17,179, 5781 

1590 DATA 0,115,243,34,51,179,34,17.51,-2,0.34, 1698 

1600 DATA -4,0,8,6,69,-6.0,138,21,-6.63,42, 7304 

1610 DATA 59,191,119,59,191,119,59.191,-8,63,132,152, 2236 

1620 DATA 180,169.135,132,152.180,120,100,72,75,86,120, 2192 

1630 DATA 100,72,4,7,69,-2,207,138,223,-2,255,239, 109 

1640 DATA 223,-2,255,239,-4,207,223,-2,255,239.223,-2. 4132 

1650 DATA 255,239,-4,207,3,12,0,138,0,69,77,0, 6878 

1660 DATA 206,72,138,206,72,136,-2,207,138,207,231,138. 1156 

1670 DATA 207,231,138,219,243,136,-2,219,138,-2,207,138, 156« 

1680 DATA -2,207,138,196,244,130,8,23,0,-6,15,-2, 2696 

1690 DATA 0,123,-4,255,225,-2.0,106,-3,0,17,225, 3691 

1700 DATA -2,0.106,-3,0,17,225,-2,0,106,2,7, 1811 

1710 DATA 3,17,16S,-2,0,106,5,2,4,17,165,-2, 1744 

1720 DATA 0,106,7,-2,2,17,225,-2,0,106,5,2, 1284 

1730 DATA 1,17,165,-2,0,106,S,2,6,17,165,-2, 7664 

1740 DATA 0.106,-3,0,17,225,-2.0,106,-3,0,17, 7885 

1750 DATA 225,-2,0,123,-4,25S,225,-2,0,-6,15,-4, 87*6 

1760 DATA 0,4,2,-4,0,7,-4,15,14,-2,0,-6, 2094 

1770 DATA 15,0,1,-6,255,8,18,244,249,242,244,249, 9633 

1780 DATA 242,132,55,-6,255,206,121.-6,249,233,-8.15, 3371 

1790 DATA 127,-6,255,239,-8,15.4,13,-2,255,204,0, 8706 

1800 DATA 143,15,6,0,188,211,-2,0,186,225,136,0, 820 

1810 DATA 168,240,76,0,188,240,166,0,158,240,211,0, 7078 

1820 DATA 175,240,225,136,157.120,211,0,136,188,166,-2, 1134 

1830 DATA 0,86,76,-2,0,35,136,-2,0,17,-2,0, 4328 

1840 DATA 80,88,-964,0,6,28,1,6,28,1,6,28, 6428 

1850 DATA 1,6,28,1,7,28,1,6,28,1,6,190. 6030 

1660 DATA 0,6,190,0,6,213,0,6,190,0,6,-2; 9714 

1870 OATA 0,7,253,0,6,253,0,6,253,0,6.253, 6049 

1880 DATA 0,7,253,0,6,253,0.6,239,0,6,239, 5923 

1890 DATA 0,6,253,0,6,239,0,7,123,1,6.63, 2919 

1900 DATA 1,6,45,1.6,-2,0,6,26.1,6,28. 9132 

1910 DATA 1,6,28,1,6,28,1,7,28,1,6,28, 5756 

1920 DATA 1,6,190,0,6,190,0,6.213,0,6,190, 402 

1930 DATA 0,8,-2,0,7,253.0,6,253.0,6,253, 9761 

1940 DATA 0,6,253,0,7.253,0,6,253,0,6,239, 5139 

1950 DATA 0,6.239,0,6,253,0,6,239,0,7,123, 7617 

1960 DATA 1,6,63,1,6,45,1,6,28,1,6,28, 4748 

1970 OATA 1,6,239,0,6,28,1,7,123,1,6,83, 4327 

1980 DATA 1,6,45,1,6,28,1,6,28,1,6,239, 4655 

1990 DATA 0.6,28,1,7,123,1,6,63,1,6.45, 197 


£24623 

£2454) 

£2984] 

£21593 

£2005) 

£20323 

£2328) 

C19863 
£17963 
£1350) 
£27233 
f17243 
£2505) 
£19983 
£19333 
£11543 
£ 1872) 
£29953 
£2171) 

C22983 
£2301) 
£2070) 
£21443 
£23683 
£1863) 
£2063) 

E 2059 3 
£2719) 
£22283 
£2021) 
£2158 3 
£ 1393) 
£13973 
£18913 
£24643 
£2977) 
£22533 
£22783 
£2014] 
£2093) 
£1336) 

£ 18753 
£2333) 
£24743 
£ 15873 
£2015) 

C15953 
£23913 
£2735) 
£19923 
£22963 
£ 1496) 
£20913 
£23073 
£ 1865) 
£3279) 
t19123 
£24523 
£24423 
£2097) 
£21603 
£2646) 
£29443 
126663 
£23443 
£21261 
£24263 
£2335) 
£22413 
£22033 
£2655) 
£24133 
£1684) 
£2327) 
£2227) 
£ 1617) 
£2464) 
£2722) 
£2132) 
£3158) 

£ 15403 
£2943) 
£ 1802 3 
£27123 
£25133 
£20743 
f 2083 3 
£29403 
£2235) 
£20123 
£2720) 
£ 1864) 
£20003 
£2449) 
E1S703 
E1778) 
£ 2265 3 
£31073 
C279B3 
£2310) 
£19723 
£2324) 
£ 1517) 
£ 1800) 
£2266) 
£16233 
E19313 
£22383 
£1778) 
£2402) 
£2027) 
E19133 
£ 1480) 
£2296) 
£20603 


2000 DATA 1,8,28,1,6,28,1,6,26,1,6,190, 5902 
2010 DATA 0,9,190,0,6,239,0,6,213,0,6,213, 4585 
2020 OATA 0,6,190,0,6,213,0,7,123,1,6,63, 6999 
2030 DATA 1,6,45,1,6,28,1,6,28,1,6,239, 4655 
2040 OATA 0,6,28,1,7,123,1,6,63,1.6,45, 197 
2050 DATA 1,8,28,1,6,26,1,6,239,0,6,28. 7424 
2060 DATA 1,7,123,1,6,63,1,6.45,1,6,28, 7760 
2070 DATA 1,6,28,1,6,28,1,6,190,0,9,190, 7200 
2080 DATA 0,6.239,0,6,28,1,6,28,1,6,239, 1679 
2090 DATA 0,6,28,1,7,123,1,6,63,1,6,45, 197 
2100 DATA 1,6,56,2,7.31,0,6,56,2,6,56, 876 
2110 DATA 2,7,31,0,10,56.2,7,31,0,6,56, 2492 
2120 DATA 2,6,56,2,7,31,0,10,250,1,7,31, 4513 
2130 DATA 0,6,250,1,6,250,1,7,31,0,10,250, 1630 
2140 OATA 1,7,31,0,6,250,1.6,250,1.7,31, 4033 
2150 DATA 0,10,56,2,7,31.0,6,56,2,6,56, 2924 
2160 DATA 2,7,31,0,10,56,2,7,31,0,6,56, 2492 
2170 OATA 2,0,56,2,7,31,0,10,250,1,7,31, 4513 
2160 DATA 0,6,250,1,6,250,1,7,31,0,10,250, 1830 
2190 DATA 1.7,31,0,6,250,1,6,250,1,7,31, 4033 
2200 DATA 0,10,56.2,7,31,0,6,56,2,6.56, 2924 
2210 DATA 2,7,31,0.10,56,2,7,31,0,6,56, 2492 
2220 DATA 2,6,56,2,7,31,0,10,56,2,7,31, 2965 
2230 OATA 0,6,56,2,6,56,2,7,31,0,10,170, 294 
2240 DATA 1,7,31,0,6,170,1,6,170,1,7,31, 8273 
2250 OATA 0.10,170,1.7,31,0,6,170,1,6,170, 2058 
2260 DATA 1,7,31,0,10,170,1,7,31,0,6,170, 7822 
2270 DATA 1,6,170,1,7,31,0,10,170,1,7,31, 9937 
2200 DATA 0,6,170,1,6,170,1.7,31,0,10,56, 5556 
2290 DATA 2,7,31,0,6,56,2,6,56,2,7,31, 2149 
2300 DATA 0,10,188,3,2,245,2,1,126,2,1.56. 4418 
2310 DATA 2,1,246,2,1,126,2,1,246,2,1,188, 2022 
2320 DATA 3,2,246,2,1.126,2,1,56,2,1,246, 3632 
2330 DATA 2,1,126,2,1,246,2,1,204.-2,2,56, 8820 
2340 DATA 2,1,222,-2,1,170,-2,1,56,2,1,222. *792 
2350 DATA -2,1,56,2,1,204,-2,2,56,2,1,222, 744 
2360 DATA -2,1,170,-2,1,56,2,1,222,-2,1,56, 9154 
2370 DATA 2,1,188,3,2,246,2,1,126,2,1,56, 3298 
2380 DATA 2,1,126,2,1,126,2,1,126,2,1,126, 9560 
2390 DATA -2,2,126,2,1,126,2,1,126,2,1,126, 4872 
2400 DATA 2,1,126,2,1,164,2,1,204,-2,2,204, 3720 
2410 DATA 2,1,204,2,1,204,2,1,204,2,1,126, 5112 
2*20 DATA 2,1,204,2,1,188,3,2,246,2,1,126, 4472 
2430 OATA 2.1,56,2,1,246.2,1,126,2,1,246, 1520 
2440 DATA 2,1,186,3,2,246.2,1,126,2,1,56, 9298 


£ 1758) 
£2047) 
£23053 
£22963 
£2060) 
£ 1568) 
£15623 
£16693 
£23603 
£2060) 
E1S743 
£ 1849) 
£18763 
£21883 
£26973 
£ 1713) 
£ 1849 3 

C1876) 
£21883 
£2697) 
£ 1713) 
£18493 
£ 2076 3 

£ 1847) 

£2251) 
£ 16333 
£24883 
£21843 
£17773 
£ 1726 3 
£ 1508) 
£1899) 
£1760) 
£15691 
£ 1479) 
£ 1801) 
£2686! 
£19673 
£1087] 
£2013) 
£ 16233 
£ 1662) 
£ 1515) 
£ 1415) 
£ 1967) 


2450 DATA 2,1,246,2,1,126,2,1,246.2,1,252, 2066 £1702) 
2460 DATA 4,2,244,3,1,03,3,1.246.2,1,244. 3710 114843 
2470 DATA 3,1,83,3,1,244,3,1,252,4,2,244, 8566 £17193 
2480 DATA 3,1,83,3,1,246,2,1,244,3,1,83, 8433 £20713 
2490 DATA 3,1,244,3,-7,1,-3,0,-13,1,-7,0, 7562 £1819) 
2SOO DATA -2,1,-7.0,-4,1,-7,0,-2,1,-7,0, 0418 £22683 
2510 DATA -4,1,-7,0,-2.1,-7,0,-4,1,-4,0, 2268 £10761 
2520 OATA -5,1,-7,O,-4,1,-4,0,-5,1,-7,0, 4490 11551) 
2530 DATA -4,1,-4,0.-S,1,-3,0.1,-5,0.-2, 9694 £25633 
2540 DATA 1,-4,0,-4,l,-4,0,1,-5,0,-2,1. 4237 11949) 
2550 DATA - 12,0,1,-S,0,-2,1,- 12,0,-8,1,- 12, 8350 £1256) 
2560 DATA 0,-46.1,-237,0,33,-2,0,34,144,163,58, 7568 C261S) 
2570 DATA 6,0,254,128,40,6,33,248,183,34,29,165, 7455 12172) 
2500 DATA 1,28,183,33,129,163,195,209,188,69,163,195, 1453 £23263 


2590 DATA 171,163,195,180,183,195.198,163,195,207,163,195, 623 £24313 
7 

2600 DATA 216,163.195,246,163.195,242,164,195,13,165,195, 7945 £3137) 
2610 DATA 75,165,195,111,165,195.206,165,195,21,166,195. 5883 £23223 
2620 DATA 60,166,08,83,69,212,88,77,79,86,197,-2, 7244 £24323 
2630 DATA B3,69,212,83,68,69,204,83,77,79,86,197, 2709 £18863 
2640 DATA 67,72.69,87,203,83,67,82,79,76,204,83, 9603 £3050) 
2650 DATA 67,82,79,70,198,71,69,212.74,79,217,68, 6450 £15681 
2660 DATA 82,65,215,70,76,73.67,7S,69,210,67,76, 1842 £23531 
2670 OATA 211,-43,0,254,3,192,205.3,164,195,78,164, 5020 £1898) 
2680 DATA 254,6.192,205.21,164,205,25,189,205,78,164, 9916 £1815) 
2690 DATA 205,3.164,195,78,164,254,3,192,205,3,164, 7982 C30S83 
2700 DATA 195,113,164,254,3,192,205,3,164,195.196,164, 5992 t2063J 
2710 DATA 254,5,192,205,3,164,205.196.184,175,71,221, 9047 £20373 
2720 DATA 78,8,87,221,94,6,221,102,1,221.110.0, 1288 £1834) 
2730 DATA 206,36,164,195,113,164,254,3,192,17S,SO,160, 6224 £17273 
2740 DATA 166,205,3,164.195,150,164,176,71.221.78,4. 7628 £23783 
27S0 DATA 87,221,94,2,221,102,1.221,110,0,195,36, 2810 £2037] 
2760 DATA 164,175,71,221,78,10,87,221.94,8.221,102, 6272 £23933 
2770 DATA 7,221,110,6,126,50,166,163.35,126,50,167, 6795 £1882) 
2780 DATA 163,35.229,123,203,59,203,59,203,59,98,107, 7763 £36223 
2790 DATA -2,41,25,-4,41,9,230,7,203,38,203,39, 5249 £25153 
2800 DATA 203,39,132,198,192,103,209,201,58.167,163,79. 6561 £23953 
2810 DATA 58,166,163,71,197,34,168,163,26,174,119,35, 6953 £22763 
2820 DATA 19,16,249,42,166,163,1,0,8,9,220,232, 6276 £1723) 
2630 DATA 164,193,13,194,66,164,201,56,167,163,79,58, 892 £2396) 
2840 DATA 186,163,71,197,34,168,163,26,167,40,1.119, 6017 £23253 
2850 DATA 35,19,16,247,42,168,163,1,0,8,8,220, 4190 £1660) 
2660 OATA 232,164,193,13,194,121,164,201,58,167,163,79, 7793 12567) 
2870 DATA 56,166,163,71,197,34,168,163,26,163,40,3, 6799 £2136) 
2880 DATA 190,32,20,19,35,16,245,42,168,163,1,0, 3006 £1918) 
2890 OATA 6,9,220,232,164,193,13,194,158,164,201,62, 6880 £2606) 
2900 DATA 265,50,160,166,193,201,58,167,163,71,58,166, 1B22 £2530) 
2910 DATA 163,79,197.34,168.163.124,84,93,214,112,103, 3463 £32313 
2920 DATA 6,0,237,176,42,168,163,1,0,8,8.220, 318 £2085) 
2930 DATA 232,164,193,16,229,201,42,168,163,1,176,55, 3907 £2519) 
2940 DATA 175,237,66,201,254,1,192,221,126,0,50,142, 9842 £2927) 
29S0 DATA 163,203,63,50,143,163,17,19,16S,14,255,33, 8255 £2042) 
2960 DATA 133,163,6,129,195,224,188,33,133,163,195,230, 3566 £2222) 
2970 DATA 188,243.33,143,163.53,32.43,62,255,50,253, 5197 £26713 
2980 DATA 177,58,142,163,119,1,146,163,42,144,163,229, 363 £26143 
2990 DATA 9,1,33,127,126,35,237,73.237,121,12,121, 8509 £20943 
3000 OATA 254,43,32, 244., 225, 35, 125,254, 10,204,71,165, 3379 £21813 
3010 DATA 34,144,163,251,201,33,-2.0,201,17,0,192, 2764 £16933 
3020 DATA -2,6,221,33,91,166,213,122,214,112,103,107, 9841 £30093 
3030 DATA 126,10,-6,19,122,183,32,240,209,221,94,0. 424 £2545) 
3040 DATA 221,35,16,230,201,254,3,192,221,229,205,36, 3002 £27893 
3050 DATA 167,221,225,203,71,32,55,203,79,32,65,203, 36B5 £2786) 
3060 DATA 87,32,19,203,95,32,29,203,103,200,221,102, 3192 £22483 
3070 DATA 1,221,110,0,54,1,35,54,0,201,221,102, 4980 £24113 
3080 DATA 5,221,110.4,54,255,35,54,255.195,137,165, 2363 t20463 
3080 DATA 221,102,5,221,110,4,54,1,35,54,0,195, 2963 £21713 
3100 DATA 137, 165,221,102', 3, 221,110, 2,54.255,35,54, 8456 £30163 
3110 DATA 255,195,137,165,221,102,3,221.110,2,54,1, 3749 £14903 
3120 DATA 35,54,0,195,137,165,62,1,50,170,163,33, 8431 £2084] 
3130 DATA 160,0.17,127,2,58.170,163,6,160,197,245, 2239 £22253 
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ProSoft-Preise liegen richtig! 

S 02 61/40 47-1 • Telex 862476 PSOFT 

Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 
Günstige Möglichkeit der Finanzierung durch Ratenkredit. Fordern Sie die Unterlagen an. 


386 Mikros PCs Limited, Computer Dynamics, Compaq, Rair, 
Kaypro, Zenith, Multitech, Plantron. Wir bemühen uns, die Inionnationen über 
die neue Computergeneration immer auf dem aktuellsten Stand zu halten. 
Sicher wissen Sie, daß nicht alle Produkte sofort lieferbar sind. 

Commodore-PC Commodore-PC 


Commodore PC-IOII 

1848,- 

Commodore PC-20II 

2698,- 

Commodore RC-IO 11-20 640 KB Hauptspeicher. 2 Dis¬ 
kettenlaufwerke. 1 Festplatte 20 MB (Seagate), AGA- 

Karle. Monitor,Tastatur, 

MS-DOS/GW-Basic 

Commodore PC-1011-30 wie PC-1011-20 
jedoch 30-MB-Festplatte 

2498,- 

2548.- 

Amiga500 1148,- Wir führen d« gesamte AMIGA-Pa-atte 

RGB-Momtor 1081 für Amiga 

748,-. 

Commodore AT PC 40 

Commodore AT PC 40/40 

3998,- 

wie AT PC 40 zusätzlich 40 MB-Festplatte 

4298,- 


Tandon - Tandon - Tandon 

PC 1898,- XPC2/20 2598,- XPC2/30 2798,- 

PCA 4198,- PCA20 4898,- 


PCA-30 6198,- PCA-40 6298,- PCA-70 7498,- 
PCA-80 6998,-Tandon Target 20 6698,- 


AlleTandon ATind. serielle und parallele Schnittstelle 

Aufpr. Farbsystem 898,- Aufpr. EGA-System 1598,- 
Aufpreis2-MB-Speicherkarte 798,- 

Zusatzkarten-Erweiterungen-Software 


20 MB Festplatte Seagate „ST 226» 

jMna)C»ntrollef,lük>ttutttt.Enluu»ßwtunt 


678.- 


30 MB Festplatte (Seagate ST238) 
Incl. RLL-Controller u. Kabelsatz für XT 


728,- 


20 MB Festplatte (Seagate ST 225). 65 ms für XT/AT 578,- 

30 MB Festplatte (Seagate ST 4038), 40 ms für XT/AT 1098,- 
40 MB Festplatte (Seagate ST251).40msfürAT 898,- 

80 MB Festplatte (Seagate ST 4096), 28 ms 1798,- 

Fest Plattencontroller für XT incl Bedienungsanleitung 
(formatiert 10-30 MB Festplatten) 198,- 

Disk Manager by Ontrack 

verwaltet Festplatten ab 30 MB auch unter DOS 298,- 
Microscience-Festplatten 

HH 725 20 MB 5 l A."incl Controller + Kabelsatz 698,- 

HH 738 30MB5'/<"incl RLL-Controller + Kabelsatz 768,- 

HH 1050 40 MB, 28 ms 1498,- 

HH 325 20MB,3'/2 n 598,- 

HH 330 30MB.RLL.3'/2" 648.- 

NEC-Festplatten 

05126(20178-85 ms! 79ß,- D3l26(20MB-325‘ -85 ms) 998,- 

D5126 H (20 MB- 40 ms) 1098,- D5452 ©MB 23WS-M »sijltt 3298,- 
05146(40 WB-40 ms! 1498,- D5652r':t,'B-23US-lulnegnl 3698,- 


I Interdyne 20 MB Tape- Streamer intern 


| 40 MB Tape Streamer ,APT 40' (ALLOY) 

W»r- 1 

I WangtekTape-Streamer 92 MB FAD 6000 


1 TakeTen ’O MB Disk Cartridge Subsystem-Extemai 

1698,- 1 

Grafik-Adapter EGA-Karte „Quadram EGA* 778,- 

I NEU! EGA-Wonaer nur 

678,- | 

VEGAde Luxe Autoswitch 

748,- 


ATI-„Graphic Solution' 1 348,- 

Hercules Graphic Card plus incl. RAM-FONT 578,- 

Hercules kompatible Grafik- Karte 198,- 

Farbgrafik-Adapter 148,- ParadiseEGA 398,- 

Paradise EGAAutoswitch 80-Zeichen 598,- 

Paradise EGAAutoswitch 132-Zeichen 748,- 

Genoa Super EGA Karte 948,- 

NEC JC1401 P3E Multisync, 14" EGA Monitor 1298,- 

Co-Prozessoren 

808616-bit-Mikropr. 49,- 8088 8-bit-Prozessor 49,- 

8087 (5 MHz) 249,- 8087 ( 8 MHz) 349,- 

8087 (10 MHz) 499,- 80287 ( 6 MHz) 399,- 

80287 (8 MHz) 599,- 80287 (10 MHz) 649,- 

Alles Zubehör und Softwarerund um den PC zu sehr günstigen Preisen. Fordern S.e die PreisSste an! 

COMPAQ COMPAQ-Produkte können wir preiswert liefern! 
KAYPRO Kaypro-Proaukte können wir preiswert liefern! 


OKI - OKI - 

OKI 

I Okimate 20 Farbdrucker mit Interface 

498.- 


Die günstigen Preisefür die gesamte OKI-Proouktpalette md. Lasedine erfahren Siebeiunsamlblefonl 

C.ITOH - C.ITOH - C.IT0H 

Riteman F+II incl Centr.-Interface 698,- 

Rlteman C+ incl Commodore-Interface 625,- 


Plantron - Plantron - Plantron Olivetti - Olivetti - Olivetti 


Plantron PT 16 LC umschaltba 1 4,77/8 MHz, 256 KB Hauptspei¬ 
cher, Monochrom-Graflkkarte (Herkules kompatibel), paralleler 
DnickeranscM,, 1 Diskettenlaufwerk 360 KB, Tastatur (deutsch) 
mit separatem Cursorblock, . _ _ 

MS-DOS 3.2/GW-Basic 1278,- 

Plantron PT LC/20 wie PT LC. zusätzl. 20 MB Festpl. 2078,- 
Plontron PT LC/30 wie PT LC. zusätzl. 30 MB Festpi. 2198,- 
Plantron PT XT Turbo 4,77 oder 8 MHz Takt, 256 KB Hauptspei¬ 
cher. Monochrom-Grafikkarte (Herkules kompatibel), Multifunk- 
tionskarte mit paralleler Schnittstelle, serieller Schnittstelle, Game 
Port, Echtzeltuhr, MS-DOS 342 incl. Basic. RAM Disk, Drucke'- 
spooier. Bedienungsanleitung und Zubahör. 

2 Diskettenlaufwerke a 360 KB, 

Tastatur mit separatem Cursorblock 1698,— 

Plantron PT XT 2/20 Turbo wie PT XT 
Turbo, zusätzlich 20 MB Festplatte 2499,” 

Plantron PT XT 2/30 wie PT XT Turbo. ____ 

zusätzlich 30 MB Festplatte 2698,— 

Plantron PT ST 6 MHz oder 8 MHz Takt, 640 KB Hauptspeicher 
(bis t MB on Board), Monochrom-Grafikkarte (Herkules kompati¬ 
bel). parallele Druckerschnittstelle, Diskettenlaufwerk 1,2 MB. 
Tastatur (deutsch) mit sep. Cursorblock, Echtzeit¬ 
uhr, MS-DOS 3.2/GW-Basic. ____ 

Bedienungsanleitung und Zubehör 2598,— 

Plantron PT-ST/20 wie PT-ST, zusätzlich 0 

20 MB-Platte und Floppy-Hard-Disk-Controller 3298, — 

Plantron PT-ST/30 3398,- 

Plantron PT-AT wie PT-ST, zusfltzl. Murti I/O- 
Karte mit paralleler und serieller Schnittstelle, 

Game Port, Ftoppy-Hard-Disk-Controiler 3298,— 

Plan tron PT AT/20 wie PT AT zusätzl. m. 20 MB Festpl, 3798,- 
Plantron PT AT/30 wie PTAT zusätzl. m. 30 MBFestpl, 4498,- 
Ptarrtron PT-AT/40 wie PT-AT zusätzl. 40 MB Festpi, 4698,- 
Plantron PT-AT/80 wie PT-AT zusätzl. 80 MB-Platte 5198,- 

PlantronPT-386 9698,- 

Plantron PT-386 E/40 10998,- 

Plantron PT -386 E/80 11598,- 

(LrfWiunthtef FiFlwitiwibeftitl,w «rir, WSwIr di« gihnÜssnPrtli« durch Selb«. 
wfriirten and EJnfcsu dtr FMtptittw lind Kwtw durch iomt» gMehu«» TKhnftir 
wr»ich«n Mm». - Mhitientlndllcli glBdles mehl nurfOrPUntron-Produkte. 


Multitech Multitech 

Multitech 

Populär 

MPC-500 D 

1798,- 

Populär 

MPC-500 E 

2148,- 

Plus 700 

MPC-700 D 

2498,- 

Pius 700 

MPC-700 E 

3148,- 

Accel 

MPC-900 ATB 

3998,- 

Accei 

MPC-900 F 

4698,- 

Accel 

MPC-900 E 

5098,- 


M-1109 

469,- 

M-1409 

799,- 

M-1S09 

999,- 

M-1709 

1199,-' 

M-2024 L+ 

1999,- 

M-4018 

2999,- 

Star- 

Star-Star 


NX-15 

999,- 

NL-10 

548,- 

ND-10 

098,- 

ND-15 

1198,- 

NR-10 

1148,- 

NR-15 

1398,- 

NB 24-10 

1398,- 

NB 24-15 

1798,- 

NB-15 

2348,- 

SR-10 

1244,- 


Olivetti M24, 640 KB 1 Diskettenlaufwerk 360 KB, 1 Fest¬ 
platte 20MB, Bus Converter, Monitor, Tastatur, MS-DOS/GW- 
Basic, serielle und parallele 

Schnittstelle 3998,— 

Olivetti M24 1/30 Festplattenversion wie M24 1/20, jedoch 
mit 30 MB Festplatte anstatt . _ _ 

20 MB Festplatte 4198,- 

M28 AT-Einstiegskonfiguration 16 bit 80286. 8MHz. 512 
KB RAM Speicher, serielle und parallele Schnittstelle, 1 Disket¬ 
tenlaufwerk 1,2 MB, 1 Festplatte 20 MB, _ _ 

Monitor, Tastatur, MS-DOS/GW-Basic 5998,— 
M28AT, wie Einstiegskonfiguration, 

jedoch mit 40-MB-Festplatte 6798,— 

M28 StandardKonf iguration AI 

wie Einstiegskonfiguration, jedoch zusätzlich 
50-MB-Tape-Streamer 6998,— 

M28 Standard-Konfiguration A2 

wie Standard-Konfiguration AI, _ _ _ 

jedoch 40-MB-Platte 7698,— 

Aufpreis für Farbsystem (M24, M28) 966, - 


Sharp 


Sharp 


Sharp 


Wir liefern weiterhin preiswert aus dem neuen Sharp- __ _ 

Konzept PC-1403 (mit bis zu 3 Wochen UeferaH) 239.— 


Pockel-Computer 


PC-1246 S 

94,- 

PC-1280 

268,- 

PC-1460 

275,- 

PC-1248 

123,- 

PC-1360 

344,- 

PC-1475 

275- 

PC-1260 

197,- 

PC-1421 

240,- 

PC-1500 A 

315- 

PC-1262 

275,- 

PC-1425 

275,- 

PC-1600 

638- 

PC-I27C 

115,- 

PC-1450 

219.- 

PC-2500 

549,- 

EPSON 


EPSON 

- EPSON 


Der neue Renner von EPSON: LX-800 


»48,- 


FX-800 937,- 


Fx-iooo 1208,- 


LQ-800 1479,- LQ-1000 1929,- LQ-2500 2578,- 

IX-800 1574,- EX-800 1319,- EX-1000 1649,- 

LX-86 689,- SQ-2500 3198,- 

Görlitz-Interface EPSON/C64 od C128 198,- 

NEC - NEC - NEC - NEC - NEC 


Software Software Software 

Microsoft Word 3 01 deutsch 938,- Word 3.0* MouseSundlBdeutsch 1149,- 

Cfiart201dBUlsch 598,- Muliipian3 Odeutsch 528,- 

Projec! 2 01 englisch 748,- Mullipian+Mouse3uhdle deutsch 778,- 

Windowsl 02deulscli 258,- Windows-tMouseBundledeutsch 548,- 

Multiuser/Netzwerkprogramme 

Word2.0l deutsch, 3er-Netzlizenz 1848,- BasicComplerV 5 4,Xenixengl. 1298,- 
BasicInlefprelerer^l. Version 5 40Xenix 648,- PsscalComolerengl ,Version3 SOXenb: 1298,- 
FortranCoinpierengl..VersKin330Xenix 1298,- CoWConpilaenql Version210Xenix 1848,- 
CosolTcdsV 10engüVer«n1.l)OXen*848,- 

SPi Open Access il deulsch 1199- 

Aslhon Tale, Computer Assodales Digital Research, Heimseoth, Lotus, MicroPro, 
Bongaitzund Schmidt, Nantucket/KRS, STSC, General Opt misat on 


PB 

2222,- 

PB XL 

2408,- 

P 5 XL seriell 

2498,- 

P 6 

999,- 

P 7 

1348,- 

P 6 color 

1398,- 

P 7 color 

1648,- 

P 6 seriell 

1498,- 

P 7 seriell 

1898,- 



P B seriell color 

1698,- 

P 7 seriell color 

2198,- 

Pin-Fe«d-TractorfufP6 

145,- 

275- 

Bldirektionafe-- Tracicr für P6 348,- 

Pin-Feed-TracloriürP7 

B!dirBkhonalerTr8C!orfürP7 398,- 

Cut-Sheet-FeedorfurP7 


598,- 


Schneider Schneider Schneider 

Schneider6128grün 749,- JoycePCW-8256 1548,- 

DMP-2000 528,- DMP-3000 558,- 

DMP-4000 848,- Joyce + PCW-8512 2098,- 

Schneider PC - Schneider PC 

PC MM/SD 1349,- PC MM/HD 20 (Seagate 65 msl 2249,- 

PC MM/DD 1799,- PC CM/HD 20 3149,- 

PC CM/DD 2249- PC CM/HD 20 (Seagate 65ms) 2699,- 

PC MM/HD 2C 2699,- Vbtiex PC 1512 20 MB-Dive Ca'd 1198,- 

Speichererweiterunoaut640KBRAM 148,- 

Brother - Brother - Brother 


Cg KÜDCERa 

F-1010 6998,- F-2010 1 0.898,- 

Citizen - Citizen - Citizen 

LSR-10 548- MSP- 1 0e 698,- MSP-15e 848,- 

MSP-20 798,- MSP-25 1048,- HQP-45 2098,- 
Einzelblatteinzug für LSP-10/120 _ 298- 

1 LSP-120 0 Commodore- oder Pamüei-Schnittstelle 448^~1 

Juki - Juki - Juki - Juki - Juki 

Juki 5510 748,- Wir liefern die gesamte Juki-Produktpaiette! 

Panasonic - Panasonic 

KX-P 1081 498,- KX-P 1082 738,- KX-P 1083 1048,- 
KX-P 15921195,- KX-P 1595 1598,- 

Seikosha - Seikosha - Seikosha 


SP-180 A 449,- 

SP-1200 AS 

528- 

SP-180 VC 

449,- 

MP-1300 AI 1096,- 

SP-1200 Ai 

528,- 

VIP-5300 Ai 

1378,- 

SL-80 Ai 



nur 798,— 

Disketten No-Name 

«Stück 

50Stück 

lOOStück 

3" Maxell 


70,-DM 

330,-CM 

650,-Dk 

372" 10 


35- DM 

149-DM 

249,-Dk 

372" 2 D 


39,-DM 

159,-OM 

299,-Ok 

57j"2D 


19,-DM 

59,-OM 

89,-DM 

B'/4 h 1 D 

100 Stück 

79, 

-DM 

S'/4" 1 D 

1000 Stück 

698, 

-DM 

B'/4" 2 D 

1000 Stück 

Z«§1 

-DM 


5V<" Dataiife HD, 1,6 MB 


10 Stück 


69,- DM 


ProSoft GmbH 


Bogenstraße 51-53, Postfach 207, D-5400 Koblenz-Goldgrube 
Telefon (0261) 4047-1, Telex 862476 PSOFT 


Alle Preise Zuzug. 10,-OMVersandkostenproPaketüeferungperNachnahmeoder\forkasseschack-VersandkostenAuslandDM40r proPaket Lassen Sie sich keinen Bä renaafbinden! ProSoftliefert Original-Produkte derführenden Hersteller. 
Überzeugen Sie sich selbst durch Abholung der Ware in unseren Verkaufs- und Vorführräumen in Koblenz. Wir gewähren Ihnen bei Barzahlung (kein Scheck) 2 % Skonto auf alle Preise, was vielleicht schon zur Deckung Ihrer Reisekosten 
ausreicht. Einige unserer Voriieferanten liefern Produkte ohne die Seriennummer des Herstellers, ln diesem Fall übernehmen wir anstelle der Herstellergarantie die unbeschrankte gesetzliche Gewährleistung. 8/87/1 

































































1—Programm 


3140 DATA 229,213,205,222,107,209,225,229,213,205,234,187, 2S1 C21311 


3150 DATA 209,225,241,-4,27,60,254,11,204,18,166,193, 6213 £20961 

3160 DATA 16,226,50.170,163,60,254,11.204,18,186,50, 2502 £26651 

3170 DATA 170,163,-2,35,125,254.184,32,199,201,62,1, 7305 £26751 

3100 DATA 201,254,1,192.243,221,66,0,1,33.127,62, 9864 £31761 

3190 DATA 64,33,-2,255,230,95,246,64,237,73,237,121, 9439 £29263 

3200 DATA -3,0,60,43.95,124,181,123,32,237,21,32. 1294 £21521 

3210 DATA 231,251,201,17,0,192,-2,6,221.33,91,166, 264 £17661 

3220 OATA 98,107,54,0,-6,35,124,163,32,244.221,94, 2360 £24351 

3230 DATA 0,221,35,16,235,201,3,5,2,1,4,0, 1468 £20431 

3240 DATA 0 [1671 

3250 • £1171 

3260 PRINT:PRlNT:PRINT"BItte legen Sie die Kassette/Diskette £57131 

alt -SPACE GLIDER- - Teil 1 ein." 

3270 PRINT"Falls Sie eine Kassette benutzen,spulen Sie diese a (99651 
n die richtige Stelle und druecken REC t, PLAY" 

3280 PRINTSPRINT"Bereit 7 ENTER druecken !" £27701 

3290 WH ILE INKEY*=CHR*<13):WEND £1934] 

3300 WHILE !NKEY*OCHR$< 13) :WEND £1261) 

3310 SAVE" ! g I lder. gra", b, l<5000, &S660 (3220) 



10 • £117) 

20 • Teil 3 £208) 

30 ' £1171 

40 GOTO 2280 £3391 

50 r=REMAINCO):SOUND 135,0 £13531 

60 lve*0: I a» 1: et r = 3: 1 Er satz t ranapor-ter £2956) 

70 cre=lOOsFOR t = 0 TO 6:1 ad(t>=0svg = 0:NEXT t £12071 

80 cr=0 (931 

90 ae-INT(RND>6)‘l:IF esCIs THEN an=ae-lu‘6 ELSE en = as-le £24401 

100 IF en<2 THEN 90 £7213 

110 co)1*21scoI2=3:G0SUB 2660 £14263 


120 I GET s 11»*"LI EFER AUFTRAG" It2*="V0N STATION"‘STR*<ae)‘".-:GO £5845) 
SUB 770 

130 GOSUB 290:EIsIF cr»l THEN GOSUB 920:cre-cra‘1wa:Iwe=0:wg*0 £70391 
sFOR t=0 TO 6:I ad(t>=0:NEXT t:etr»etr-1:IF etr>=0 THEN 80 ELSE 
960 

140 GOSUB 520sIF er = l THEN GOSUB 940setr«etr- 1sIF etr>«0 THEN £43673 
140 ELSE 960 

ISO FOR t«0 TO 6sanz(t)«INTCRND«10)swert<t)=INT(due(t)-RND»due E4337J 


(t>/2> sNEXT t 

160 GOSUB 1020 £8633 

170 GOSUB 1710 £869) 

180 as*INT(RND»6)‘l:IF as<ls THEN en=as-le*6 ELSE an-as-ls £24403 

190 IF en<2 THEN 180 £7713 

200 coll=21:col2=3:G0SUB 2660 £14283 

210 !GETttl*="ZIELSTATI0Ns"‘STR»(as>:t2*="":G0SUB 770 £42913 


220 GOSUB 290sEIsIF or = l THEN GOSUB 920scre=cre‘Iue:Iwe*0swg>0 £70391 
sFOR t-0 TO 6:Iad(t)-0sNEXT t:etr-etr-1sIF etr>*0 THEN 80 ELSE 
980 

230 GOSUB 520:IF cr-1 THEN GOSUB 940setr=etr-1sIF etr>*0 THEN £36353 
230 ELSE 960 

240 FOR t=0 TO 6:anz<t>=0:wert(t>=INT(du#(t)‘RND»dwe(t>/2>:NEX £30603 


T t 

250 GOSUB 1020 £8633 
260 GOSUB 1710 £8693 
270 GOTO 80 £3061 
280 - £1173 


290 bze=0:gB»l00:x*34:y=66:x2=x:y2*y:mx=0:ar=0:a2»0:gm=0sgm2=0 £7400) 
s my* 0 :qa= 0 : f m» 0 : by= 0 : b 2 = 1 s 

300 LOCATE 9,21tPAPER lSsPEN 14sPR[NT US ING"£"jI9sLOCATE 20,21 £71133 
SPRINT US ING"t";assPAPER 14sPEN 12:L0CATE 13,19:PRINT USING-tt 


£"ige 

310 ISSET,x,y,atrn(O) £1414) 

320 GOSUB 2790 £8291 

330 EVERY IS GOSUB 870 £16563 

340 EVERY 150,1 GOSUB 900 £3303 

350 Jx=Osjy=0:fe=0sIJOY,8Jx,8Jy,Bfe:IF fe THEN J2 =jy«S0sjy*0 £34961 

360 IF jx=0 AND jy-0 THEN ar=OcGOTO 410 £17373 

370 IF }x = -l THEN ar = l ELSE IF jx=l THEN ar»2 £1175) 

380 IF Jy = -1 THEN ar=4 ELSE IF jy = l THEN ar = 3 £14153 

390 x=x‘jx«2:IF x<12 OR x>5S THEN x»x2 £30293 

400 y-y-jy«3:3F y<40 OR y>96 THEN y»y2 £26963 


410 qs=q«+ae/10:IF q*>3300 THEN qa *0:Is=1a‘1:IF l»*7 THEN ie«l £36973 
420 IF bZOIs THEN b2«I3:D1:LOCATE 9,21sPAPER lSsPEN 14sPRINT £4318) 
US ING"£"jlasEI: by=80sby2=60 

430 IF by THEN by*by*(by-731«1 ge*2501/4700sba■INT 1(by-80>79.54 £155521 
):IF by>l15 THEN by»0::SDEL,34.by2,sta(O)ELSE IF by>106 THEN I 
F y>90 AND x<42 AND x>24 THEN IF le=aa THEN DIsr=REMAIN<0)«REM 
AIN(1)+ REMAIN(2)+ REMAIN(3)s(1=0 s RETURN 

440 IF mx + by = 0 AND I NT< RND* (60- < ge /161 ) > =0 THEN mx»x*10-I NT(RN C72SS3 
D»16)s ay=y‘8-I NT(RND»18):gro-Os fm = 0 

4S0 IF mx THEN fm=fm+ge:[F £m>1500 THEN gm-go‘1 s t m = 0 £4367] 

460 IF mx THEN IF gm>4 THEN:SOEL,mx,my,amet(0):mx=0 ELSE IF gm £95723 
>3 THENICHECK,mx,my,gmet(gra2):IF PEEK( et 1)THEN er=1:r=REMAIN(0 
) + REMA I N< 1) *REMA I N (21 »REHA INO» : RETURN 

470 IF x<>x2 OR y<>y2 OR »r<>»2 THENISMOVE,x,y.x2,y2,strn<ar): £58723 
x2*x:y2=y:a2=ar 

480 IF by>0 THENISMOVE,34,by,34,by2,9ta(ba):ISSET,x,y,strn<ar) £36901 
:by 2 =by 

490 IF mx>0 THEN ! SSET, mx , my, sine t ( gro) s ! SSET, x, y, a trn Car ) s gm2" gm £41653 


500 GOTO 350 £470) 

510 ’ £117) 

520 co1l=22scoI2=18s!SCROFFsGOSUB 2660:SOUND 130,0 £3059) 

530 zx=10szy=3Ssx2=10:y2=35:rx«0.1:ry=0.1:ai<l:a2=l:tx*0 £18081 

540 IF er“1 THEN cr*0:GOTO 610 £10823 

550 LOCATE 1,6:PAPER OsPRINT SPACE«<120>; £12123 

560 SOUND 129,700,1000,14:SOUND 132,702,1000,14 £28143 

570 a*=CHR*(154> [4283 


580 PEN 11sPAPER 13:PRINT STR 1NG*<3,143)i:PEN SsPRINT a*;:PEN £149953 
2:PR I NT a»;:PEN IsPRINT CHR*<145PAPER OsPRINT SP ACE* C31 ; :pA 


PER 13:PR I NT CHR*(146)isPEN 2:PRINT a»|:PEN 3:PR!NT a*stPEN 11 
SPRINT STRINGK8. 143) j 

590 PAPER Osad-fcAlOFsFOR t»l TO 260:a = PEEK(ad):ad*ad‘l sPEN a«l 
1:PAPER a"13:PRI NT CHR*C143)1sNEXT t 

600 PEN 8:PAPER 15 s SOUND 133,0:S0UND 130,0,0,0.5,0,31:FOR t»19 
TO 21s LOCATE 20,t:PRINT CHR«1143)s:NEXT t 
610 ISCROLL.30 

620 IXSET, INT(zx), INTCzy>.sI an(ax> 

630 Jx =0 s fe=0 1 !J0Y,8Jx,ajy,9fe:rx = rxtJx/20:ry = ry-fe/2*0,13:zx= 

zx‘rx:zy=zy+ry:IF zx<4 THEN zx=4 ELSE IF zx>70 THEN zx=70 

640 IF zx>66 THEN IF zy>100 THEN 720 

850 IF zy<34 THEN zy = 34 ELSE IF zy>180 THEN zy=180 

660 IF tx>0 THENIXSET,tx,ty,stw(at) 

670 IF Jx = l THEN ax=0:at = 0:tx>INTCzx)-3:ty«I NTCzy)+3:k»1 ELSE 
IF jx = -l THEN ex=l:tx=INT(zx)‘asty=lNT(zy)‘3:at=l:k=4 ELSE IF 
fe THEN tx=INT(zx)‘2:ty=lNT(zy)‘9:at=2:k=2 ELSE tx=0 
680 !XHOVE,x2,y2,5lan(a21,INTC2X),INTCzy),alancax):a2«ax:x2=IN 
T C zx):y2=INTC zy> 

690 I CHECK. INTCzx), INTCzy),slanCax):IF PEEKCsfIJTHEN cr=l:RETU 
RN 

700 IF tx>0 THENIXSET,tx,ty,atu(at)sSOUND I28*k,0,13,15,0,0,16 
710 GOTO 630 

720 SOUND 129,1000,-100,0,3sS0UND 130,990,-100,0,3 

730 FOR t=64 TO 111 STEP 2:PL0T 604,t,0:DRAU 639,t:F0R 1=1 TO 

lOOsNEXT l,t 

740 SOUND 131,0 

750 RETURN 

760 • 

770 ISCROLL,30sSOUND 129,119,-17,0,3sSOUND 130,239,- 17,0,3:SOU 
ND 132,237,-17,0,3 

760 WINDOWtl,1,20,14,24:WIND0W£2,2,19,IS,23sPAPERE 1,0:PAPERE2, 

0 

790 PENE1,11:b* = CHR*(1341«SPACE* C18)»CHR* C135)sFOR t-1 TO 5:LO 
CATEE1,1,6-1SPRINTE 1,b*sLOCATEt1,1,5*tsPRINTEl.b*sNEXT t 
600 LOCATEt 1, 1, 1 : PR 1NTE1, CHR* C128) -»STR I NG* ( 18, 132) *CHR*( 129)‘C 
HR* C134):LOCATEE1,1,11:PR INTt1,CHR»<130)‘STR ING»<18,133)‘CHR*< 
131)Is LOCATEt1,2,2 

810 WINDOU SWAP 0,2:PAPER OsLOCATE 1,8 

820 PEN 14:a* = tl*s GOSUB 1670s PRINTsIF t2*<>""THEN a* = t2*:G0SUB 
1670:PRINTsPRINTsPRINT ELSE PR INTsPRI NT:PR I NT 
830 WINDOW SWAP 0,2 

840 WHILE I NKEY*<>"" : WEND :C ALL S.BB08 
850 IGET;RETURN 
860 - 

870 IF fe=0 THEN RETURN 
830 ge2=ga:ge=ge‘J2 

890 IF ge<100 OR g«>800 THEN ge=ga2:RETURN ELSE DIsPAPER 14:L0 
CATE 13,19:PEN 12sPRINT US ING"£11"|ge:EI:ISCROLL,1400/((ge‘250 
1/6):RETURN 

900 bze=bze*l sPAPER lSsLOCATE 13,23sPEN HsPRINT US1NG"E£" sbze 
:RETURN 
910 ’ 

920 ISCROFFsSOUND 135,0:SOUND 2,1000,1000,l4,0,0,31IFOR t=0 TO 
300:IXSET,x2,y2,atrnca2>sNEXT tsSOUND 130,0 
930 RETURN 

940 SOUND 135,0:SOUND 2,1000,1000,14,0,0,31:FOR t=0 TO 300:IXS 
ET,INTCzx),INTCzy),alen(ex)sNEXT tsSOUND 130,0 
950 RETURN 

960 !SCROLL,30:PR INT CHR*(22)jCHR»(1)(sFOR t«l TO 9:PEN 10-tsL 
OCATE 5‘t,11:PR I NT MID*("SP I ELENDE",t,1>s:SOUND 129,50,100,13, 
0,3 s SOUND 132,52,100,13,0,3sF0R 1 = 1 TO 300sNEXT t.t 
970 PRINT CHR* C 22))CHR*(0); 

960 PAPER 13:PEN 12:L0CATE 3,13:PR I NT"-I HR VERDIENST-":PEN 14s 
LOCATE 6,IS s PR INT US1NG"££££";cre;sPR I NT" Cr. ":WH ILECJOYC0)AN 
D 16 > =0:WEND 

990 IF ore>haoore THEN hscora=ore 
1000 ICLS:GOTO 2570 
1010 • 

1020 ICLS:ISCROFFsMODE Os INK 1,0:PEN 1sPAPER 0 

1030 LOCATE 1,9:PRINT CHR*(128)‘STR ING*(18,132)‘CHR*(129) 

1040 FOR t=10 TO 15::LOCATE l.tsPRINT CHR*C134)sLOCATE 20,t:PR 
INT CHR*(135)sNEXT t 

1050 LOCATE 1,16:PRINT CHR*(130)‘STRING*C18,133)‘CHR*(131)| 
1060 LOCATE 7.11 SPRINT "GELANDET":LOCATE 6,13:PR!NT "BENOETIGT 
E" 

1070 LOCATE 7,14sPRINT "ZEIT :";US ING"££":bze 

10B0 SOUND 129,1000,1000,14:S0UND 130,1010,1000,14sSOUND 132,1 
020,1000,14 

1090 I FLICKER,3:SOUND 135,0 

1100 MODE IsINK 3,9:INK 2,16:INK 1.24:PEN 2:wg2»wg 

1110 a* = CHR*C128>‘STR ING* C 38.132)‘CHR*(129I:b*=CHR*C130)‘STR IN 

G*(38,133)+CHR* C131) 

1120 PRINT a* 

1130 FOR t = 2 TO 17 s LOCATE l.tsPRINT CHR*(1341sLOCATE 40,tsPRIN 

T CHR*<135)isNEXT t 

1140 LOCATE 1,18SPRINT b» 

1150 PEN 3:LOCATE l.lSsPRINT a* 

1160 FOR t=20 TO 24sL0CATE l.tsPRINT CHR*(134)sLOCATE 40,t;PR[ 

NT CHR*(135)sNEXT t 

1170 LOCATE 1,25:PRINT b*s 

1180 WINDOWE1,2,39,20,24:PENtl,1:WINDQW 2,39,2,17;PEN 1 
1190 WINDOW SWAP O,1:a*="Statu»s"sGOSUB 1670 
1200 bo»(en»80)/bzesore=ore‘bo 

1210 a*="Ersatztransporter s"+STR*<etr):GOSUB 1670 

1220 a*="Geld :"‘STR*(cre>+" Cred1ta H :GOSUB 1670 

1230 a*="Benoetigte Zelt s"‘STR*(bze)sGOSUB 1670 

1240 a*="Ze1tbonue s"‘STR*(bo1‘" Credits"sGOSUB 1670 

1250 WINDOW SWAP O.lsLQCATE 5,2 

1260 !SSET,2,8,ecom 

1270 a* = "Handel 9Computer der Statlon" + STR*(Is)sGOSUB 1670 
1280 ISSET,69,8,Boom 

1290 LOCATE l.AsPEN 3:PRINT STR ING*(36,1S41 

1300 PEN 1s FOR t=0 TO 2:L0CATE 1*t»13.5:PR 1 NT men*(t)sNEXT t 
1310 x=38:y=80 

1320 xl«2:xr»75:yo*40:yu=47sGOSUB 1590 

1330 ch=INT((x-21/26)sLOCATE 1*ch«13,5:PR 1 NT CHR*(24);:PR 1 NT m 
en»(oh)‘SPACE*(12-LEN(men*(ch)>)(SPRINT CHR*(24) 

1340 ON eh GOTO 1420,1480 
1350 cr=0:G0SUB 1510 
1360 GOSUB 1590 
1370 IF y1*7 THEN 1490 

1380 IF anz(yI1=0 OR cre-wert<yI)<0 OR wg>7 THEN 1360 
1390 anz(yl)=anz(yl)-l:iad(yl)=lad(yl)‘l:wg=wg‘l:cre=cre-vert( 
yl>:lwe=lwe+10:G0SUB 1650 
1400 GOSUB 1570 


£51961 

£59663 

£1370) 

£27193 

£65113 

£3461) 
£23073 
£ 1642) 
£100541 


£6365) 

£37261 

£32911 
£4071 
C 32031 
£42711 

t1030) 
£555) 
£117) 
£4504) 

£4658) 

(7888) 

(74173 


£27733 
(7255 3 

£10263 

£24973 

£10233 

£1173 

£854 3 

£533 3 

£82853 


C40583 

£1173 

£58783 


£555 3 
£44153 

£5553 

£104813 


£14023 

£77193 


(18993 
£ 16343 
C 117 3 
C23S73 
£28193 
£50843 

£36983 

£18473 

£22301 

£43473 

£13053 
£ 1854) 
£41133 

C39Ö) 

£4407) 

£10153 
£ 1546) 
£5262) 

(14493 
£36843 
£3597) 
£14383 
£40231 
£34473 
£2800) 
£41243 
£21113 
£1848) 
£40313 
C1528) 
(26483 
E26S7) 
(1212) 
(23243 
£4342) 

£13013 

£956) 

£829 3 

£1441) 

£33843 

£58863 

£897 3 
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Programm—i 


:‘1Ö GOTO 1360 £411) 

1»2C cr*255:GOSUB 1510 £1088) 

:a30 GOSUB 1590 £829) 

--*0 IF y1=7 THEN 1490 ELSE IF lad(yl>=0 THEN 1430 £1953) 

1450 1 ad(yI)* 1 ad < y1)-1ianz(y1)=ao2(yI)*1:wg=wg-l:ere=cre»werte £5687) 
,.):Iwe=lwe-10:GOSUB 1650 

1460 G0SU8 1570 £897) 

£470 GOTO 1430 C341) 

1480 !CLS:RETURN £1233) 

1490 FOR t = 7 TO 16! LOCATE 6,t:PRlNT SPACE* (28) 1 NEXT t C2144) 


1500 LOCATE l*ch«13,5:PRINT ment < ch)»SPACE* <12-LEN(men* < ch)1): £1447) 
:GOTO 1320 

1510 PAPER 2: PEN l.-LOCATE 6,7:PRINT CHR*<128)»STR ING*(26,132>♦ 14129) 
CHR*(129) 

1520 FOR t = 8 TO ISiLOCATE 6,t:PR!NT CHR*<134)jiLOCATE 33,t:PRl £5245) 
NT CHR»(135):NEXT t 

1530 LOCATE 6,t:PR INT CHR*<130>»STR ING*(26,133>»CHR*(131>:PAPE £43493 
R 0 


1540 FOR yi=0 TO 6 E GOSUB 1S70:NEXT y) £2165) 

1550 LOCATE 7,15iPRlNT" WEITER -- UE)TER -- WEITER" 12175) 

1560 xl=14:xr=6S:yo=64:yu=127:RETURN £2828) 

1570 IF cr=0 THEN t=anz(yl) ELSE t=Ud(yl) £1244) 

IS80 FOR 1=2 TO 1 STEP-lsPEN 1:LOCATE 7,8tyl:PRINT war*(yl>i:L £10235) 
OCATE 18,Styl:PR I NT":"!US ING"££";ti:PR I NT" St. ”sUS ING"£££"iwe 
rl(yl);:PRINT" Cr.":NEXT 1:RETURN 

1590 IXSET,x.y.epfall £1761) 

1600 x2=x:y2=y:jx=0:Jy=0:fe=0:!JOY,ejx,@jy,afe:x=x»jx:IF x<2 T £8719) 
HEN x = 2 ELSE IF x>75 THEN x=7S 

1610 y = y* jy«2:lF y<40 THEN y=40 ELSE IF y>126 THEN y = 126 £1613) 

1620 IXHOVE,x2,y2,»pfell,x,y,»pf*11:IF fe=0 THEN 1600 £2784) 

1830 IF x<xI OR x>xr OR y<yo OR y>yu THEN 1600 £2125) 

1640 IXSET,x,y,spfell:yl=|NT((y-yo>/8):RETURN £3005) 

1650 L0CATE£l,2O,3iPRINT£l,crei"Cr»dlt. RETURN £2828) 

1660 • £117) 

1670 FOR t = l TO LEN(a»):b*=MID*<•»,t,1):PRINT b«*CHR*(144>»CHR £5336) 

»(8)s:IF b*<>" "THEN SOUND 129,80,2,13:SOUND 132,40,2,13 
1680 FOR 1=1 TO 10:NEXT !,t £1467) 

1690 FOR t=l TO ieO:NEXT tiPRINT" ": RETURN £2640) 

1700 ’ £117) 

1710 MODE 0: IF wg2=wg THEN RETURN £2540) 

1720 coll=21:col2=l5:G0SU8 2660 (1248) 

1730 FOR t*l TO 15:INK t.OiNEXT t £1784) 

1740 an*ABS(wg-wg2> £943) 

1750 iDRAU £1067) 

1760 IF wg<wg2 THEN(SSET,2,135,e1 an(0):ISSET,67,130,ata(3)ELSE £56983 
ISSET.70,135,9I an(0>:ISSET,1.I30,sta(3) 

1770 PEN 11:LOCATE 1,20:PRJNT an:LOCATE 18,20:PRINT 0 132331 

1760 LOCATE 9,18 £560) 


1790 PEN 4:PR I NT CHR*(1S4);:PEN 3:PRINT CHR*<154)PEN 2:PRINT £69743 
CHR*(154)|:PEN 1:PR I NT CHR»C14S> 

1800 PEN 12: PAPER 13:F0R t = l TO UrLOCATE 5,t:PRINT CHR*(143>: £4930) 
LOCATE 17,t:PRiNT CHR*1143):NEXT t 

1810 PEN 1l:PAPER 0 £1584) 

1820 FOR t=l TO an:IXSET,10.96-t«10,scon:NEXT t £19093 

1830 INK 11,24:INK 12,1S:INK 13,6:INK 14,22:INK 15.11:ISCROLL. £26433 
2 « 

1840 SOUND 1,119,32000,1,0,1 11314) 

1850 jy=0:an2=0:cx=0:cy=94:cx2«0:x=16:y=100:g1=0:IXSET,x.y,afz £2579) 
1860 y3=80:y4=80:y5=80:bl=-3:b2=-4:b3=-5:IXMOVE,30,y3,srob,40, £65553 
y4,irob:IXSET,50,y5, arob 

1870 x2=x:J2")x:y2=y:jx=0:fe=0:IJOY,0Jx,9jy,8fe:IF jx AND NOT C9S08J 
}2 THEN SOUND 130,239,30000,12,0,2 ELSE IF )2 AND NOT jx THEN 
SOUND 130,0 

1880 x = x» jx*2:IF x<20 THEN GOSUB 1990 ELSE IF x>56 THEN GOSUB £5770) 
2010 


1690 IF fe THEN 2030 £8701 

1900 IXMOVE,x2,y,9f2,x,y,sfz £2479) 

1910 IF gl=l THEN cx2=cx:cx=x*2:IXMOVE,ox2,cy,flcon,cx,cy,scon C3829I 
£920 IF gl=l THENICHECK.cx.cy.acon:IF PEEKCsf1)THEN 2180 ELSE I £4820) 
CHECK,x,y,sfz:IF PEEK< afI>THEN 2180 

1930 y6=y3:y3=y3+bl:IF y3<50 OR y3>94 THEN bl=-bl £3104) 

1940 :XM0VE,30,y6,srob,30,y3,srob £1241) 

1950 y?=y4:y4=y4*b2:IF y4<50 OR y4>94 THEN b2=-b2 £13893 

1960 IXMOVE,40,y7,srob,40,y4,srob £2680] 

1970 y8=yS:y5=y5*b3:IF y5<50 QR y5>94 THEN b3=-b3 £23983 

1980 IXMOVE,50.y8,srob.50,yS,srob:GOTO 1870 £3202) 

1990 IF gl=l THEN x=n2:RETURN £11273 

2000 IF x<8 THEN x=x2:RETURN ELSE RETURN 1229SJ 

2010 IF gI=0 THEN x=x2:RETURN £745) 

2020 IF x>68 THEN x=x2:RETURN ELSE RETURN £19341 

2030 IF x2=8 AND gl“l THEN 1900 (1036) 

2040 IF x2=68 AND gI=0 THEN 1900 C1737J 

2050 IF x2=68 THEN 2120 £11411 

2060 IF x2>8 THEN 1900 £479] 

2070 SOUND 130,OtSOUND 129.476,1000,13,0.0,1 £3356) 

2060 FOR t=97-an*10 TO 94:IXKQVE,10,t-1,scon,10,t,soon:NEXT t £40213 
2090 SOUND 129,0,0,0,5,0,20:SOUND 1,119,32000,1,0,1 13323) 

2100 FOR t=9 TO 20:IXMOVE,t-1.y,a tz ,t,y,sf z: IXHOVE,t»1.y-6,sco £4689) 
n,t*2,y-6,scon:NEXT t 

2110 gI=1:an=sn-1:LOCATE 1,20:PRINT an:x=20:x2"X:ex=22:oy=94:J £4415) 
x=0:G0T0 1900 

2120 SOUND 131,0:SOUND 132,478,1000,13,0,0,1 (3263) 

2130 FOR t=94 TO 87-an2«10 STEP-1:IXMOVE,70.t-1.scon,70,t,scon £31463 
:NEXT t 

2140 SOUND 132,0,0,0,5,0,20:SOUND l,O,S0:30UND 1,119,32000,1,0 £4815) 
, 1 

2150 FOR t=67 TO 56 STEP-1:IXMOVE,t»l,y,sfz,t,y,sf z :NEXT t £4458) 

2160 IF an=0 THEN RETURN £1552) 

2170 g1=0:an2 = an2»1:LOCATE 18,20:PR 1 NT an2:x*S6:x2 = x:Jx = 0:G0T0 £29403 
1900 

2180 SOUND 130,1000,1000,13,0,0,31 £15893 

2190 FOR t = 0 TO 70 : I XSET, cx , cy, scon i CALL S.BD19:NEXT t:gl=0 £4424) 

2200 SOUND 130,0 £1018) 

2210 IF wg2>vg THEN 2250 £1386] 

2220 FOR t=0 TO 6:IF lad(t)>0 THEN I ad<t) = I ad(t)-1:t = 6 £4204] 

2230 lwe=lwe-10 (1251) 

2240 NEXT t:lF an«0 THEN RETURN ELSE 1930 £3204) 

22S0 FOR t=0 TO 6:!F anz(t)>0 THEN cre=cre-uert(t>:t=6:IF cre< (26813 
0 THEN cre=0 

2260 NEXT t:IF an=0 THEN RETURN ELSE 1930 £3204) 

2270 • £117] 

2280 DEFINT a-q,x.y.m.w £1062) 

2290 INK 0,0:INK 11,24:[NK 12,15:INK 13,6:INK 14,22:INK 15,11 £2359) 

2300 BORDER 0:MODE O 1964] 

2310 DIM sta(3),atrn(4),slanll),e t w (2 >,sme t(4> £2499) 

2320 s fl=NASAO C339 3 



2330 

RESTORE 2390 

£784) 

2340 

FOR t = 0 TO 3:READ sta<t):NEXT t 

£19713 

2350 

FOR t =0 TO 4:READ strn<t):NEXT t 

[3509] 

2360 

READ aisn(O).alan(1> 

£21823 

2370 

READ 9tw(0>.atu<1),9tu(2) 

£1317) 

2380 

FOR t = Q TO 4:READ sme111):NEXT t 

£3189) 

2390 

DATA 38174,36368,38562,38756 

[971 ] 

2400 

DATA 36864,36996,37128,37260,37392 

£8633 

2410 

DATA 389S0,39016 

£7483 

2420 

DATA 39082,39099,39116 

C7S9) 

2430 

DATA 37524,37654,37784,37914,38044 

£ 1532 3 

£440 

scom=39254;spfei 1=39440 

E1S03) 

2450 

sfz=39l36:scon«39186:srob=39216 

£14043 

2460 

DIM war*(6),dwe(61,anz(6).1ad(61,wert(6):FOR t=0 TO 6:REA 

£47193 

D war 

*(t),dwe(t >:NEXT t 


2470 

DATA Ersatztelle,10 

[548] 

2480 

DATA Batterien,15 

£646 3 

2490 

DATA Maschinen,20 

£641 ) 

2500 

DATA Computer,40 

(730) 

2510 

DATA Waffen,90 

£626 3 

2S20 

DATA Roboter,200 

£11613 

2530 

DATA Sonden,400 

(978 3 

2540 

DIM men* (2) : men» (0) «"KAUFEN" : men* ( 1 > «"VERKAUFEN" : men* (2) = 

£4744) 

"ENDE" 


2550 

hscore-200 

£712) 

2560 


£ 117) 

2570 

co11=22:co12=151GOSUB 2660 

£16013 

2580 

1SCROLL,18 

[13981 

2590 

:GET:1SSET,34,68,strn(0) 

£21543 

2600 

PAPER 0:PEN 11:LOCATE 3,7:a*="HOECHSTPUNKTZAHL"»CHR»(13)* 

£7650) 

CHR*(10)»SPACE*(3)»STR* Chscore)»" CREDITS" 


2610 
XT t 

FOR t = l TO LEN(a*):PEN< t MOD 10>»1:PRINT MID*(a*,t,1)|:NE 

£32513 

2620 

GOSUB 2700 

£9113 

2630 

WHILE<J0Y<0)AND 16>=0:WEND:GOTO 50 

£25583 

2640 

WEND 

(390) 

2650 

» 

£117) 

2660 

z=AA392;coll=col1*64;col2=co12*64 

[31451 

26 70 

FOR t=0 TO 4:POKE z*t,co11tPOKE z*t*10,oo11:POKE z*t*S,co 

£57113 

I2:POKE z»t»15,co 1 2:NEXT t 


2680 

RETURN 

(5551 

2690 

' 

[1171 

2700 

h=O:sad = S.A028:0N SQ<2> GOSUB 2710:RETURN 

£38443 

2710 

m-PEEK(ssd*2):m2=PEEK(sad)»PEEK(sad»l)«256 

£2662) 

2720 

!F< <sad-S,A028)M0D 21)»0 THEN g = m2/6:d = 0 

£24153 

2730 

d=d+1:SOUND 58,g,0,0,1:1F m = 2 THEN d=d+l:SOUND 2,g.0,0,1 

[4238 3 

2740 

SOUND 57,m2,0,0,m:SQUND 60,m2/2,0,0,m 

£27423 

2750 

d*-Q 

IF h*1 THEN IF d=2 THEN g*g«1.5 ELSE IF d=4 THEN g=g/1.5: 

[33131 

2760 

sad=aad + 3 : 1F aadJNAlOE THEN aad=AA028 : h=1 

£3057] 

2770 

ON SQ(2) GOSUB 2/10 

£ 1266 3 

2780 

RETURN 

[555 } 

2790 

sal=N9E00: a a2 = 4,9F38 : SOUND 135,0, 80:ON SQ(1)G0SUB 2810:ON 

£352/3 

SQ < 4 ) GOSUB 2830 


2300 

RETURN 

£5553 

2810 

SOUND l,PEEK(aal)»PEEK(sal*l)* 256,0,0,PEEKt sal * 2) :sal =sal 

£53963 

*3: 1 

r sal >4,9F37 THEN sal=i3E00 


2820 

ON SQ (1) GOSUB 2810 : RETURN 

L 1396J 

2830 

fa=PEEK<sa2>*PEEK(sa2*l ) *256:fb=PEEK ( sa2»2 >: IF fu=31 THEf 

(59273 

SOUND 4,0,0,0,fb,0,18 ELSE SOUND 4,fa,0,0,fb 


2840 

sa2=sa2»3:IF sa2>S.A027 THEN sa2*S.9F36 

C1576) 

2850 

ON SQ ( 4 ) GOSUB 2830:RETURN 

[11441 
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r~Serie 



Wir sind nun bei der letzten Folge 
unserer CAD-Serie angekommen. 
Mit den sieben bisherigen Folgen 
haben Sie sicherlich schon ein 
brauchbares CAD-System aufbauen 
können. Falls Ihnen noch ein Teil 
fehlen sollte, versuchen Sie viel¬ 
leicht, das fehlende Heft beim Ver¬ 
lag anzufordern, denn natürlich 
funktioniert das System erst richtig, 
wenn alle seine Komponenten vor¬ 
handen sind. 

Wie gut Sie nun das vorliegende CAD- 
System ausnutzen oder anwenden kön¬ 
nen, liegt fast ausschließlich daran, wie 
gut Sie die Formen in Ihrer Designbi¬ 
bliothek aufgebaut haben. Einschrän¬ 
kend muß man jedoch sagen, daß Sie mit 
den sehr einfachen Formen, die wir hier 
besprochen haben, zwar die Grundlagen 
der CAD-Verarbeitung erproben kön¬ 
nen, aber zu einer richtigen und sinnvol¬ 
len Anwendung ist verständlicherweise 
sehr viel mehr organisatorischer Auf¬ 
wand und eine umfangreichere Formbi¬ 
bliothek notwendig. Man muß auf jeden 
Fall die endgültige Gestalt der zu benut¬ 
zenden Form sehr genau durchdenken 
und durchplanen, ehe man sie mit dem 
Design — ds — Befehl festlegt und dann 
in seiner Bibliothek abspeichert. 

Der ursprüngliche Aufbau dieser De¬ 
signbibliothek ist zum Teil eine sehr zeit¬ 


aufwendige und mühsame Arbeit. Die¬ 
se Bibliothek muß schließlich Ihren 
Wünschen und Vorstellungen entspre¬ 
chen. Sie muß sozusagen Ihr Werkzeug¬ 
schrank werden, aus dem Sie alle benö¬ 
tigten Formen entnehmen können. So 
wird die Formbibliothek von einem Hob¬ 
byelektroniker mit ihren Schaltzeichen 
für Widerstände, Kondensatoren oder 
Transistoren ganz anders angelegt sein 
als bei einem Hobbymodellbauer, der 
seine Flugzeugteile als Symbole in einer 
Bibliothek festhält. 

Wie gut diese Formbibliothek — dieser 
Werkzeugschrank — sein wird, entschei¬ 
det letzten Endes die organisatorische 
Arbeit und Zeit, die Sie in den Desig¬ 
naufbau investieren wollen. Die Summe 
aller Formen, die Sie entwickeln, wird 
dann den Umfang Ihrer Bibliothek be¬ 
stimmen, aber es ist zum Teil gar nicht 
so einfach, diese Formen zu entwerfen. 

Das Symbol (Signum) einer deutschen 
Femsehanstalt wurde beispiels weise bei 
einer amerikanischen CAD-Firma so 
technisch aufgearbeitet, daß sich das 
Symbol im Raum streckt und dreht. Die¬ 
se Anwendung können Sie täglich im 
Fernsehen beobachten. Sie dauert nur ein 
paar Sekunden, aber im Verhältnis zu 
dieser recht einfachen Form steckt ein 
hoher orgaisatorischer Aufwand dahin¬ 
ter. Sobald die Form aber einmal in ei¬ 
ner Bibliotehk festgehalten worden ist, 
ist die Weiterverarbeitung - die 
Streckung oder Drehung der Form - je¬ 
doch in der CAD denkbar einfach. 

Die eigentliche Arbeit in der CAD ist 
deshalb immer der organisatorische Ent¬ 
wurf einer Form und dessen Eingabe ins 
System. Je komplizierter die Formen 
werden, desto umfangreicher muß die 
Vorbereitung aussehen. Auch einen grö¬ 
ßeren Speicherplatz und eine »höhere« 
Programmierung gehören dazu, wie wir 
es schon bei der dreidimensionalen Ver¬ 
arbeitung gesehen haben. 

Bis jetzt haben wir nur sehr einfache For¬ 
men — wie z.B. unsere Kreuzform — 
betrachtet. Es sind monotone Designs 
mit nur einem Umriß. Die professionel¬ 
leren CAD-Systeme verarbeiten aber 
sehr viel kompliziertere Designs, die 
sog. »Multi-forms«. In dieser letzten Fol¬ 
ge werden wir etwas über diese Art von 
Formen erfahren und wie man das vor¬ 
liegende System darauf einstellen kann. 
Zunächst aber was versteht man konkret 
unter dem Begriff »Multi-form«? 


Nehmen wir zum Schluß dieser Serie 
noch einmal unsere bewährte Kreuzform 
zur Hand. Wenn Sie unser Bild genau an- 
sehen, es wurde übrigens in ein paar Se¬ 
kunden durch das CAD-System erstellt 
- dann erkennen Sie, daß diese neue 
Form (unten links) sich prinzipiell von 
allen anderen Formen, die wir bis jetzt 
besprochen haben, unterscheidet. Unse¬ 
re letzte Kreuzform wird nämlich von ei¬ 
nem zweiteiligen Rahmen umrandet. Sie 
hat also nicht eine, sondern mehrere Um¬ 
riße und obwohl sie immer noch eine re¬ 
lativ einfache Gestalt hat, erkennen Sie 
bestimmt das Besondere daran. Sie be¬ 
steht aus mehreren zusammengesetzten 
Designs. Wie bringt man diese Form zu¬ 
stande? 

Nun, das ist in unserem vorliegenden 
CAD-System kein Problem im eigentli¬ 
chen Sinne. Wir entwerfen zuerst eine 
Kreuzform und zwei Quadrate und posi¬ 
tionieren dann die einzelnen Formen 
durch »dm« auf eine gewünschte Posi¬ 
tion. Ganz einfach also, aber eben ein 
wenig zu »einfach« und sehr umständ¬ 
lich. Ein Architekt oder ein Ingenieur, 
also ein Anwender — wird mit Sicherheit 
nicht so elementar arbeiten wollen , daß 
er ein Haus oder Maschinenteil aus »Ur¬ 
formen« zusammensetzt. Diese Benutzer 
wollen wahrscheinlich schon zusammen¬ 
gesetzte Formen wie Schrauben oder Sa¬ 
nitärteile verwenden. Eine solche, aus 
mehreren Elementarteilen zusammenge¬ 
setzte Form - also eine Form mit meh¬ 
reren Umrißen — nennt man gewöhnlich 
eine »Multi-form«. 

Mit einem »höheren« CAD-System kann 
man dann auch diese »Multi-formen« als 
Gesamtheit verarbeiten. Man kann also 
die ganze Form bearbeiten. Z.B. mit 
»Design-move« (dm) oder mit »Design- 
expand« (dx) kann man die zusammen¬ 
gesetzte Gestalt bewegen, vergrößern 
oder verkleinern. Diese komplizierten 
Designs enthalten also mehrere, ggf. 
sehr verschiedene Grundformen, die das 
CAD-System als Gesamteinheit bearbei¬ 
ten muß. Unser vorliegendes CAD-Sy¬ 
stem ist in seiner jetzigen Version nicht 
dazu in Lage, aber diese Beschränkung 
war für den Anfang nicht besonders gra¬ 
vierend. Man mußte eben mehrere For¬ 
men hintereinander plazieren. Für dieje¬ 
nigen aber, die ein »Multi-form«-taugli- 
ches System haben wollen, werden wir 
jetzt eine Versionserweiterung einführen 
und einige »Multi-form«-taugliche Be¬ 
fehle darstellen- aber natürlich nicht alle. 
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Nachfolgende Ausgaben von Schneider CPC International sowie 
Sonderhefte sind noch vorrätig und können über den DMV Verlag be¬ 
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Bei einem Bestellwert von mindestens 15,- DM werden keine Porto- 
und Versandgebühren erhoben; bei einem Bestellwert unter 15,- DM 
werden 3,- DM Porto/Verpackung berechnet (Ausland 5,- DM 
Porto/Verpackung) Lieferung nur gegen Vorkasse (V.-Scheck) 
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□ Einen Verrechnungsscheck in Höhe des Rechnungsbetrages 
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Ausgabe 

CPC 

Kassette 

CPC 

3" Diskette 

Joyce 

3" Diskette 

PC 1512/1640 

51/4“ Diskette 

1/86 

□ 14,- DM 

— 

— 

— 

2/86 

□ 14,- DM 

□ 24, - DM 

— 

— 

3/86 

□ 14,- DM 

□ 24,- DM 

— 

— 

4/86 

□ 14,- DM 

Z. 24, - DM 

— 

— 

5/86 

D 14,- DM 

□ 24, - DM 

□ 24, - DM 

— 

6/86 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

— 

7/86 

□ 14, - DM 

□ 24, - DM 

□ 24,- DM 

— 

8/86 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

— 

9/86 

□ 14,- DM 

Z 24, - DM 

□ 24, - DM 

— 

10/86 

□ 14,- DM 

□ 24,- DM 

□ 24, - DM 

— 

11/86 

□ 14,- DM 

□ 24, - DM 

□ 24,- DM 

— 

12/86 

□ 14,- DM 

Z 24. - DM 

□ 24, - DM 

— 

1/87 

□ 14,- DM 

□ 24. - DM 

□ 24, - DM 

— 

2/87 

□ 14,- DM 

□ 24,- DM 

□ 24, - DM 

— 

3/87 

□ 14, - DM 

□ 24, - DM 

□ 24. - DM 

— 

4/87 

□ 14,- DM 

□ 24,- DM 

□ 24, - DM 

□ 24, - DM 

5/87 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

□ 24,- DM 

6/87 

□ 14,- DM 

□ 24, - DM 

□ 24,- DM 

□ 24, - DM 

7/87 

□ 14,- DM 

□ 24,- DM 

□ 24, - DM 

□ 24, - DM 

8/87 

□ 14.- DM 

□ 24. - DM 

□ 24. - DM 

□ 24. - DM 



DM 

+ Porto/Verpackung 
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(Inlands, - 0M, Ausland 5, - DM 
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DM 


n Diesen Betrag zahle ich mittels des bei¬ 
gefügten Verrechnungsschecks 

□ Ich bitte um Lieferung per Nachnahme 
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Bei Nachnahme kommt zum o.g. Betrag 
noch die Nachnahmegebühr hinzu 


Datum 


Unters:•'re ise V - :*• =-■ -te'rc- " ;«s gesetzl Vertreters 
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Wie am Schluß eines jeden Kurses 
kommt immer das berühmte »weiterfüh- 
rende Projekt«, damit der Teilnehmer 
selber tiefer in die Materie eindringen 
kann. Wir halten das im Prinzip für rich¬ 
tig, denn durch das bloße Abtippen von 
Programmlisten kann man nicht beson¬ 
ders viel erfahren und schon gar nicht 
über die CAD-Programmierung. Wir 
werden aber die Lösungsskizze so ein¬ 
fach wie möglich halten, so daß jeder ein 
»Multi-form« CAD-System aufbauen 
kann. 

Jede Form, wie komplex sie auch immer 
sein mag, fängt mit der Erstellung des 
Designs an. Bei »Multi-forms« ist jedoch 
der organisatorische Aufwand, der zur 
Erstellung dieser Formen notwendig ist, 
wesentlich größer. Es muß ja nicht nur 
eine, sondern mehrere zusammenhän¬ 
gende Formen müssen aufgebaut wer¬ 
den. In professionellen Systemen neh¬ 
men — wie schon gesagt optische Scan¬ 
ner diese Arbeit weitgehenst ab. Aber 
auch hier wie bei dem angesprochenen 
Femsehanstaltsymbol — ist die Eingabe 
der Form in das System sehr arbeitsin¬ 
tensiv. 

In unserem System benutzen wir den De¬ 
sign-Befehl »Design« (ds:m) u.a. für die¬ 
se Arbeit. Als Beispiel der »Multi- 
form«-Verarbeitung werden wir jetzt 
nochmal unsere zusammengesetzte 
Kreuzform benutzen. Wir werden zu¬ 
nächst dem System die Grundrisse eines 
Quadrates bekannt geben und zwar wie 
immer geben wir zuerst die linken Koor¬ 
dinaten ein: 

1,10,101,10,80 

Nun fügen wir 

1,999,999 

als Kennzeichen dafür ein,das eine Form 
abgeschlossen ist. 

Nun geben wir die Koordinaten des dar¬ 
inliegenden Quadrates ein: 

1,20,20 1,20,70 

und wieder unser Endkennzeichen 
1,999,999 

Zuletzt geben wir dem System die innen- 
liegende Kreuzform bekannt: 

1,40,301,40,401,30,401,30,501,40,50 
1,40,60 

Entsprechend müßten wir jetzt die rechte 
Seite der »Multi-form«eingeben. Glück¬ 
licherweise haben wir aber schon einen 



Abb.l: Modus I 



»Multi-form«-tauglichen Spieglungsbe¬ 
fehl (dv) aufgebaut. Dieser wird Ihnen 
also die Hälfte der Arbeit ersparen. Ge¬ 
ben Sie also - wie immer - den Schluß¬ 
befehl 

e,0,0 

ein. Danach spiegeln Sie die Form mit ei¬ 
nem Offset von 5 —dv:5. Lesen Sie dazu 
vielleicht die »Folge Sechs« dieser Serie 
durch. 

Wie Sie sehen können, entsteht auch bei 
der Entwicklung unserer sehr einfachen 
»Multi-forms« ein relativ großer Arbeits¬ 
aufwand. Besonders die Eingabe der 
Koordinatenpunkte ist im nachhinein 
mühsam. Hier könnte z.B. eine »Joy¬ 
stick-« oder »mausverarbeitung« Abhil¬ 
fe schaffen. Die Eingabe der rechten 
Koordinaten bleibt Ihnen natürlich durch 
die »Multi-form«-taugliche Spiegelung 
(dv) erspart. 

Was passiert nun bei einem Design-Be¬ 
fehl wie z.B. beim Befehl »Design- 
Move«, wenn er diese zusammengesetzte 
Form verarbeiten sollte? Im Prinzip ist 
das ganz einfach: Der »dm« Befehl ver¬ 
schiebt die ersten Punkte wie gehabt. So¬ 
bald das Modul aber auf das Kennzei¬ 
chen 999,999 stößt, wird ein genereller 
»reset« durchgeführt und das Modul 
fangt mit den nachfolgenden Punkten 
wieder von vome an. Diese Schleife wie¬ 
derholt sich solange, bis das Designen¬ 
de (0,0) gefunden worden ist. 

Mit dieser oder einer ähnlichen Metho¬ 
de arbeiten auch die professionellen Cad- 
Systeme — auch die teuren dreidimen¬ 
sionalen Systeme. Hiermit können die 
kompliziertesten Formen aufgebaut und 
manipuliert werden. Der Innenarchitekt, 
der einen Raum gestalten will, kann also 


den Befehl geben: »Lade Waschbecken« 
und dann »move« Design zum ge¬ 
wünschten Platz innerhalb des Grundris¬ 
ses. Soll die Form vergrößert werden, 
wird ganz einfach der Befehl »dx:10« 
eingeben. Auch das Femsehanstaltsym¬ 
bol dreht und streckt sich auf Komman¬ 
do. Das ist der Komfort und die eigent¬ 
liche Verwendung eines »Multi-form« 
CAD-Sy stems. 

Um für Sie die Entwicklung solch eines 
Systems zu erleichtern, haben wir vier 
charakteristische CAD-Befehle: »vert. 
mirror« (dv), »lines connect« (lc), »cle- 
ar lines« (cl) und »design move« (dm) 
schon in der heutigen Programmliste 
ausgearbeitet. Wenn Sie die alten Unter- 
module gegen die neuen ausgetauscht ha¬ 
ben, dann können Sie sofort »Multi- 
forms« verarbeiten. 

Bei den übrigen Designbefehlen müßten 
Sie nur noch die »Reset- und Schleifen¬ 
logik« des »Design-move« Befehles ein¬ 
bauen und schon hätten Sie ein funktions¬ 
fähiges »Multi-Form« CAD-System. Der 
Speicherplatz wird allerdings sehr 
knapp, besonders da Sie für mehrstufi¬ 
ge Formen auch eine größere Design-Ta¬ 
belle benötigen - sagen wir Pmax = 
600. 

Diese Speicherplatzansprüche der »Mul- 
ti-form-CAD« und besonders der hohe 
organisatorische Aufwand bei der Ent¬ 
wicklung von mehrstufigen Designs ist 
auch der Hauptgrund, weshalb wir nicht 
von vornherein ein »Multi-form« CAD- 
System aufgebaut haben. Denn es han¬ 
delt sich ja hier um eine »Einführung« in 
die CAD-Verarbeitung und dafür rei¬ 
chen unsere einfachen Formen vollkom¬ 
men aus. Die Programmlogik ist dem- 
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entsprechend auch leicht zu verstehen 
und darüber hinaus wollten wir Ihnen 
auch die Möglickeit geben, selbständig 
eine Aufgabe zu lösen — nämlich das Sy¬ 
stem »Mutli-form« tauglich zu machen. 

Die Beschränkung des Speicherplatzes 
ist auch ein Grund dafür, daß wir sehr 
»liniar« gearbeitet haben. 

Es ist sehr schwer — auch in professio¬ 
nellen Systemen — Kurven zu verarbei¬ 
ten. Eine Methode zur Beschreibung von 
Kurven wäre beispielsweise die Biegung 
Punkt für Punkt festzulegen. 

Eine einfache Kurve müßte man dann 
mit fünfzig oder mehr Punkten beschrei¬ 
ben — das wäre auch in unserem System 
notwendig. 

Diese Schwierigkeit erklärt, warum pro¬ 
fessionelle Systeme teilweise sehr große 
RAMs haben. Ein Fünf Megabyte Ram 
ist dabei keine Seltenheit. 

Andere CAD-Systeme lösen dieses 
»Kurvenproblem«, indem sie eine sehr 


komplizierte Mathematik anwenden, in 
der eine Kurve geometrisch erfaßt und 
im Raum bewegt werden muß. 

Wenn die Bewegung darüberhinaus noch 
in einem dreidimensionallen Raum statt¬ 
finden soll, dann ist die CAD nicht mehr 
so einfach zu verstehen wie es in unse¬ 
rem selbstaufgebauten System der Fall 
ist. 

Mit unserem CAD-System können Sie 
aber auch fast alles simulieren, was pro- 
fesionelle Systeme zu bieten haben. Und 
mit ein wenig Phantasie können Sie ein 
»Multi-System« aufbauen, das Ganze 
über »joy-sticks« oder eine »Maus« steu¬ 
ern. Bauen Sie auf jeden Fall Ihre eige¬ 
nen Ideen ein, um das System zu verbes¬ 
sern. 

Zum Schluß dieser Serie möchten wir 
uns noch für die vielen Briefe Anregun¬ 
gen und VerbesserungsVorschläge be¬ 
danken und auch sagen, daß unser CAD- 
System mit Sicherheit kein perfektes Sy¬ 
stem darstellt. 


Wie bei allen mehr oder weniger um¬ 
fangreichen Programmen, werden ir¬ 
gendwann immer logische oder pro¬ 
grammtechnische Fehler auftreten 
können. 

Die kommerzielle EDV lebt zu 70 Pro¬ 
zent von der Suche nach solchen Feh¬ 
lem. Manche Befehle würden Sie mit Si¬ 
cherheit auch anders und besser pro¬ 
grammieren. 

Wir finden das nur »gut«, denn auf die¬ 
se Weise können Sie auch das Programm 
aktiv mitgestalten, verändern und ver¬ 
bessern. 

Darin liegt auch der eigentliche Sinn die¬ 
ser Einführung. Das CAD-System soll ja 
schließlich Ihren Wünschen und Vorstel¬ 
lungen entsprechen, so daß Sie sinnvoll 
mit Ihrem Computer arbeiten können. 

(Rainer Kontny) 


für 464-664-6128 



17000 

’ vertical 

17010 

’ 

17040 

’ 

17050 

IF VAL(cmd*) 

cmd* ) 

ELSE offset 

17060 

’ 

17070 

hix = 0 

17080 


17090 

FOR p = 1 TO 

17100 

’ 

17110 

IF pxy(Ix,p) 

17120 

IF pxy <1x,p) 

17130 

P> 

i F p xy ( 1 x , p ) 

17140 

* 

17150 

NEXT 

17160 

’ 

17200 

’ c1ear a1 

17210 

’ 

17220 

FOR p = 1 TO 

17230 

’ 

17240 

I F px y ( 1 x , p) 

17250 

* 

17260 

pxy(rx,p) = ( 

17270 

’ 

17280 

NEXT 


C1655] 
C 117] 

1117] 

C 3530] 

[117] 

[320] 

[117] 

[1602] 

[117] 

C1736] 
[1226] 
[21271 

[1171 
(3501 
( 117] 

[1830] 
[1171 
[16021 
[117] 

[16851 

[117] 

[17601 

[1171 

[3501 


17290 

» 

[ 117] 

17300 

’ mirror rx/ry points 

[1284] 

17310 

* 

[117] 

17320 

mi r x = hix + offset 

[9171 

17330 

’ 

[117] 

17340 

FOR p = 1 TO pmax 

[16021 

17350 

’ 

[117] 

17360 

IF pxy(lx.p) = 0 THEN GOTO 17900 

[17561 

17370 

’ 

[117] 

17380 IF pxy(lx.p) = 999 THEN pxy<rx.p)=99 
9 ELSE pxy(rx,p)=mirx+<mirx-pxy(Ix,p)) 

[5272] 

17390 

pxy(ry,p) = pxy(iy,p) 

C17721 

17400 

’ 

[ 1171 

17410 

NEXT 

[350] 

17420 

t 

[117] 

17900 

RETURN" 

[555 ] 

17910 

' 

[117] 

23000 

' design move dm 

C 1245] 

23010 

* 

[117] 

23020 

IF cmd* = "n" THEN dmm=0:G0T0 23900 

[16501 

23030 

IF cmd* = "d" THEN dmm=l:GOTO 23900 

[2463] 

23040 

• 

[117] 

23060 

GOSUB 61300:'high l/rindx 

[ 1689] 

23070 

IF cmd $ = "a" GOTO 23200 

[1186] 

23080 

IF cmd* = n m" GOTO 23400 

[1291] 

23090 

INPUT "man/auto (m/a)";cmd* 

[19381 

23100 

’ 

[117] 

23110 

cmd $ = LOWER® C omdi) 

[1280] 

23120 

* 

[117] 

23130 

GOSUB 61000 

[927] 

23140 


[1171 

23150 

GOTO 23050 

[516] 

23160 

’ 

[117] 

23200 

’auto input 

C 1046] 

23210 

> 

[117] 

23230 

GOSUB 61000:PR I NT "oursart e;m" 

C 2010] 

23240 

GOSUB 61100 

C 923 ] 

23250 

• 

[117] 

23260 

GOSUB 60000:’ free Cursor move 

[ 1436] 

23270 

• 

[ 117] 

23280 

IF cp® = "e" THEN GOTO 23900 

[1740] 

23300 IF cp$ <> ”m" THEN GOSUB 61000:PRINT 
"no cmd" : GOSUB 61100-.G0T0 23260 

[3947] 

23310 
, 1 > 

hoff = cpx-pxy ( 1x,1 ): voff=cpy-pxy < ly 

[3357] 

23320 

GOSUB 23600 

[822] 
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23330 

GOSUB 28000:’lines connect 

C10333 

23340 

GOTO 23260 

C 522 3 

23350 

’ 

C1173 

23400 

’man input 

C13403 

23410 

r 

C117 3 

23420 

INPUT "e/m,x,y";respt,hoff,voff 

£ 25513 

23430 

’ 

C 1173 

23440 

GOSUB 61000 

C 927 3 

23450 

’ 

C 117 3 

23460 

IF respt = "e" THEN GOTO 23900 

E1927 3 

23470 

1 

C1173 

23480 IF respt <> "m" THEN PRINT "cmd erro 
r" :GOSUB 61100:G0T0 23420 

C34503 

23490 

’ 

£1173 

23500 

GOSUB 23600 

C 822 3 

23510 

GOSUB 28000:’lines connect 

£10333 

23520 

GOTO 23900 

£427] 

23530 


£ 1173 

23540 

’ 

£1173 

23600 

’ move 1ef t pts. 

£ 15523 

23605 

IF dmm = 0 THEN GOSUB 29000 

£779 3 

23610 

FOR p = 1 TO 1indx 

£8703 

23615 IF pxyl1x,p)= 999 OR pxyily,p>= 999 
THEN GOTO 23660 

£21013 

23620 
y, p) 

IF set3d=l THEN PLOT pxy(1x,p>,pxy(1 

£35473 

23630 

pxy( Ix, p) = pxy l lx, p)+hof f 

£ 18573 

23640 

pxy(ly,p)=pxy(ly,p)+ vof f 

£ 17813 

23650 

y. p) 

IF set3d=l THEN DRAW pxy(1x,p),pxy(1 

£26223 

23660 

NEXT p 

£364 3 

23670 

’ move right pts. 

£ 10693 

23680 

FOR p = 1 TO rindx 

£ 14083 

23685 IF pxy(rx,p)= 999 OR pxyiry,p>= 999 
THEN GOTO 23730 

£32363 

23690 
y. P> 

IF set3d=1 THEN PLOT pxy(rx,p),pxy(r 

£36633 

23700 

pxy(rx,p)=pxy(rx,p)+hoff 

£ 15003 

23710 

pxy(ry,p)=pxy(ry,p)+voff 

£21193 

23720 
y» p) 

IF set3d=l THEN DRAU pxy(rx,p),pxyCr 

£25703 

23730 

NEXT p 

£364 3 

23740 

• 

C 1173 

23750 

RETURN 

£5553 

23760 

’ 

£ 1173 

23900 

RETURN 

£5553 

23910 

’ 

£ 1173 

23920 

’ 

£ 1173 

28000 

’ lines connect Ic 

£19373 

28010 

’ 

£1173 

28020 

1 st 1 = 1 :ls t r = 1 

£929 3 

28030 

'connect bottom r + I points 

£28823 

28040 

• 

£ 117) 

28050 

PLOT pxy(rx,1str),pxyCry,Istr) 

£31373 

28060 

DRAW pxyi1x, Istl>,pxylly, 1 st 1 > 

C18043 

28070 

• 

£1173 

28080 

’ connect all i points 

£28413 

28090 

’ 

£1173 

28100 

FOR lindx = lstl+1 TO pmax 

£ 1257) 

28110 

’ 

£ 1173 

28120 

28200 

IF pxy( ly, l indx)=0 THEN lstI=0:GOTO 

£34421 

28130 IF pxy(ly,1indx)=999 THEN Istl=lindx 
+1:GOTO 28200 

£27853 

28140 

DRAW pxy(lx,1indx),pxy(1y,1indx) 

£2350] 

28150 

• 

£1173 

28160 

NEXT 1indx 

£ 1060) 

28200 

1indx = 1indx - 1 

E15403 

28210 

’ 

£ 117] 

28220 

'Position on 1. r then connect 

£18573 

28230 

’ 

£1173 

28240 

PLOT pxyCrx, 1str),pxy(ry, 1str ) 

£31373 

28250 

t 

£ 1173 

28260 

FOR rindx = lstr+1 TO pmax 

£7133 

28270 

’ 

£ 1173 

28280 

28400 

IF pxy(ry,rindx)=0 THEN lstr=0:GOTO 

£27293 

28290 IF pxy(ry,rindx)=999 THEN lstr=rindx 
+1:GOTO 28400 

£25233 

28300 

DRAW pxy(rx,rindx),pxy(ry,rindx) 

£21773 

28310 

’ 

£ 1173 

28320 

NEXT rindx 

£454 3 

28330 

• 

£1173 

28400 

rindx = rindx - 1 

C13253 


28410 

* 


£117] 

28420 

'connect top r & 1 points 


£ 16583 

28430 

• 


£1173 

28440 

PLOT pxy C 1x,lindx),pxy(1y,lindx) 


£24203 

28450 

DRAW pxy(rx,rindx),pxyiry,rindx) 


£21773 

28460 

1 


£1173 

28500 

IF 1str=0 AND lstl= 0 THEN GOTO 2890 

£56143 

0 ELSE GOTO 28030 



28510 

• 


[ 1173 

28900 

RETURN 


£5553 

29000 

' c 1 ear 1 i nes cI 


£0923 

29010 

PRINT CHR*(23);CHR$(1) ; 


£ 18543 

29020 

Ist 1 = 1:lstr = l 


£929) 

29030 

'connect bottom r + 1 points 


£28823 

29040 

» 


£1173 

29050 

PLOT pxyirx,Istr),pxyiry,lstr>:PLOT 

£67513 

pxy<rx,lstr),pxy<ry, Istr) 



29060 

DRAW pxy ( 1x, 1 stl > ,pxy ( ly, 1 s 11) 


£ 18043 

29070 

fst 1 = 1 st 1:fstr = lstr 


£ 1346 3 

29080 

’ connect all 1 points 


£28413 

29090 

9 


£ 1173 

29100 

FOR 1indx = lstl+1 TO pmax 


C12573 

29110 

’ 


£1173 

29120 

IF pxy ( ly,Iindx ) =0 THEN lstl=0:G0T0 

£34083 

29170 

29130 

IF pxy ( ly,1 indx ) = 999 THEN lstl=l 

nd 

£27833 

x + 1:GOTO 29170 



29140 

DRAW pxy(lx,lindx>,pxy(ly,)indx) 


£23503 

29150 

’ 


£ 1173 

29160 

NEXT 1ind x 


C1060J 

29170 

1indx = 1indx - 1 


C15403 

29180 

' 


C 1173 

29190 

'Position on 1. r then connect 


£ 18573 

29200 

’ 


£1173 

29210 

PLOT pxyirx.Istr),pxy(ry,lstr) 


£3137] 

29220 

’ 


£ 1173 

29230 

FOR rindx = lstr+1 TO pmax 


£7133 

29240 

’ 


£ 1173 

29250 

IF pxyiry.rindx)=0 THEN lstr=0:GOTO 

£ 2802} 

29310 




29260 

IF pxylry,rindx ) =999 THEN lstr=rindx 

£25333 

+ 1 : GOTO 29310 



29270 

DRAW pxy l rx . rindx),pxy I ry, r indx) 


£21773 

29280 

’ 


£ 1173 

29290 

NEXT rindx 


£454 3 

29300 

’ 


C 1173 

29310 

rindx = rindx - 1 


£13253 

29320 

’ 


£ 1 17] 

29330 

'connect top r & 1 points 


t 16583 

29340 

’ 


£117 3 

29350 

PLOT pxyClx,1indx),pxylly,lindx) 


£24203 

29360 

DRAW pxy ( rx,rindx),pxy l ry,rindx) 


£21773 

29370 

’ 


£1173 

29380 

’ clear remaining points 


£ 16803 

29390 

’ 


C 1173 

29400 

FOR p = fstl TO lindx+1 


£508 3 

29410 

’ 


£ 1 17] 

29420 

IF pxy ( 1x,p > = 0 OR pxyi 1 x,p) = 999 

TH 

£6456) 

EN PLOT pxyl1x,p-13,pxytly,p-1 ) :GOTO 29500 


29440 

PLOT pxy (l x,p;,pxy(1y.p ) 


£993] 

29450 

’ 


C 117] 

29460 

NEXT 


£350) 

29470 

' 


£117] 

29500 

FOR p = fstr+1 TO rindx+1 


£936) 

295 10 

• 


£117) 

29520 

IF pxyirx,p)= 0 QR pxyirx,p)= 999 

TH 

£2479) 

EN GOTO 29600 



29530 

IF pxvirx,p)= 999 THEN GOTO 29560 


£2559] 

29540 

PLOT pxy i rx,p ) ,pxyl ry ,p ) 


£ 1848) 

29550 

’ 


£ 117} 

29560 

NEXT 


£350] 

29570 

■ 


£117] 

29600 

IF pxyilx.fstl) = pxyirx.fstr) AND 

P 

£54603 

x y ( ly. 

fstl) = pxyiry,fstr) THEN PLOT pxyil 


x , f s t l 
29610 

). pxylly,fstl) 


£117] 

29620 

IF pxyilx,lindx) = pxyirx,rindx) AND 

£58113 

pxy ( I 

y,lindx) = pxyiry,rindx) THEN PLOT 

P 


xy (1 x, 
29630 

1 indx),pxy<ly, 1 indx) 


£117] 

29640 

IF Is t r = 0 AND lstl=0 THEN GOTO 29900 

£5954] 

ELSE 

GOTO 29030 



29900 

PRINT CHRSI23);CHR*(0): 


£2096] 

29910 

29920 

RETURN 
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W&ppQcssx XK^[FÜ(D[p[ß^ 


Einbauanleitung der Double-Step 
Schaltung aus Heft 5/87. 

a) Das Flachbandkabel links und rechts 
der 20. Ader mit einem Messer vor¬ 
sichtig lösen. Etwa 20 mm von dem 34 
pol. Floppy-Stecker entfernt wird die 
Ader durchgetrennt und ca. 3 mm je 
Seite abisoliert. 

b) Schalter (Miniatur) 1 * Um 
Diesen kann man über die Dioden¬ 
buchse auf der Rückseite montieren. 
Ein Loch passend für den Schalter 
bohren. Es ist genügend Platz im 
Netzleilbereich auf der Rückseite vor¬ 
handen. 

c) Drähte mit Isolierung (möglichst mit 
verschiedenen Farben): 

2 Stück 140 mm; 2 Stück 170 mm; 

2 Stück 200 mm; 1 Stück ca. 130 mm. 


d) Verdrahtung: 

1. Draht 140 mm von a=IC3/Pin 12 
zu JJ 1/Pin 2 Vortex-Laufwerk Se- 
lekt 1. 

2. Draht 140 mm von b = IC3/Pin 11 
zu Ader Nr. 20-CPC-seitig (Isolie¬ 
rung nach dem Löten nicht ver¬ 
gessen). 

3. Draht 170 mm von Netzteil-Vortex 
(am Stecker +5V an löten) zur Pla¬ 
tine Anschluß E5V. 

4. Draht 170 mm von Netzteil Vortex 
(Mittelanschluß des Steckers) zum 
Massepunkt der Platine. 

5. Draht 130 mm von Ader Nr.20 
Floppyseitig zu Schalter Mittelpin 
(Isolierung nicht vergessen). 

6. Draht 200 mm von Schaltung 
lC3/Pin 10 (40 Spurseitig) zu 
Schalter außen. 


7. Draht 200 mm von Schaltung 
b=IC3/Pin 11 (80 Spurseitig) zu b 
Schalter (außen). 

ACHTUNG! 

Auf der Netzteilplatine des Vortexlauf¬ 
werkes befindet sich eine 8polige Buch¬ 
se. Isolierband darüber kleben um einen 
unbeabsichtigten Kurzschluß zu ver¬ 
meiden. 

Nunmehr die fertig verdrahtete Platine 
zwischen Netzteil und Floppy ein¬ 
slecken. 

Gegebenenfalls zwischen Double-Step 
Platine und Vortex-Floppy ein Isolier- 
slück einschieben und an kleben. Am 
Deckel im Bereich der Platine ebenfalls 
Isolierband ankleben. 

(Hans J. Ziegler) 



Schaltplan zur Double-Step-Schaltung 
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Gesammelte Werke 

Die SCHNEIDERWARE begann in Heft 
6/86. Über den Platinenservice stehen 
Ihnen alle Karten zur Verfügung. 

Die Preise: 

BASisplatine, unbestückt 24,90 DM 


dto., bestückt 62,90 DM 

Kabel 464/664 35,90 DM 

Kabel 6128 45,90 DM 

Centronics, unbestückt 17,90 DM 

dto., bestückt 79,90 DM 

V/24, unbestückt 29,80 DM 

dto., bestückt 139,90 DM 

Netzteil, unbestückt 17,90 DM 

dto, bestückt 119,90 DM 

Trafo 79,90 DM 

Karte und Trafo 184,90 DM 

Hardware-Uhr, unbest. 29,80 DM 

Hardware-Uhr, bestck. 99,90 DM 


PIO-Karte, Platine unbest. 29,80 DM 
P10-Karte, Karte bestck. 198,90 DM 
MIDI-Interf., Plat. unbest. 39,90 DM 
MIDI-interface kompl. best. 198,00 DM 
A/D-D/A Wandl, unbestückt 29,80 DM 
A/D-D/A Wand!., funktionsf. 169,90 DM 


EPROM-RAM-Karte 

Diese Karte ist eine Erweiterung, die es 
Ihnen ermöglicht, eigene oder fremde 
Programme beim Einschalten des Rech¬ 
ners oder nach Aufruf direkt aus 
EPROM oder akkugepuffertem RAM ein¬ 
zuladen. Diese Kombination hat den 
Vorteil, daß selbstgeschriebene Pro¬ 
gramme zunächst im RAM getestet wer¬ 
den können, bevor sie in das EPROM 
gebrannt werden Heft 4/87 enthält Bau¬ 
anleitung und Treibersoftware dieser 
Karte. 

Die Preise: 

Platine, unbestückt 29,80 DM 
Karte, funktionsfertig 229,90 DM 


EPROM- 

Programmierkarte 

Dieser Eprommer ist die ideale Ergän¬ 
zung der EPROM-RAM-Karte aus Heft 
4/87. Fast alle gängigen EPROMs vom 
2732 bis zum 27128 können auf dieser 
Karte mit Ihrer Software programmiert 
werden. Die Hardware ist außerdem für 
die Aufnahme von 27256 und 27512 
vorbereitet, hier muß nur die Steuersoft¬ 
ware angepaßt werden. Der Eprommer 
besteht aus Hauptplatine und Program¬ 
mierplatine, die per Flachbandkabel ver¬ 
bunden sind. Baöanleitung und Steuer¬ 
software für diese Karte finden Sie in 
Ausgabe 6/87. 

Die Preise: 

2 Platinen, unbestückt 42,90 DM 
Eprommer, funktionsf. 198,90 DM 


Zahlungsbedingungen: 

Gesamtpreis zuzüglich 5,- DM Por¬ 
to/Verpackung (im Ausland 8,- DM 
Porto/Verpackung). 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu- 
zügl. der Nachnahmegebühr (in das 
Ausland nicht möglich). 


Bitte Postkarte im 
Heft benutzen! 


Platine, unbestückt 

SCHNEIDERWARE ist in drei Versionen 
für Sie verfügbar. Sie können nach Bau¬ 
plan selbst bauen, die fertig bestückten 
und geprüften Karten über den Platinen¬ 
service erhalten oder die unbestückte 
Platine erwerben. Diese werden in Indu¬ 
striequalität gefertigt, sind verzinnt und 
gebohrt; doppelseitig beschichtete Pla¬ 
tinen sind chemisch durchkontaktiert 
und geprüft. Hierbei haben Sie den Vor¬ 
teil, die Platine nicht selbst hersteilen zu 
müssen, jedoch die Bestückungskosten 
zu sparen und die Bauteile selbst einzu¬ 
kaufen. 


Für Ihren CPC 


Die CPC-Schneiderware ist ein univer¬ 
selles Peripheriesystem für die Schnei¬ 
der CPC’s auf der Basis des bekannten 
ECB-Bussystems. Um die Schneiderwa¬ 
re an Ihren CPC anzuschließen, benö¬ 
tigen Sie: 


1. Das Verbindungskabel vom Expan¬ 
sionsport des Rechners zur Basis¬ 
platine (Rechnertyp beachten, da An¬ 
schlüsse bei 464/664 verschieden 
von 6128) 

2. Die Basisplatine, welche die Pinbe¬ 
legung der CPC-Ports auf die des 
ECB-Systems umsetzt. Diese Karte 
enthält fünf Steckplätze zur Aufnah¬ 
me und gleichzeitigen Ansteuerung 
der Schneiderware- Erweiterungs¬ 
karten. 


Wollen Sie nur eine Karte betreiben, so 
können Sie diese über ein selbstgefer¬ 
tigtes Kabel an den CPC anschließen. 
Die Anschlußbelegung dieses Kabels 
sehen Sie in Heft 7/86, S 61. 


Das verwendete Platinenmaterial ist 
glasfaserverstärktes Epoxydharz; die 
beidseitig beschichteten Platinen sind 
chemisch durchkontaktiert. Für die Fer¬ 
tigbausteine kommen Bauteile erster 
Wahl zum Einsatz. 






PC Schneider International 

Postfach 250, 3440 Eschwege 

I 
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Der dritte versuch 

RS 232-schnittstelle 
von Amstrad für die CPCs 

Und diesmal ist es gelungen. Nachdem die ersten beiden seriellen Interfaces 
für die CPCs doch deutliche Mängel an Bedienungsfreundlichkeit aufwie¬ 
sen, präsentiert Amstrad eine von Pace Micro Technologies entwickelte 
Schnittstelle, die Soft-und Hardwareseitig keine Wünsche mehr offen läßt. 


Die Hardware 


Das obligatorische dunkle Kunststoffkäst¬ 
chen, welches per Flachbandkabel an den 
Expansionsport der Rechner angeschlos¬ 
sen wird, beherbergt im Wesentlichen 
Technik auf dem neuesten Stand. 

Positiv fällt auf, daß die Anschlußbuchse 
für das externe Netzteil nicht mehr exi¬ 
stiert; das Interface wird komplett vom 
CPC aus mit Spannung versorgt. 

Um den Rechner nicht über Gebühr zu be¬ 
lasten, wurden für die meisten Bausteine 
stromsparende Versionen gewählt (für In¬ 
teressierte: die TTL-Bausteine stehen hier 
in HC-Technik als SMD-Version zur Ver¬ 
fügung). Neben den Schnittstellentreibem 
enthält die Platine ein Eprom mit einer 
Terminalsoftware und einigen RSX-Be- 
fehlen; ein weiterer (ungesockelter) Steck¬ 
platz ist für die Aufnahme eines weiteren 
Eproms vorgesehen. 


Die Software 


Die eben erwähnte auf Eprom integrierte 
Terminal-und Steuersoftware dürfte den 
eigentlichen Reiz der Schnittstelle ausma¬ 
chen. Die Verwaltung der seriellen Daten¬ 
übertragung ist auf drei verschiedene Ar¬ 
ten möglich: 


1. Unter AMSDOS auf Terminalebene; 
das Terminal wird mit dem Befehl 1CS ge¬ 
startet. Das Startmenü bietet die Auswahl 
zwischen zwei verschiedenen Terminale¬ 
mulatoren, zum Einen ’Honeyview’ zum 
Zugriff auf die bei uns wenig gebräuchli¬ 
chen ’viewdata’-Systeme wiez.B. Prestel, 
zum Anderen ’Honeyterm’ als reines AS- 
CII-Terminal.In beiden Modi stehen Pull- 
down-Menüs zur Einstellung der Parame¬ 
ter, zur Diskettenverwaltung und zur Da¬ 
tenübertragung zur Verfügung, die bei ge¬ 
drückter CTRL-Taste durch die Funk¬ 
tionstasten aufgerufen werden können. 
Der Ausstieg aus dem jeweiligen Menü ist 
jederzeit problemlos mit der ESC-Taste 
möglich; diese Art der Bedienerführung ist 
sehr komfortabel und fehlersicher. 

2. Auf Basic-Ebene per zur Verfügung ge¬ 
stellten RSX-Befehlen. Diese können im 
Direktmodus eingegeben werden, was bei 
häufiger Benutzung jedoch wenig sinnvoll 
ist. Die Einbindung der RSXen in ein 
selbsterstelltes Basicprogramm ermöglicht 
die Lösung spezieller Datenübertragung¬ 
sprobleme, die von den beiden mitgeliefer¬ 
ten Terminalprogrammen nicht abgedeckt 
werden können. Die Befehle (13 an der 
Zahl) bieten die Bewältigung jeglicher An¬ 
wendungsanforderungen von der Initiali¬ 
sierung der Schnittstelle über das Senden/ 
den Empfang einzelner Bytes oder kom¬ 
pletter Strings bis zur Statusabfrage und 


Fehlerbehandlung. Sogar an den Befehl 
zum Senden von Nullen (ICNULL), der 
für die industrielle Datenübertragung von 
großer Bedeutung ist, um verschiedene 
Systeme aneinander anpassen zu können. 
ICOUNT ermöglicht das Zählen der über¬ 
tragenen Bytes; ITIMEOUT setzt eine 
Zeitperiode, nach der bei Auftreten eines 
Fehlers der jeweilige Vorgang abgebro¬ 
chen wird. 

3. Unter CP/M 2.2 oder 3.0 per beliebiger 
Terminalsoftware.CP/M 2.2: Die Schnitt¬ 
stelle wird zwar erkannt, aber nicht gemel¬ 
det. Per Kommandos CONSOLE, REA¬ 
DER, PUNCH und LIST kann das Inter¬ 
face direkt angesprochen werden; weitere 
Bedienung ermöglichen kommerzielle 
oder selbsterstellte Terminalprogram- 
me.CP/M 3.0: Die Schnittstelle wird beim 
booten erkannt und gemeldet. Bedienung 
ist über das Kommando DEVICE mög¬ 
lich, SETSIO ermöglicht die Einstellung 
der Übertragungsparameter. Weitere Be¬ 
dienung über kommerzielle oder selbster¬ 
stellte Programme; besonders erwähnt sei 
hier KERM3T, ein DFÜ-Programm aus 
der Public-Domain-Welt, welches bei Pu- 
blic-Domain-Vertreibem zum Preis von 
einer Diskette plus Bearbeitungsgebühr er¬ 
hältlich ist. 


Fazit 


Mit der neuen Amstrad-Schnittstelle erhält 
der Käufer ein rundum ausgezeichnetes 
Produkt für alle Anwendungsgebiete der 
seriellen Datenübertragung. Einziger 
Schwachpunkt ist (wie zumeist bei impor¬ 
tierten Produkten) das z.Zt. nur in engli¬ 
scher Sprache lieferbare Handbuch. Der 
Preis von ca. 250,- DM ist den Leistungen 
der Hard-und Software angemessen; das 
Interface ist m.E. die bislang beste Lösung 
der DFÜ auf den CPCs. 

(me) 



Bild 1: Das Innenleben der neuen Schnittstelle... 


Bild 2: Die Software läßt kaum Wünsche offen... 
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Viele Drucker passen 
zu den 

CPC-Computern! 


Hardcopy-Simulation 
auf den Bildschirm 


...Hardcopies in 
4 verschiedenen 
Formaten 


Das universelle Hardcopy-Programm 
für Schneider CPC 464/664/6128 


DMV-Verlag, Fuldaer Straße 6, 3440 Eschwege 


Autor: Matthias Uphoff 


COPYSHOP im Detail: 

- Hardcopy in 4 (!) Formaten: DIN A4, D!N A5,13,5x8.5cm und 
21,5x13,5 cm 

- superschnelle Hardcopy-Routine: DIN A4 in ca. 4 Minuten (DMP 4000) 

- arbeitet in allen 3 Modes 

- Anpaßmenue für JEDEN Epson-kompatiblen Drucker 

- läuft ebenfalls mit den Seikosha-Druckern GP-500 CPC, GP-550 CPC und GP-1000 CPC 

- Anpassung an Drucker möglich, die mit 1280 Punkten pro Zeile arbeiten, z.B. CPA-80 GS 

- Okimate ML 182 - Anpassung kann beim Verlag angefordert werden 

- Anpassung auch für Drucker, die die Bitbild-Bytes verkehrt herum drucken (das MSB unten statt 
oben), z.B. NEC P2-Pinwriter. 

- 32 Farbraster über Menue wählbar 

- Grafikeditor 

- komfortable Pull-Down-Menues 

- schnelle Fill-Routine 

- beliebige Ausschnittvergrößerungen 

- Bildschirm invertieren 

- selbstrelozierbare Hardcopy-Routinen für eigene Programme 

- neue Save- und Load-Routinen erkennen automatisch Mode und Farbwerte 

- Freezer - saved auf Tastendruck Screenshots aus laufenden BASIC-Programmen, die anschließend aus¬ 
gedruckt werden können 

' Das auf dem Datenträger mitgelieferte Programm »Screen Save«, welches beliebige Screens auf Disk 
abspeichert, arbeitet nur nach Entfernen des Vortex-Controllers. 

Und die Weltneuheit: Hardcopy-Simulator auf dem Bildschirm!! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm an- 
sehen! 


COPYSHOP ist das ultimative Hardcopy-Programm für alle Schneider Computer. 

Erhältlich auf Kassette (DM 59,-) und 3”-Diskette (DM 69,-) 

inkl. ausführlicher Bedienungsanleitung, (unverbindliche Preisempfehlung) 


COPYSHOP gibt es im guten Fachhandel oder direkt bei: 


— Bitte Bestellkarte benutzen — Händleranfragen erwünscht — 


Copyshop schafft fast* alle... 


.komfortable Menuesteuerung 
für Bildgestaltung 


PEN 2 
PAPER 0 
ITRANSP 0 
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Lichtgriffel 

Zu den benutzerfreundlichsten Einga¬ 
beinstrumenten gehört neben der 
Maus auch der Lichtgriffel (oder zu 
Neudeutsch »Lightpen«), im Handel 
nur zusammen mit einem Grafik-Pa¬ 
ket erhältlich. Wer darauf verzichten 
will, kann sich jetzt für weniger als ein 
Taschengeld selbst seinen Lichtgriffel 
bauen: 

Ganze vier elektronische Bauteile sind 
dazu nötig; der Rest steckt glücklicher¬ 
weise schon im HD 6845, dem Video- 
Controller der CPC’s: 

1 Widerstand 1 kOhm ca. DM 0,10 

1 Widerstand 100 kOhm ca. DM 0,10 

1 Transistor BC 172A ca. DM 0,70 

1 Fototransistor BPX 81 ca. DM 4,00 

Alle diese Bauteile sind Standard und in 
jedem Elektronikgeschäft erhältlich. 

Der Aufbau der Schaltung selbst ist so 
einfach, daß auch der Anfänger keine 
Schwierigkeiten damit haben dürfte (s. 
Abb. 1, bezügl. der Beschaltung der 
Bauteile s. Abb. 2). Der Fototransistor 
BPX 81 ist klein genug, um ihn in die 
Spitze eines alten Kugelschreibers einzu¬ 
bauen. Das Verbindungskabel zu der 
übrigen Schaltung sollte möglichst abge¬ 
schirmt sein. Zum Schluß werden die 
drei Kontakte rechts im Schaltbild mit 
dem Expansion-Port verbunden. 


Wie arbeitet 
der Lichtgriffel? 


Ebenso wie beim Fernseher wird auch 
im Monitor das Bild per Elektronenstrahl 
aufgebaut. Wenn dieser über den Foto¬ 
transistor im Lichtgriffel streicht, gibt es 
einen Impuls, der über unsere Schaltung 
an den Video-Controller weitergegeben 
wird. Hier wird dann blitzschnell ermit¬ 
telt, welche Speicheradresse gerade auf 
dem Bildschirm dargestellt wird. Diese 
Adresse wird im Video-Chip zwischen¬ 
gespeichert und kann wie folgt ausgeie- 
sen werden: 

OUT &BC00,16:high = INP(&BF00) 
OUT &BC00,17:low=INP(&BF00) 

Davon muß zunächst die Adresse der lin¬ 
ken oberen Bildschirmecke abgezogen 
werden: 

adr=high*256+low-&3000 


Daraus erhält man dann direkt die Text¬ 
zeile und die -spalte: 

zeile=INT(adr/40) + l 
spalte=adr MOD 40+1 

Damit können Sie schon einmal Ihren 
Lichtgriffel ausprobieren. Achten Sie je¬ 
doch darauf, daß der Lichtgriffel, wie 
sein Name schon sagt, Licht braucht und 
daher nur auf den hellen Flächen funk¬ 
tioniert. 


... und das Ergebnis? 


Wahrscheinlich werden Sie von dem Re¬ 
sultat Ihres Versuches nicht sehr begei¬ 
stert sein: Die Lichtgriffel-Position ist 
ziemlich unruhig und liegt viel zu weit 
rechts. Außerdem gilt die obige Berech¬ 
nung von Zeile und Spalte nur im MODE 
1, das aber auch nur, wenn noch nicht 
gescrollt wurde und die Bildschirm-Bank 
bei &C0O0 beginnt. 

Doch bevor Sie Ihren Lichtgriffel und 
womöglich auch diesen Artikel in den 
Papierkorb wandern lassen, sollten Sie 
einmal das Programm in Listing 1 testen: 
Es bewirkt, daß jede 1 /50 Sekunde die 


Position des Lichtgriffels abgefragt und 
- nach Beseitigung der oben genannten 
Mängel — dem BASIC zur Verfügung 
gestellt wird. Von dort können Sie die 
Position Ihres Lichtgriffels ganz einfach 
mit 

zeile=VPOS( # 7):spalte=POS( # 7) 

auslesen. (Komfortabler geht es ja wohl 
kaum noch, oder?!) Als Startadresse der 
Routine können Sie jede Zahl mit Low- 
Byte=0 wählen. 

Das Programm in Listing 2 dient nur als 
Justierprogramm für den Lichtgriffel. 
Steuern Sie mit Hilfe der Cursortasten 
den Cursor so, daß er in der Mitte des 
Bildschirms genau unter dem Lichtgrif¬ 
fel liegt und drücken Sie dann zweimal 
ESC. Die angezeigten Werte tragen Sie 
bitte in Zeile 120 von Listing 1 ein. 

Übrigens arbeitet die Routine mit allen 
Lichtgriffeln zusammen, die, wie hier, 
über den Expansion-Port angeschlossen 
werden. 

(Thomas Kochmann) 



Abb. 1 
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10 ’Listing 1: 

E0 'AbFragsrautine Fuer den Lightpen 
30 ’ 

40 INPUT"Startadresse”;start 
SO IF Start MOD S56<>0 THEN 40 
60 SYMBOL AFTER E56:MEMORY start-1 
70 hl-C (HIMEM+13/E563 
BO FOR adr-start TO start+&80 
BO READ byta$:byte-UALC”&”+byte$3 
100 IF byte-&AO THEN byte-hi 
110 POKE adr,byte:NEXT 
ISO korrl-S50:korrE-355 
130 POKE start+&3A,korrl 
140 POKE start+&3B,korrE 
150 CALL Start:END 
160 ’ 

170 DATA 01,06,06,CD,B7,BB,ED,53,73,AO 
1B0 DATA El,15,AO,11,IE,AO,06,Bl,C3,D7 
190 DATA BC,00,00,00,00,00,Bl,IE,AO,06 
EOO DATA OE,10,CD,76,AO,67,OE,11,CD,76 
E10 DATA AO,6F,OE,QC,CD,76,AO,57,OE,OD 
SEO DATA CD,76,AO,5F,97,ED,53,11,00,00 
E30 DATA 19,CB,7C,CO,11,SB,00,3D,ED,5E 
S40 DATA 3C,30,FB,19,65,6F,ED,5B,7F, AO 
E50 DATA ES,7F,AO,7A,94,3C,3C,FE,05,DO 
E60 DATA 7B,95,3C,3C,FE,05,DO,19,CB,3D 
£70 DATA CD,11,BC,FE,OE,SB,07,CB,3C,3D 
EBO DATA £8,OE,CB,3C,ES,00,00,C9,06,BC 
S90 DATA ED,49,06,BF,ED,7B,C9,00,00 


10 ’Listing S: 

SO 'Justierung das Lightpsns 
30 ' 

40 MODE 1:INK 0,E6:INK 1,0 
50 PAPER 0:PEN 1 

60 POKE HIMEM+&3B,0:POKE HIMEM+&3C,0 
70 dx—7:dy-0 
BO ON BREAK GOSUB 190 
90 IF NOT INKEYCO) THEN dy-dy-0.5 
100 IF NOT INKEYCE3 THEN dy-dy+0.5 
110 IF NOT INKEYC13 THEN dx-dx+0.5 
ISO IF NOT INKEYCB3 THEN dx-dx-0.5 
130 x-POSC#73+dx:y-UPOSC#73+dy 
140 x-MAXCl,x3:y-MAXCl,y) 

150 IF x-xO AND y-yO THEN 90 
160 xO-x:yQ-y 

170 CALL &BBB4:LOCATE x,y:CALL &BBB1 
1B0 GOTO 90 

190 korr-CINTCdy*40+dx) 

EOO IF korr<0 THEN karr-korr+65536 
E10 korrE“INTCkDrr/S56) 

EEO karrl-kDrr-karrS*E56 
£30 INK 0,0:INK 1,£6:CLS 
S40 PRINT”korrl-" ; korrl 
£50 PRINT”korr£-” ; korrE 
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I—Tips & Tricks 


sparvariablen Transformer 

Wer hat sich nicht schon gefragt, ob man ein Programm nicht 
um ein paar Bytes »leichter« machen kann, ohne den Programm¬ 
ablauf zu verändern? Mit Christoph’s Sparvariablen Trans¬ 
former ist dies nun möglich! Bei einem abgeschlossenen BA- 
SlC-Programm kann man damit 10 % Speicherplatz einsparen. 

Die Arbeitsweise des Programmes: 

Variable werden durch neue, kürzere ersetzt. Dabei ist es völlig 
gleichgültig, ob es sich um numerische oder Stringvariable han¬ 
delt. Da lohnt sich die leider sehr lange Rechenzeit von unge¬ 
fähr 28 Minuten bei einem 26k langen Programm (ca. 6 Mi¬ 
nuten bei 7k langen Programmen). Was benötigt man? 



i—i rzw 


für 464-664-6128 

n S[ 


_ 

lA 


10 CLS: 1NPU-T "Ist Drucker vorhanden ?(J/ ) C846Q3 

",v*: IF LEFT*(UPPER*(v*),1) = n J " THEN PR1N 


T "... dann bitte einscha1ten":ausgabekana 


1=8:PRINT#8 ELSE ausgabekana1=0 

20 MODE 2 

[5133 


30 tim = T1 ME 

[10123 

40 WiNDOW#1,3.80,25,25 

£11913 

50 WIND0W#2,40,60,24,24 

£9653 


60 W IND0W#0, 1,80,4,22 

[11163 

70 WIND0W#3,1,2,25,25 

[10963 

80 D1M a 1 tvar*(650),neuvar*<650) 

[20153 

90 : 

[ 1743 


100 : 

C 174 3 


110 zaeh1 er =0 

£6993 


120 RESTDRE 2050:READ v* 

[14803 

130 READ a1tvar*(zaeh1 er),neuvar*(zaehI er) [30343 
140 a1tvar*(zaeh1 er)=LOWER*<a1tvar*<zaeh1e C60893 

r)):neuvar*(zaehier)=LOWER*(neuvar*( zaeh1e 


r ) ) 



150 IF neuvar*(zaehler 3<>"*" THEN zaehler= [22633 

zaeh1 er +1:GOTO 130 

160 : 

£174 3 


170 : 

[ 174 3 


180 ' 

[1173 


190 ’#** Hauptprogramm #** 

[ 16833 

200 ’ 

£1173 


210 : 

[ 174 3 


220 : 

[ 1743 

230 L0CATEÜ4,10.24:PRINT#4,"Zeilennummer : £24033 

":L0CATE#4,1.1 








Sparvariabel Transformer 


250 

PR INT#4, 

[55881 

260 

LOCATE 1.20 

C 732 3 

270 

1 

[1173 

280 

x* = CHR*(ASC<”a")-1) :xx*=x* 

[17143 

290 

OPEN 1N "a" 

C10143 

300 

OPENOUT "b" 

[686 3 

310 

’ 

[ 1173 

320 ’ *»* Hauptschleife **# (lese Zeile 

von Disc) 

[28833 

330 

* 

[1173 

340 

IF EOF THEN 1700 

C1773 

350 

LINE INPUT #9,theline * 

[19993 

360 

v*=INKEY* 

[776 3 

370 

)-l ; 

IF v*<>"" THEN enterf1ag=ABS(enterf1ag 
:PRINT#2,"keine Angabe" 

[40683 

380 IF enterf1ag = 0 THEN PR 1NT#2:PR INT#2,VA 
L(the1ine*);" " ; 

C36323 

390 

pointer=lNSTR(2,the1ine*." ") 

[13833 

400 

flagmodus=0:flagmodusalt=0 

[10763 

410 

chmodus =0 

[3273 

420 

a1tvariabe1 * = "" 

C16623 

430 

endf1ag=Q 

[6863 

440 

po inte r = po i nt er + 1 

[11513 


- Einen CPC mit Diskettenlaufwerk und evtl, einen Drucker. 

— Eine Diskette mit Christoph’s Sparvariablen Transformer, 
dem umzuwandelnden BASIC-Programm und mindestens 
dem freien Speicherplatz, den Ihr Programm braucht. 

Vorgehensweise: 

Zuerst das umzuwandelnde BASIC-Programm mit LOAD 
“Programmname“ einladen. Dann mit SAVE “A“,a als AS- 
Cü-File auf Disk abspeichem. Jetzt RUN“CHRSPAR“ einge¬ 
ben. Das Programm lädt den ASCII-File “A“, und speichert 
das transformierte Programm als ASCII-File “B“ ab. Nun muß 
der “B“-File mit LOAD “B eingeladen werden und mit SAVE 
“Programmname“ als ganz normales BASIC-Programm ab¬ 
gespeichert werden. 

(C.Lier) 


450 f1agmodusa1t=f1agmodus C1296] 

460 IF pointer>LEN<theIine*) THEN endftag= C29073 
1 : f 1 agmodus = 0;GOTO 660 

470 chpoint* = M1D*<the1ine*,pointer,1) C26043 

480 GOSUB 760 C9253 

490 ’ 1117 3 

500 ’ #** was bedeutet das Zeichen, auf da [40853 
s der Pointer zeigt ? (chpoint*) *## 

510 * [1173 


520 IF chpoint*=CHR*(34) THEN flagmodus=3: [16753 
GOTO 660 

530 JF chpoint*=”’" THEN f1agmodus=0:GOSUB [29793 
850:GOTO 660 

540 IF MID*<theline*,pointer,3)="REM" THEN [35093 
flagmodus=0:G0SUB 850:G0T0 660 
550 IF M 1 D* (theline*,pointer,4)="DATA" THE [49063 
N f 1 agmodus = 0:endflag=1:GOTO 660 

560 IF chpoint*="I" THEN f1agmodus=2:GOTO [19763 
660 

570 IF chpo i nt* = "&<" THEN f 1 agmodus =2 : GOTO [21093 
660 

580 IF chmodus=0 AND flagmodus<>3 THEN fla [28023 
gmodus=0:GOTO 660 

590 IF chmodus = 2 AND f 1 agmodusO 1 THEN GOT C 3209 3 
0 660 

600 IF flagmodus=2 QR flagmodus=3 THEN 660 [22063 


610 ' C1173 

620 ' ##* Variabel wird zusammengesetzt ## [21503 

* 

630 ’ [1173 

640 flagmodus=l [3333 

650 a1tvariabe1* = a11variabeI *+chpoint$ [23853 

660 : [1743 

670 PR 1NT#3 [3163 

680 IF flagmodusOl AND f 1 agmodusa 11 = 1 THE [24923 

N GOSUB 920 

690 IF fIagmodus=3 THEN flagmodus=0:v=INST [58373 


R(pointer + 1,theI ine*,CHR*<34)) : I F v=0 THEN 
endfiag=l ELSE pointer=v 

700 IF endf1ag=0 THEN 430 [14023 

710 IF RIGHT*(theline*,2)=" " THEN thelin [49813 

e$=LEFT*(theline*,LEN< theIine$)-1):GOTO 71 
0 

720 IF LEN(theline*)=LEN(STR*(VAL(thelinei [45943 
))) THEN theline*=theline* + ":" 

730 IF LEN(theline*)<LEN(STR$(VAL(thelineS [46153 
))> THEN theline*=theli ne* + " 

740 PR1NT#9,thel ine*:’ *«* Ausgabe auf Dis [37133 


c * * * 

750 GOTO 340 £4643 

760 ’ C1173 

770 ' *** Set chmodus *#* £21953 

O-nicht Alphanumerisch 

780 ’ £1983 

1- A1pha 

790 ’ £12813 

2- Nume risch 

800 * £1173 

810 chmodus=0 £3273 


820 IF UPPER*(chpoint*)>="A" AND UPPER*<ch £53683 
point*)<="Z" THEN chmodus=l 
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chpoint*>="Q" AND chpoint*<="9" THE 
N chmodus=2 
840 RETURN 
850 ’ 

860 ’»** REM oder ’ gefunden »»# 

870 ’ 

880 the Iinet = LEFT$(theI inet,pointer-1> 

890 IF RIGHT*(theline*,1)=" " THEN theline 
*=LEFT*(theI ine*,LEN(theline*)-1):GOTO 890 
900 IF R1GHT*(theline*,1)="j" THEN theline 
*=LEFT*(theline*,LEN(theline*)-l) 

910 RETURN 
920 ’ 

930 ’ * » » ist altvariabel* ein Befehl ??? * 
# # 


£2030] 

C 555 ] 

£117] 

£1258] 

£117] 

£1708] 

£4694] 

£3871] 

£555] 

£117] 

£ 1658] 


940 ’ £117] 

950 IF UPPER*(altvariabel*)<>altvartabel* £2824] 
THEN 1010 

960 ON ASC(LEFT*(a1tvariabeI*,1))-64 GOSUB £8899] 
1450,1460,1470,1480,1490,1500,1510,1520,1 
520,1530,1540,1550,1560,1570,1580,1590,160 
0,1610,1620,1630,1640,1650,1660,1670,1680, 

1690 

970 READ v* [4191 


980 IF v*="»" THEN 1010 £1160] 

990 IF v* =altvariabe1 * THEN a1tvariabe1* = " £2922] 
":GOTO 1380 

1000 IF v*<aitvariabel* THEN 970 £2064] 

1010 aItvariabe1*=LOWER*(aItvariabeI*):' * £3907] 
** war Variable schon registriert ?»»» 

1020 v=0 £327] 

1030 IF v=zaehler THEN 1060 £1202] 

1040 IF a1tvariabe1*=altvar*(v> THEN neuva £2586] 

rlabe I* = neuvar*<v):GOTO 1300 

1050 v=v+1:GOTO 1030 £1850] 

1060 - £117} 

1070 ’ *«* Bilden einer neuen Variablen »» £3229] 

tf 


1080 ’ 

1090 x* = CHR*(ASC(x*) + l> 

1100 IF x*>"z" THEN xx*=CHR*{ASCCxx*> +1) : x 
* = " a " 

1110 IF xx*>"z" THEN STOP 
1120 xxx*="" 

1130 IF ot> = "a" THEN xxx* = xx* 

1140 xxx*=xxx*+x* 

1150 GOTO 1210 

1160 v = Q:’ *»* Ist Neuvariable doppelt ?? 

* * * 

1170 IF v=zaehler THEN 1210 
1180 IF xxx*=neuvar*(v) THEN 1090 
1190 v=v+l 
1200 GOTO 1170 
1210 : 

1220 altvar*(zaehler)=altvariabel* 

1230 neuvart<zaehI er)=xxx* 

1240 neuvariabel*=xxx* 

1250 zaeh]er = zaehI er +1 

1260 IF enterf1ag<>0 THEN 1300 

1270 PRINT a1tvariabeIIF LEN<a1tvariabe 

I *)>12 THEN PRINT " ", 

1280 PRINT "--> "neuvariabel*, 

1290 IF ausgabekanaI<>0 THEN PR INT#ausgäbe 
kanal.altvariabel*,"neuvariabel*, 

1300 • 

1310 ’»»« Austauschen der Variabein *»* 
1320 ' 

1330 IF enterflag = 0 THEN PR 1NT#3,neuvariab 
e I *;:PRINT#2,"! n ; 

1340 rechts* = RIGHT*<theI ine*,LEN(theI ine*) 
-pointer+ 1 ) 

1350 links*=L£FT*(theline*.pointer-LEN(a1t 
variabe l * ) - 1 ) 


£117] 

£ 1214] 
£2232] 

£2387] 

£420] 

£1515] 

£ 1123] 

£305] 

£1729] 

E 1076] 
£1449] 
£781 ] 
£305] 

£ 174] 

£942] 

£2578] 

£2041] 

£22423 

£1419] 

£3160] 

£ 1949] 
£3433] 

£117] 
£23501 
£ 117] 
£3518] 

£3515] 

£3875] 


1360 the 1 ine*= 1 i nkst + neuvar iabe 1 * »-rechtst £30561 
1370 pointer = pointer-(LEN(altvariabe1 *)-LE £2664] 
N(neuvariabelt)) 

1380 PRINTKl,SPC(pointer\4)" £851] 

1390 a 1 tvariabeI* = "" £1662} 

1400 RETURN £555] 

1410 IF altvariabel*=altvar*(0) THEN PRINT £4181] 
Uausgabekanal,VAL(theline*) , 


1420 

a1tvariabe1*="" 

£ 1662] 

1430 

PRINTil,SPC<pointer\4>;" 

£851 ] 

1440 

RETURN 

£555] 

1450 

RESTORE 1800:RETURN 

£1674] 

1460 

RESTORE 1810:RETURN 

£ 1165] 

1470 

RESTORE 1820:RETURN 

£ 1715] 

1480 

RESTORE 1830:RETURN 

£ 1249] 

1490 

RESTORE 1840:RETURN 

£849] 

1500 

RESTORE 1850:RETURN 

£ 1128] 

1510 

RESTORE 1860:RETURN 

£ 1356] 

1520 

RESTORE 1870:RETURN 

£ 1047] 

1530 

RESTORE 1080:RETURN 

E1391] 

1540 

RESTORE 1890:RETURN 

£ 1156] 

1550 

RESTORE 1900:RETURN 

E1715] 

1560 

RESTORE 1910:RETURN 

£948] 

1570 

RESTORE 1920:RETURN 

C15343 

1580 

RESTORE 1930:RETURN 

£ 1165] 

1590 

RESTORE 1940:RETURN 

£ 1356] 

1600 

RESTORE 1950:RETURN 

£2146] 

1610 

RESTORE 1960:RETURN 

£1461] 

1620 

RESTORE 1970:RETURN 

£ 1128 3 

1630 

RESTORE 1980:RETURN 

£ 1133] 

1640 

RESTORE 1990:RETURN 

£1178] 

1650 

RESTORE 2000:RETURN 

£942] 

1660 

RESTORE 2010:RETURN 

£1211] 

1670 

RESTORE 2020:RETURN 

C1220] 

1680 

RESTORE 2030:RETURN 

£ 12013 

1690 

RESTORE 2040:RETURN 

£ 1986 3 

1700 

’ 

£117] 

1710 

’»»» Ende #** 

C 1135] 

1720 

9 

£ 1173 

1730 

CLOSEIN 

£ 7523 

1740 

CLOSEOUT 

£902] 

1750 

WINDOWHO,1,80,1,25 

C12043 

1760 

tim=(TIME-tim)/300:minuten=!NT(tim/60 

£6464] 

) : sec=INT<tim-60»minuten):sec100=INT((tim- 


INT(tim)> »100) 


1770 

CLS:PR I NT "Fertig... Rechenzeit : 

£34753 

",minuten":"sec":"sec100 


1780 

FOR damm=1 TO 176:PRINT CHR*<7);:NEXT 

£2359] 

1790 

END 

£ 1103 

1800 

DATA ABS,AFTER,AND,ASC,ATN,AUTO 

£2267] 

1810 

DATA BIN,BORDER,BREAK 

£961 ] 

1820 

DATA CALL,CAT,CHAIN,CHR,CI NT.CLEAR. CL 

£63143 

G,CLOSEIN,CLOSEOUT,CLS,CONT,COPYCHR,COS,CR 


EAL,CURSOR 


1830 

DATA DATA,DEC,DEF,DEFINT,DEFREAL,DEFS 

C 5154] 

TR,DEG,DELETE,DERR,Dl,DIM,DRAW,DRAWR 


1840 

DATA ED IT,EI.ELSE,END,ENT,ENV,EOF,ERA 

£32243 

SE,ERL,ERR,ERROR,EVERY,EXP 


1850 

DATA FILL,FIX,FN,FOR,FRAME.FRE 

£ 1145 3 

1860 

DATA GOSUB,GOTO,GRAPHICS 

£9443 

1870 

DATA HEX.HIMEM,IF,INK,INKEY,INP,INPUT 

£35073 

,INSTR,INT 


1880 

DATA JOY 

£ 1153 

1890 

DATA KEY 

£913 

1900 

DATA LEFT,LEN,LET,LINE,LI ST,LOAD,LOCA 

£3129] 

TE,LOG,L0G10,LOWER 


1910 

DATA MASK,MAX,MEMORY.MERGE,MID,MIN,MO 

£46823 

D,MODE,MOVE,MOVER 


1920 

DATA NEXT,NEW,NOT 

£820 3 

1930 

DATA ON,OPEN IN,OPENOUT,OR,ORIG IN, OUT 

C18203 

1940 

DATA PAPER,PEEK,PEN,PI,PLOT,PLOTR,POK 

£3941] 

E,POS,PRINT 


1950 

DATA PRINT 

£6423 

1960 

DATA RAD,RANDOM I 2E ,READ,RELEASE,REM,R 

£60673 

EMAIN,RENUM,RESTORE,RESUME,RETURN,RIGHT. RN 


D,ROUND,RUN 


1970 

DATA SAVE,SGN,SIN,SOUND,SPACE,SPC, SPE 

£47863 

ED,SQ,SQR,STEP,STOP,STR,STR ING, SWAP, SYMBOL 


1980 

DATA TAB,TAG,TAGOFF,TAN,TEST,TESTR,TH 

£49783 

EN,TI ME,TO,TROFF,TRON 


1990 

DATA UNT,UPPER,US ING 

£ 10323 

2000 

DATA VAL.VPOS 

£402 3 

2010 

DATA WA IT,WEND,WH ILE,WIDTH, WINDOW.WRI 

£33113 

TE 



2020 

DATA XOR,XPOS 

£6143 

2030 

DATA YPOS 

£481 ] 

2040 

DATA ZONE 

£3373 

2050 

DATA » 

£ 1093 

2060 

DATA *.» 

£513 
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Ready to use Tip 

Ellipsenbögen in Assembler 

Wie man Kreise in Assembler realisiert, ist in dieser Zeit¬ 
schrift schon veröffentlicht worden. Aber nun werden wir 
ein Verfahren vorsteUen, mit dem man beliebige Ausschnit¬ 
te (Bögen) aus Kreisen und Ellipsen auf dem Bildschirm 
darstellen kann. 


Um so etwas zu realisieren, kommt man mit puren Rechenrou¬ 
tinen kaum mehr aus, denn das würde die Routine weder schnell 
noch kurz machen. In diesem Fall könnte man gleich in BA¬ 
SIC programmieren, zumal das Loco BASIC beileibe nicht ge¬ 
rade das langsamste ist. Aber mit einer skalierten Winkeltabelle 
von 0 — 90° ist einem da schon eher geholfen. 

Für das, was das Programm kann, ist es nicht gerade sehr lang 
geraten (etwas über 300 Bytes) und auch zu vergleichbaren MC- 
Circle-Routinen noch verflucht schnell... 








für 464-664-6128 M H 

[ ~ M *, 



1000 



AOOO 


1010 

org 

• aOOO 



1020 





1030 

[****************************** 



1040 

t****************** SUB ELLIPSE 



1050 

:*************** 464, 664. 6128 



1060 

t************** Ellipse segient 



1070 

i******************** 310 Bytes 



10B0 

******************************* 



1090 





1100 

; aldx, aidy: 

ccotre 



1110 

; radx, rady 

radlus 



1120 

; angl, ang 2 i 

anglas 



1130 

i For ollipse aeg»ents (0-359) 



1140 





1150 

; DE/HL: Graphics origtn 



1160 



AOOO 

ED5B28B3 

1170 

elipse: ld 

de,(#b3261 ; 664/6128- #b693 

A004 

2A2AB3 

1180 

ld 

hl,(ib32a) i 664/6128: *b695 

A007 

D5 

1 190 

push 

de 

AOOB 

E5 

1200 

push 


A009 

2AD7A0 

1210 

ld 

hl, (angl) 

AOOC 

ED5BD9A0 

1220 

ld 

de,(ang 2 ) 

AOIO 

D5 

1230 

push 

de 

AOll 

E5 

1240 

push 

hl 

A012 

ED5BCFA0 

1250 

ld 

de,(aldx) 

A016 

ED4BD1A0 

1260 

ld 

bc,(aidy) 

AOIA 

ED5326B3 

1270 

ld 

(*b32B),do i 884/6128: *b693 

AOIE 

ED432AB3 

1280 

ld 

(#b32a),bc 1 664/6128: #b69S 

A022 

CDB4A0 

1290 

call 

count1 

A025 

EDSBD3A0 

1300 

ld 

de,(radx) 

A029 

CDB4A0 

1310 

call 

counts 

A02C 

EB 

1320 

ex 

de, hl 

A02D 

El 

1330 

pop 

hl 

A02E 

E5 

1340 

push 

hl 

A02F 

D5 

1350 

push 

de 

A030 

CDBOAO 

1380 

call 

angles 

A033 

ED5BD5A0 

1370 

ld 

de,(rady) 

A037 

CDB4A0 

1380 

call 

counts 

A03A 

Dl 

1390 

pop 

de 

A03B 

CI 

1400 

pop 

bc 

A03C 

ED532CB3 

1410 

ld 

(#b32c),de i 664/6128: #b697 

A04O 

222EB3 

1420 

ld 

(#b32o).hl S 864/6128: #b699 

A043 

03 

1430 

eloopl: inc 

bc 

A044 

216801 

1440 

ld 

hl, 360 

A047 

A7 

1450 

and 

a 

AO40 

ED42 

1460 

abc 

hl, bc 

A04A 

2002 

1470 

ir 

nz,eexitl 

A04C 

47 

1480 

ld 

b,a 

A04D 

4F 

1480 

ld 

c.a 

A04E 

C5 

1500 

eexitl: push 

bc 

A04F 

El 

1510 

pop 

hl 

A050 

ES 

1520 

push 

hl 

A051 

CDB4AO 

1530 

call 

count l 

A054 

ED5BD3A0 

1540 

ld 

de,(radx) 

A058 

CDB4AO 

1550 

cal 1 

counts 

A05B 

EB 

1560 

a* 

de, hl 

A05C 

El 

1570 

pop 

hl 

A05D 

E5 

1580 

push 

hl 

A05E 

D5 

1590 

push 

de 

A05F 

CDBOAO 

1600 

call 

angles 

A062 

EDSBD5A0 

1610 

ld 

de,(rady) 

A068 

CDB4A0 

1620 

call 

.counts 

A069 

Dl 

1630 

pap 

de 

A06A 

CDF6BB 

1640 

cal 1 

#bbf6 

A06D 

CI 

1650 

pop 

bc 

A06H 

El 

1660 

pop 

bl 

A06F 

ES 

1670 

push 

bl 

A070 

A7 

1680 

and 

a 

A071 

ED42 

1690 

sbc 

hl, bc 

A073 

20CE 

1700 

jr 

nz.aloopl 

A075 

CI 

1710 

pop 

bc 

A076 

El 

1720 

pop 

hl 

A077 

Dl 

1730 

pop 

de 

A07B 

ED5328B3 

1740 

ld 

(#b328),de 

A07C 

222AB3 

1750 

ld 

(#b32a),h! 

A07F 

C8 

1760 

ret 



Zur Benutzung: 

Die Systemwerte werden in sechs Speicheradressen abgelegt: 
Das Zentrum (Mittelpunkt) der Ellipse oder des Ellipsenbogens 
wird durch midx (x-Wert des Zentrums) und midy (y-Wert des 
Zentrums) in herkömmlichen Koordinaten (je nach Modus und 
Auflösung) festgelegt. 

Die Radien in x-Richtung (bei radx) und in y-Richtung (bei 
rady) werden genauso festgelegt. 

Bei den Winkeln ist die Sache etwas schwieriger: angl gibt den 
Anfangs winkel an und ang2 den entsprechenden End Winkel. 

Aber: 

1. Der Anfangs winkel darf nicht größer als der Endwinkel sein, 
(beide im Bereich von 0 bis 359) 

2. Der Endwinkel darf nicht größer als 359 (Einheiten in Win¬ 
kelgraden!) sein. 

3. Zuwiderhandlungen der Punkte 1-3 fuhren unwiderruf¬ 
lich zu einem Systemabsturz, Crash oder wie auch immer 
Sie es nennen mögen. 

5. Abfragen, die das verhindern, können selbstverständlich (auf 
Kosten des Platzes) installiert werden ... 

(Eckehart Röscheisen) 


A080 

015AOO 

1770 

1780 angles: 

ld 

bc, 90 

A0B3 

09 

1790 

add 

hl.be 

A084 

018801 

1800 count 1 : 

ld 

bc,360 

AO07 

A7 

1810 

and 

A 

AOBB 

ED42 

1820 

abc 

hl ,bc 

A06A 

3001 

1830 


nc,eexit2 

A08C 

09 

1840 

add 

hl ,bc 

A08D 

E5 

1050 OOXit2: 

push 

hl 

A08E 

01B400 

1860 

ld 

bc, 180 

A091 

ED42 

1070 

abc 

hl.bc 

A093 

3001 

1880 


nc.eoxitS 

A095 

09 

1890 

add 

hl.bc 

A096 

7D 

1900 eexlt3: 

ld 

a, 1 

A097 

FE5A 

1910 


90 

A099 

3803 

1920 

ir 

c,eexlt4 

A09B 

3EB4 

1930 

ld 

a, 180 

A09D 

95 

1940 

sub 

1 

A09E 

32B2A0 

1950 eexit4: 

ld 

1 add+2),a 

AOA 1 

Dl 

1960 

pop 

de 

A0A2 

21B400 

1970 

ld 

hl, 180 

A0A5 

AF 

1980 

xor 

& 

A0A6 

ED52 

1990 

abc 

hl.de 

A0A8 

3001 

2000 


nc.eexitS 

AOAA 

3D 

2010 

dec 

A 

AOAB 

67 

2020 eexitö: 

ld 

h ,a 

AOAC 

DD21DBA0 

2030 

ld 

ix,etable 

AOBO 

DD6EOO 

2040 add: 

ld 

1.(ixtO) 

A0B3 

C9 

2050 

ret 


A0B4 

7D 

2060 

2070 counts: 

ld 

a. 1 

A0B5 

E5 

2080 

push 

hl 

A0B6 

210000 

2080 

ld 

hl.O 

A0B9 

0608 

2100 

ld 

b,8 

AOBB 

OF 

2110 eloop3: 

rrca 


AOBC 

3001 

2120 


nc,eexlt6 

AOBE 

19 

2130 

add 

hl.de 

AOBF 

CB3C 

2140 eexit6 = 

srl 

h 

A0C1 

CB ID 

2150 

rr 

1 

A0C3 

10F6 

2160 

dfnz 

eloop3 

A0C5 

Fl 

2170 



A0C6 

3C 

2180 



A0C7 

CO 

2190 

ret 


A0C8 

EB 

2200 

ex 


A0C9 

67 

2210 

id 

h.a 

AOCA 

6F 

2220 

ld 

1 ,a 

AOCB 

A7 

2230 



AOCC 

ED52 

2240 

abc 

hl.de 

AOCE 

C9 

2250 

ret 


AOCF 

4001 

2260 

2270 ! Flags 
2280 

2290 mdx: 


320 

A0D1 

caoo 

2300 aidy: 

de fu 

200 

A0D3 

6400 

2310 radx: 


100 

A0D5 

6400 

2320 rady: 

def w 

100 

A0D7 

OOOO 

2330 angl: 

def# 

000 

A0D9 

0000 

2340 ang2: 

def u 

000 

AODB 

0004090D 

2350 ************ 
2360 etable: defb 

Table: 90 values of one quarter 
#0O, #04, *08, #0d,#1 l,#16,#la,#lf 

A0E3 

24282C31 

2370 

defb 

#24.#20,#2c,*31,#35,#39.#3e.*42 

AOEB 

464A4F53 

2380 

defb 

#46,#4a,#4f,#53,#57,#5b,#5f,#64 

A0F3 

6S6C7074 

2390 

defb 

#68,#6c,#70,#74,#78,#7c,#80.#83 

AOFB 

878B8F92 

2400 

defb 

#87,#0b,#8f,#92,#96,#9a,#9d.#*1 

A 103 

A4A8ABAE 

2410 

defb 

#a4,#aB,#ab.#ae,#b1,#b5,#b8.#bb 

A10B 

BEC1C4C7 

2420 

defb 

#be,#cl,#c4,#c7,#c9,#cc,#cf, #d1 

A113 

D4D7D3DB 

2430 

defb 

td4,#d7,#d9,#db,#dd,#e0,#e2,#e4 

AllB 

E6E8E9EB 

2440 

defb 

#o6,#e8,#e9,#eb.#ed.«ef,#fO.#f2 

A 123 

F3F5F8F7 

2450 

defb 

#f3,#f5.#f6.#f7,#f0,#f9,#fa.#fb 

A12B 

FCFDFDFE 

2460 

defb 

»fc,#fd,#fd,#fe,#ff,#ff,#ff,#ff 

A133 

FFFFFF 

2470 

defb 

»ff ,#ff,#ff 

add 

2480 

AOBO angl A0D7 ang2 A0D9 

angles 

AOBO count1 A084 counts A0B4 

eexlt 1 

A04I eexit2 A08D eex 

it3 A096 

00X114 

A09E eextt5 AOAB eexlt6 AOBF 

ellpse 

AOOO eloopl A043 elo 

op3 AOBB 

etable 

AODB aldx AOCF mdy A0D1 

radx 

Table 

A0D3 rady A0D5 

used: 258 fron 399 
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präsentiert 


Joyce-Programmsammlung Vol. II 


Hochwertige Software zu Niedrigpreisen finden Joyce-Anwender jetzt im Rahmen einer Programm¬ 
sammlung in der Angebotspalette des DMV-Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen Anwendungsgebieten 
kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als komplettes Programmpaket mit 3“ - 

Diskette und Bedienungsanleitung ausgeliefert. 


SUPERdat 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. Alle zugehörigen Programme 
sind in Mallard-Basic geschrieben und verwenden dessen JETSAM-Funktionen zur relativen Verwaltung der Datensät¬ 
ze auf Diskette. 


Hinweis: Dies Programm arbeitet nicht mit Peripheriegerä¬ 
ten, die den Basicspeicher der PCWs verringern. 


Leistungsumfang: 

MASKE ist das Vorprogramm, mit dem Sie die 
Feldnamen- und -Längen sowie die Länge des Such¬ 
begriffs voreinstellen "können. Für jede gewünschte 
Dateiart (Adressverwaltung, Videoarchiv usw.) können 
Sie so auf separaten Datendisketten eine eigene Mas¬ 
ke anlegen. 


SUPERdat ist das Hauptprogramm, welches die Da¬ 
ten der gewünschten Datei verwaltet. Neben der Ein¬ 
gabe von Daten in die Maske sind mehrere Sucharten, 
so z.B. auch Jokersuchen möglich. Jede Datei kann 
max. acht Felder enthalten, wovon jedes max. 40 Zei¬ 
chen enthalten darf. Die Gesamtlänge eines Datensat¬ 
zes darf 255 Zeichen betragen. Alle Eingaben in eine 
Maske können vor oder nach der Speicherung korri¬ 
giert oder verändert werden. Das Druckmenü bietet die 
Auswahl der auszugebenden Felder (alle, obere, un¬ 
tere oder bestimmte Felder) und eine Schnell- 
(Übersichts-)druckfunktion. Die meistverwendeten 
Druckerbefehle können in der Parameteroption vorein¬ 
gestellt werden. 


SUPERtex Dieses Programm stellt eine 
Rundschreib- (Mailmerge-)funktion für SUPERdat zur 
Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom 
Anwender vorausgewählte beliebige Einträge aus be¬ 
liebigen SUPERdat-Dateien an beliebiger Stelle einge¬ 
fügt: dieser Text wird ausgedruckt und die nächsten 
ausgewählten Einträge werden in den Text eingefügt. 
Weiterhin stellt SUPERtex auch eine Schnittstelle zu 
LocoScript dar; so können 30 beliebige Datensätze in 
eine für LocoScript lesbare Datei umgewandelt 
werden. 


SUPERcal Der Taschenrechner zu SUPERdat. Die¬ 
ser bietet neben den Grundrechenarten auch Winkel¬ 
funktionen, quadratische- und Prozentfunktionen. Eine 
Klammerebene und Memory-Funktionen vervollständi¬ 
gen das Leistungsangebot dieses Programms. SU¬ 
PERcal kann sowohl von der Dateiverwaltung als auch 
von SUPERtex aus aufgerufen werden: das Ergebnis 
der Kalkulation kann dem aufrufenden Programm 
übergeben werden. 




VOL.2 für PCW 8256/8512 incl. 3-Disk und Bedienungsanleitung 
Unverbindliche Preisempfehlung: 49,- DM 

Bitte Bestell karte benutzen! 


DMV-Verlag, Fuldaer Str. 6, Postfach 250, 3440 Eschwege 
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f—Tips & Tricks 


PIO - ganz einfach 

Sicherlich erinnern Sie sich noch an die Ein-/Ausgabe- 
schnittstelle in der »SCHNEIDERWARE # 6« (12/86). Mit 
einem solchen Interface lassen sich fast alle elektrischen Ge¬ 
räte über Ihren Rechner steuern. Aber selbst wenn Sie sich 
als Computer-Neuling noch nicht so recht an derlei »kom¬ 
plizierte« Schaltungen herantrauen, müssen Sie auf diese 
faszinierende Möglichkeit nicht verzichten. 

Die drei Schneider CPC sind nämlich schon »von Hause aus« 
mit mehreren Schnittstellen bestückt, die man bei entsprechen¬ 
der Ansteuerung auch ohne weiteres für seine eigenen Probleme 
verwenden kann. Warum also »zum Expansion-Port schwei¬ 
fen, wenn die Schnittstellen liegen so nah«? 


Joy with the stick 


den man bekanntlich mit dem »User Port« (so steht es auf dem 
Gehäuse) verbindet. Dieser Anschluß ist aber auch wie geschaf¬ 
fen, als einfacher Eingabeport zu dienen. Der Vorteil: An die¬ 
sem Anschluß ist - außer mit Fremdspannungen - absolut 
nichts zu zerstören. Daß man über diesen Port bis zu 14 externe 
Schalter o.ä. abfragen kann, ist Ihnen sicher nicht neu, deshalb 
möchte ich mich auch darüber nicht weiter auslassen. Weni¬ 
ger bekannt dürfte Ihnen jedoch sein, daß man hier z.B. auch 
eine Lichtschranke, einen einfachen A/D-Wandler u.ä. an¬ 
schließen kann. 

Dazu ein kleines Experiment: Verbindet man im Joystick-Port 
z.B. Pin 1 mit COMMON, so ist JOY(0) = 1, sonst =0. Soweit 
nichts Neues. Was aber passiert, wenn man die beiden Kon¬ 
takte nicht direkt, sondern über einen Widerstand verbindet? 
— Bei weniger als etwa 2 kOhm ist JOY(O) = 1, darüber =0. 
Es ist dem Rechner also völlig gleichgültig, ob der angeschlos¬ 
sene Schalter »ganz ein« oder »ganz aus« ist, er gibt, nach al¬ 
ter Computertradition, nur eine »0« oder eine »1« von sich. Die¬ 
sen Effekt aber wollen wir ausnutzen: 


LDR am CPC 


Wenn Sie einen Fotowiderstand (LDR) an Pin 1 und COM¬ 
MON anschließen und ihn dann vor Ihre Schreibtischlampe hal¬ 
ten, so ist JOY(O) = 1. Gehen Sie dann mit der Hand zwischen 
Lampe und Widerstand hindurch, so wird JOY(O) zunächst 0, 
dann wieder 1. Auf diese Weise können Sie z.B. den Drucker 
per Handzeichen steuern oder Sinnvolleres damit anstellen. 


Aus A mach D 


Dabei steht A für »analog« und D für »digital«. Gemeint ist hier 
das Problem: »Wie bringe ich meinen Rechner dazu, einen Wi¬ 
derstandswert zu bestimmen?« Nun, da die Schaltschwelle bei 
2 kOhm liegt (s.o.), können Sie bisher nur testen, ob der Wi¬ 
derstand größer oder kleiner als 2 kOhm ist. Sie können diese 
Schaltschwelle aber ganz leicht mit einem Vorwiderstand än¬ 
dern: Setzen Sie z.B. einen 1 kOhm-Widerstand dazwischen, 
so liegt die Schaltschwelle bei ca. 2-1 = 1 kOhm. Wenn Sie 
nun noch Vor widerstände und Anschlußmöglichkeiten ge¬ 
schickt miteinander kombinieren, können Sie einen einfachen 
A/D-Wandler mit 15 Stufen aufbauen (s. Abbildung 1). 


Joystick-^ 
Port 


B o 
9 *- 



Test- 

widerstand 


lkQ 


Abb. 1 


Die Funktionsweise ist nicht schwer zu verstehen: Je kleiner 
der Widerstand, den Sie messen wollen, umso mehr Eingän¬ 
ge »schalten durch«. So kann man aus der Zahl der gesetzen Bits 
in JOY(O) und JOY(l) direkt auf den Widerstands wert schlie¬ 
ßen (Beispiel s. Listing 1). In der Praxis ist es besser, die Wider¬ 
stände durch IkOhm-Trimmpotis (das sind kleine Drehwider¬ 
stände) zu ersetzen, damit Sie die Grenzen der Schaltstufen be¬ 
liebig einstellen können. 


Es geht auch schneller 


Ein kleines Bonbon noch für alle MC-Programmierer unter Ih¬ 
nen: Wem die Tastaturabfrage 50 mal in der Sekunde zu lang¬ 
sam ist, kann den Joystick-Port auch direkt (ohne den Umweg 
über die Key State Map) abfragen. und zwar mit dem Pro¬ 
gramm in Listing 2. Die Übergabeparameter sind wie bei »KM 
GET JOYSTICK«: A und H enthalten den 1., L den2. Joystick, 
die Flags sind zerstört. 


Vorwärts — gehen wir zurück! 


Unter diesem Motto soll nun nach der Eingabe von Daten auch 
deren Ausgabe betrachtet werden. Der Joystickport ist dazu je¬ 
doch nicht zu gebrauchen, da vorher die Tastaturabfrage »ab¬ 
gehängt« werden müßte — wohl kein sehr sinniges Verfahren. 
Doch wenn wir auf der Rückseite des Rechners ein Stück weiter 
wandern, entdecken wir eine Schnittstelle, durch die auch sonst 
die Daten reihenweise den Rechner verlassen: der Druckeraus¬ 
gang. Da wohl fast alle Steuerungsprobleme ohne den Drucker 
zu lösen sind, können wir diesen Port ruhig einmal für unsere 
Zwecke »mißbrauchen«. 

Damit Sie auch hier nach Belieben »herumbasteln« können 
(ohne gleichzeitig Ihren Rechner auf s Spiel zu setzen), rate ich 
Ihnen aber, die Ausgänge zunächst auf je ein Relais weiterzu¬ 
führen. Dazu brauchen Sie folgende Bauteile: 

1 (Platinen-) Stecker, 34-polig, zu Ihrem Rechner passend (gibt 
es in vielen Elektronik- und größeren Computergeschäften) 
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Tips & Tricks—| 


Dann für jeden der Ausgänge (max. 7, siehe unten) jeweils: 

1 Transistor BC 140 (ca. DM 1,50) 

1 Widerstand 1 kOhm (ca. DM 0,10) 

1 Diode 1N4148 (ca. DM 0,20) 

1 Relais lx ein (ca. DM 3,- bis 6,—) 

Die vier zuletzt genannten Bauteile sind in jedem Elektronik¬ 
geschäft zu bekommen. 

Aus diesen Teilen bauen Sie zuerst fiir jeden Ausgang die Schal¬ 
tung in Abbildung 2 auf (der schwarze Ring auf der einen Dio- 
denhälfte markiert den Minuspol; die Beschaltung des Tran- 
sitors finden Sie in Abbildung 3 wieder). 



Abb. 2 



Den Kontakt D verbinden Sie mit jeweils einem der Anschlüs¬ 
se DO bis D6 des Druckerports (s. Anhang des Rechnerhand¬ 
buchs). Dies sind die 7 Bits, die normalerweise zum Drucker 
geschickt werden. Der andere Kontakt namens GND wird mit 
einem Anschluß GND des Druckerports verbunden. Die Span¬ 
nung auf der rechten Seite ist von Ihren Relais abhängig, Sie 
sollten sie vorher mit einem Relais alleine (ohne die übrige 
Schaltung) ausprobieren. 

Das war’s auch schon, kommen wir zum Test der ganzen An¬ 
lage: Unser neuer Ausgabeport wird einfach über die Adres¬ 
se &EF00 angesprochen. Geben Sie also über OUT &EF00,x 
die Bytes x = l, 2, 4,... 64 aus und testen dabei, ob die Relais 
der Reihe nach durchschalten. Tun Sie’s nicht, so ist entweder 
die Spannung zu niedrig oder die Schaltung nicht in Ordnung. 

Sie können den Ausgabeport auch über die üblichen Druck- 
Routinen ansprechen, allerdings nicht über solche, die das 
Busy-Signal testen (andernfalls kehrt der Rechner aus dieser 
Routine nicht mehr zurück). 


Wir bauen einen Roboter 


Nun, dazu soll es in diesem Artikel nicht mehr kommen, alles 
weitere ist Ihrem Ideenreichtum überlassen. Auf alle Fälle ste¬ 
hen Ihnen mit den hier vorgestellten Ports eine ganze Reihe von 
Steuerungsmöglichkeiten zur Verfügung. Für Ihre weiteren Ba¬ 
steleien wünsche ich Ihnen viel Erfolg! 

(T. Kochmann) 


für 464-664-6128 



'Listing 1: 

‘Widerstandsmessung mit dem 
'einfachen A/D-Vandler 


10 
20 
30 
40 ’ 

50 widerl=120 
60 wider2=1000 
70 schwelle=2000 
80 ’ 

90 diff=wider2-7*wider1 

100 DEF FN grenze(n>=schwelle-wlderl*n+dif 
f*(n>6> 


[11981 

[21561 

L19121 

[1171 

[7461 

£5861 

[7821 

[1171 

[19191 

[ 12411 


110 

MODE 1 

[5061 

120 

' 

[1171 

130 

x=JOY(0) 

[11221 

140 

n0=LOG( x+1 >/LOG < 2 > 

[9041 

150 

'gesetzte Bits in JOY<0> 

[26651 

160 

x=JOY <1> 

[11001 

170 

nl=L0GCx+l)/L0G<2) 

[4181 

180 

‘gesetzte Bits in JOYCl) 

[26751 

190 

n=n0+nl 

[981 

200 

rmin=FN grenze(n) 

[19071 

210 

rmax^FN grenze(n-l> 

[10471 

220 

IF n=14 THEN rmin=0 

[10981 

230 

IF n=0 THEN rmax=lE+09 

[8641 

240 

'Wert willkuerlich gewaehlt 

[22821 

250 

LOCATE 1,1 

[6113 

260 

PRINT"Widerstand liegt zwischen" 

[27531 

270 

PRINT rmin; "und" ; rmax; "Ohm. " 

[16551 

280 

GOTO 130 

[3713 


10 ' 

;Listing 2: 

[631 

20 ' 

[direkte Joystick-Abfrage 

[14491 

30 ' 

; 

[2151 

40 ' 

org &a000 

[4401 

50 ' 

di 

[2961 

60 ' 

push bc 

17131 

70 ' 

ld bc,&f792; Port A und B 

C 24231 

80 ' 

aut <c),c; als Eingaenge 

[17261 

90 ’ 

ld bc,&f646; Spalte 7 

[31121 

100 

'out (c),c; der Tastaturmatrix 

[14131 

110 

‘ ld b, 8sf4; Zeilen 1 bis 8 

[13151 

120 

'in a,<c); hereinholen 

C16081 

130 

' cpl 

[3381 

140 

'and 127; Taste 55 loeschen 

[13351 

150 

’ld l,a; 2. Joystick 

[16801 

160 

'ld bc,&f649; Spalte 10 

[23301 

170 

'out <c),c; der Tastaturmatrix 

[14131 

180 

'ld b,&f4; Zeilen 1 bis 8 

[13151 

190 

'in a,<c); hereinholen 

[16081 

200 

' cpl 

C3381 

210 

'and 127; Taste 79 loeschen 

[15671 

220 

’ld h,a; 1. Joystick 

[13651 

230 

’pop bc 

[4871 

240 

* e i 

[2903 

250 

’ ret 

[4763 
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r~Tips & Tricks 


Ready to use Tip 

Erweiterter Zeichensatz für den Schneider CPC 

Heute kommt wieder einmal einer der kleinen Hämmer, die man 
sehr gut in eigene Programme einbauen kann: Eine Routine, die 
sechs verschiedene Schriftarten untereinander kombinieren und 
ausgeben kann. 

Das war doch schon da, werden Sie jetzt sagen: Das stimmt auch. 
Aber nun liegt dieses Programm im Quelltext vor und ist um die Op¬ 
tion Kursiv-Zeichensatz erweitert worden und zudem endlich auf allen 
CPC-Computern implementiert. 

Die Funktionsweise ist im großen und ganzen sehr einfach: Das von 
Matthias Uphoff übernommene Programm patcht die Zeichenausga¬ 
beroutine und setzt die Zeichen einzeln je nach angegebenem Typ zu¬ 
sammen. um sie danach auszugeben. Der Zeichen-Typ wird beim 
Einsprung im Akkumulator übernommen. 

Beispiel: newchr: ld a,34 ; dünn & kursiv 
jp char; Typ lestlegen 


Den ganz normalen Character Set erhält man mit a=0: 

oldchr: xor a ; alte Zeichen 

jp char; Zurückschalten 

Zugleich wird der gepatchte Vektor wieder auf seinen ursprünglichen 
Wert gesetzt. 

Der Zeichensatz wird über folgende Bit-Tabelle ausgewählt, Werte 
der gewünschten Eigenschaften werden einfach addiert: 


Bit 

Wert 

Typ 

0 

1 

Dicke Zeichen (Fat) 

1 

2 

Dünne Zeichen (Thin) 

2 

4 

Doppelte Breite (Width) 

3 

8 

Doppelte Höhe (Height) 

4 

16 

Unterstreichen(Underlined) 

5 

32 

Kursiv (Italics) 


Die Bits 6 und 7 sind unbelegt, können also vom User noch für eige¬ 
ne Zeichentypen belegt werden. Denkbar wäre zum Beispiel noch eine 
Invertierung, Spiegelung oder Drehung ... 

(Mathias Uphoff/Eckehart Röscheisen) 







1 1 r «fi 

für 464-664-6128 H □ 

l mm 



1000 



AOOO 


1010 

org 

»aOOO 



1020 





1030 ********************************* 



1040 ************************ SUB CHAR 



1050 ****************** 464, 664, 6128 



1060 *********** Select character type 



1070 *********************** 303 Bytes 



1080 ********************************* 



1090 





1100 i A = 

Character type to select 



1110 i (A=0 

suitches to noraal chars!) 



1120 : 





1130 t Bit options: 



1 140 l 





1150 ! BO s 

001 = 

Eaphasized chars 



1160 ; Bl = 

002 = 

Light Chars 



1170 ; B2 = 

004 = 

Double size chars 



1180 t B3 = 

009 = 

Double height chars 



1190 l B4 = 

016 - 

Underlined chara 



1200 t B5 = 

032 = 

Italles 



1210 



AOOO 

322EA1 

1220 char: 

ld 

(type 1, a 

A003 

2 IOC 14 

1230 

ld 

hl,«140c 1 664/6128: #140a 

A006 

B7 

1240 

or 

a 

A007 

2803 

1250 


2.setvek 

A009 

2110AÖ 

1260 

ld 

h 1 .neutxt 

AOOC 

22DABD 

1270 setvek 

ld 

(«bddal.hl 

AOOF 

C9 

1280 

ret 




1290 



AO 10 

FE20 

1300 neutxt 


32 

AO 12 

DA0C14 

1310 

jp 

c,1140c i 664/6128: »140* 

AO 16 

CDD312 

1320 

Cal 1 

#12d3 ; 664/6128: «12d4 

AO 18 

110EA1 

1330 

ld 

de,natrix 

AO 1 B 

010800 

1340 

ld 

bc, 8 

AOlfe 

3A2EA1 

1350 

ld 


A021 

CB47 

1360 

bit 

O.a 

A023 

2010 

1370 

jr 

nz,e»ph 

A025 

C&4F 

1380 

bst 

1, a 

A027 

2818 

1390 


z, noru 1 

A029 

4 1 

1400 

id 

b.c 

A02A 

7E 

1410 nxtlig 

ld 

a, (hl) 

A02& 

CB3F 

1420 

srl 

a 

A02D 

A6 

1430 

and 

(hl) 

A02E 

12 

1440 

ld 

(de 1.a 

A02F 

23 

1450 

inc 

hl 

AOSO 

13 

1460 

mc 

de 

A031 

10F7 

1470 

djnz 

nxtlig 

A033 

1Q0E 

1490 

jr 

goon 

A035 

41 

1490 e»ph: 

ld 

b.c 

A036 

7E 

1500 nxtoap 

: ld 

a,1hl) 

A037 

CB3F 

1510 

sr 1 

a 

A039 

B6 

1520 

or 

(hl 1 

A03A 

12 

1530 

ld 

idel.a 

A03B 

23 

1540 

inc 

hl 

A03C 

13 

1550 

inc 

de 

A03D 

10F7 

1560 

djnz 

nxteip 

A03 r 

1802 

1570 

J r 

goon 

A04 1 

EDBO 

1580 nor>4l 

: ldir 


A043 

EB 

1590 goon: 

ex 

de. hl 

A044 

3A2EA1 

1600 

ld 

a,(type l 

A047 

CB6F 

1610 

bit 

5, a 

A049 

2818 

1620 

J r 

z, lid* 

A04B 

ES 

1630 

push 

hl 

A04C 

210EA1 

1640 

ld 

hl, aatrlx 

A04F 

0602 

1650 

ld 

b, 2 

A051 

CB1E 

1660 kursl: 

rr 

(hl 1 

A053 

23 

1670 

inc 

hl 

A054 

10FB 

1680 

djnz 

kursl 

A056 

0603 

1690 

ld 

b.3 

A0S8 

23 

1700 kurs2: 

IOC 

hl 

A059 

10FD 

1710 

djnz 

kurs2 

A05B 

0603 

1720 

ld 

b.3 

AOSD 

CB26 

1730 kurs3 : 

sla 

(hl 1 

A05F 

23 

1740 

inc 

hl 

A060 

10FB 

1750 

djnz 

kurs3 

A062 

El 

1760 

pop 

hl 

A063 

3A2EA1 

1770 1 ine : 

ld 

a, ( type > 

A066 

CB67 

1780 

bit 

4.« 

A068 

2804 

1790 

jr 

z. expand 

AOBA 

2B 

1800 

dec 

hl 

A06B 

36FF 

1810 

ld 

(hl ) .255 

A06D 

23 

1820 

inc 

hl 

A06E 

0601 

1830 expand 

.: ld 

b, 1 

A070 

CB57 

1840 

bit 

2.a 

A072 

2827 

1850 

jr 

z,stret 

A074 

DD210EA1 

1860 

ld 

ix,»atrix 

A078 

0608 

1870 

ld 

b, 8 

A07A 

C5 

1880 nextpr 

: push 

bc 


A07B 

DD4EOO 

1890 

ld c,(iX+0O> 


A07E 

0608 

1900 

ld b,8 


A080 

CB09 

1910 nextpu: 

rrc c 


A082 

DDCB001E 

1920 

rr Ux+001 


A086 

DDCB101E 

1930 

rr (iX+16) 


AO0A 

DDCB002E 

1940 

sra ( lx+OO) 


A08E 

DDCB101E 

1950 

rr (lx+16) 


A092 

10EC 

1960 

djnz nextpu 


A094 

DD23 

1970 

inc ix 


A096 

CI 

1980 

pop bc 


A097 

10E1 

1990 

djnz nextpr 


A099 

0602 

2000 

ld b,2 


A09B 

CB5F 

2010 stret: 

bit 3,a 


A09D 

2818 

2020 

jr z.urite 


A09F 

C5 

2030 nextsp: 

push bc 


AOAO 

010800 

2040 

ld bc, 8 


A0A3 

E5 

2050 

push hl 


A0A4 

09 

2060 

add h1,bc 


A0A5 

EB 

2070 

ex de,hl 


A0A6 

El 

20B0 

pop h 1 


A0A7 

41 

2090 

ld b.C 


A0A8 

2B 

2100 nextlC 

dec hl 


A0A9 

7E 

2110 

ld a,(hl! 


AOAA 

1B 

2120 

dec de 


AOAB 

12 

2130 

ld (de).a 


aoac 

1B 

2140 

dec de 


AOAD 

12 

2150 

ld (de).a 


AOAE 

10FB 

2160 

djnz nextli 


AOBO 

111600 

2170 

ld de.24 


A0B3 

19 

2180 

add hl,de 


A0B4 

CI 

2190 

pop bc 


A0B5 

10E8 

2200 

djnz nextsp 

: 664/6128: «b736 

A0B7 

2A96B2 

2210 «rite: 

ld hl.(#b296> 

AOBA 

E5 

2220 

push hl 



210EA1 

2230 

ld hl,aatrlx 





ld <»b296),hl 


A0C1 

3A94B2 

2250 

ld a,(*b294) 

664/6128: #b734 

A0C4 

F5 

2280 

push af 







A0C6 

3294B2 

2280 

ld (»b294),a 

; 664/6128: #b734 

A0C9 

4F 

2290 

ld C, a 


AOCA 

CDEAAO 

2300 

call goup 





ld a.c 


AOCE 

CD3413 

2320 

call »1334 

; 664/6128: #1335 

A0D1 

3A2EA1 

2330 

ld a.ftypel 


A0D4 

CB57 

2340 

bit 2,a 


AOD6 

2809 

2350 

jr z.restor 


A0D8 

0E02 

2360 

ld c, 2 


AODA 

CDEAAO 

2370 

call goup 




2380 

ld a, c 


AODE 

CD3413 

2390 

call #1334 

: 664/6128: #1335 



2400 res.or: 

pop af 


A0E2 

3294B2 

2410 

ld (#b294l,a 

-. 664/6128: #b734 



2420 

pop hl 


A0E6 

2296B2 

2430 

ld l#b29S),hl 


A0E9 

C9 

2440 

2450 

ret 


AOEA 

3A2EA1 

2460 goup: 

ld a,(type 1 


AOED 

CB5F 

2470 

bit 3,a 




2480 

ret z 



2186B2 

2490 

ld h1.#b286 

; 664/6128: #b727 



2500 

push hl 


A0F4 

3AB9B2 

2510 

ld a,(#b299) 

: 664/6128: #b72a 

A0F7 

BE 

2520 

cp (hl) 




2530 

jr z,notup 


AOFA 

3A8BB2 

2540 

ld *, ( #b20b 1 

; 664/6126: #b?2c 

AOFD 

BE 

2550 

cp (hl) 


AOFE 

3802 

2560 

jr c,notup 


A100 

2B 

2570 

dec h 1 


A 10 1 

35 

2580 

dec (hl) 


A102 

79 

2590 notup: 

td a.c 


A 103 

C5 

2600 

push bc 


A 104 

CD3413 

2610 

call #1334 


A 107 

CI 

2620 

pop bc 


A 108 

El 

2630 

pop h 1 


A 109 

35 

2640 

dec (hl) 


A10A 

2B 

2650 

dec h 1 


A10B 

34 

2660 

inc (hl) 


A10C 

OC 

2670 

inc c 


AlOD 

AlOE 

A12E 

C9 

2680 

2690 

2700 aatrlx 
2710 type: 

ret 

: defs 32 
defs 1 



char AOOO 
goon A043 
kurs2 A058 
natrix AlOE 
nextpr A07A 
rioroil A041 
nxtllg A02A 
stret A09B 


aaph A035 
goup AOEA 
kurs3 A05D 
neutxt AO10 
nextpu AOSO 
notup A102 
restor AOE1 
type A12E 


expand A06E 
kurst A051 
line A063 
nextli A0A8 
nextsp A09F 
nxtemp A036 
setvek AOOC 
«rite A0B7 


Tab 18 used: 307 fro» 423 
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Nur solange Vorrat reichts 

Die beliebten 4 Spielesammlungen zum Knüllerpreis 
Goldene 7 (T), Goldene 7 @ 

Gamebox 1, Gamebox 2 

das bedeutet insgesamt 18 tolle Spiele für alle CPC Computer! 


Folgende Titel finden Sie enthalten: 

Secret of Wizard, Turlen, Zadora, 3D Labyrinth, Die alte Burg, 
Space Race, Galaxis, Schatz, Garten Manager, Berg der Monster, 
Poker, Super Chance, Captain Starships Test, Oil Willi, 

Anduril, Mörderjagd, Ball Hunter, Dungeon Doom 


Power-Spiele-Paket für CPC 464/664/6128 = 4 Kassetten nur 50, — DM 

= 4 Disketten 3“ nur 70,- DM 


Bestellkarte benutzen! 




DMV, Postfach 250, 3440 Eschwege 











































I—Tips & Tricks 



Taswordhelp 

Hier ist eine Lösung, für alle, die ihre Helpseitc von Tasword neu 
gestalten wollen. Dieses Programm nimmt Bezug auf das Problem 
von Herrn Biermann aus Heft 10/86. Sie können damit die Zei¬ 
len 1 — 18 der Helpseite nach Herzenslaune umändern. Um die 
selben Symbole für CTRL,SH1FT, und die Pfeile zu haben, müs¬ 
sen Ersatzsymbole herhalten. Mit diesen Symbolen können Sie 
Ihre erstellte Seite aufrufen. 

Vergessen Sie nicht die Control Taste dabei zu drücken. Hier die 
Übersicht der Ersatzsymbole: 


für 464-664-6128 


************************************ 


a 


2 ************ HELPDESIGNER 

3 ************ FUER 

4 ************ TASWORD 

5 ************ <C> 

6 ************ NORBERT 

7 ****»***»#*# SiMON 10/86 


*********** 

*********** 

*********** 

*********** 

*********** 


8 


10 MODE 21DIM A*<18> 

20 ON ERROR GOTO 110 

30 PR I NT"Di skette mit TASWORD einiegen und 
(SPACE) druecken." 

40 b*=lNKEY$:lF b*<>" " THEN 40 
50 MEMORY 15000 

60 »*#*»**** EINLESEN NEUE ZEILEN ***** 

70 LOAD"tasword.bin":MODE 2 

80 PR INT”D19 ket te mit HELPDESIGNER einlege 
n und (SPACE) druecken." 

90 b*=INKEY*:IF b*<>" " THEN 90 

100 OPEN 1N "helpdesi.dat": FOR 1=1 TO 18:IN 

PUT #9,a*(i):NEXT:CLOSEIN:GOTO 180 

110 CLS:PRINT"Text Zeilenweise eingeben, K 

orrekturen sind spaeter moeglich." 


□ 
11383) 
t1750) 

E 931) 

C1315 3 
C 777 ] 
t11153 
E16113 
11383 3 
C15383 
C1495 3 
14817] 

E2670] 
C 374 ] 
£8451 
E 3237] 
£5922] 

E26923 
E56051 

[5978] 


120 FOR 1=1 TO 18 1339] 

130 LOCATE 1,21s PR I NT STR ING»<255," ”>sLOC C2956] 
ATE 1,21 

140 LINE INPUT #0,"",a»Ci) E2003] 

150 IF LEN <a$(i))>80 THEN PRINT"Zu lang- C5986] 
Eingabe wiederho 1en":FOR c=l TO 200:NEXT:G 
OTO 130 

160 LOCATE 1,1:PR I NT a*(i>, E13053 

170 NEXT i E3753 

180 ******** KORREKTUR LESEN ********** £20723 

190 CLS:FOR 1=1 TO 18 [12533 

200 IF LEN (A*(I))=80 THEN PRINT ai(i);ELS E38813 

E PRINT a$ <i> 

210 NEXT i £3751 

220 PR I NT"A1I es O.K. so ? Ej/nl" t24973 

230 b* =INKEY*:1F b* = "" THEN 230 C27153 

240 IF b*="j" THEN 270 C12503 


CTRL. chr$(93) 

(Eckige Klammer zu) 

SHIFT chr$(125) 

(Geschwungene Klammer zu) 

Pfeile: 

Hoch chr$(91) 

(Eckige Klammer auf) 

Runter chr$(123) 

(Geschwungene Klammer auf) 

Links “ < “ 

Rechts “ > “ 

Das Programm ist einfach zu handhaben.da man Unterstützung 
vom Computer bekommt. Trotzdem, hier ist die erste Starthilfe: 

1. Checksummer rein (nicht nötig, aber vorteilhaft) 

2. Programm eintippen und starten. 

3. Tasword und Leerdiskette bereit halten, da die neue Gestaltung 
mit dem Taswordbinärfile abgesaved wird und das alte File ge¬ 
löscht wird. Des wegen die neue Diskette, man könnte ja mal die 
alte Maske noch brauchen. 

4. Also,nach dem starten einfach die Angaben befolgen. 

Der einzugebende Text für die Helpseite , wird über eine Einga¬ 
bezeile eingegeben und danach aufgelistet. Wenn ALLE Zeilen 
(1 - 18) eingegeben sind ,wird das ganze nochmals zur Korrek¬ 
tur vorgelegt. Sollten sich Fehler eingeschlichen haben, zählt man 
die Zeilen von oben nach unten ab und gibt die Zahl ein. Darauf¬ 
hin wird die Zeile nochmals gelistet und kann COPYrt .Verändert 
werden. Danach wird das ganze als Datenfile abgesaved , und 
wird,- falls man die Seite mal wieder ändern möchte,- das näch¬ 
ste mal gleich mit eingelesen und es geht gleich in den Korrektur¬ 
mode. Wenn eine ganz neue Seite angelegt werden soll, einfach 
bei der Anforderung keine 'HELPDESIGNER' — Diskette ein¬ 
igen. (N. Simon) 


250 

IF b*="n" THEN 550 

£455 3 

260 

GOTO 230 

[423 3 

270 

MODE 2:PR INT"Ea wird ein Datenfile ang 

[4861] 

elegt, der die neue Seite abspeichert" 


280 

OPENOUT"he1pdesi.dat":FOR 1=1 TO 18:WR 

£3443] 

ITE 

#9,a*(I):NEXT:CLOSEOUT 


290 

FOR 1=1 TO 100:NEXT:MODE 2 

[809] 

300 

* **» EINPOKEN DER NEUEN ZEILEN *** 

[21783 

310 

T=0 

[2733 

320 

FOR 1=1 TO 18 

[3393 

330 

c=t*80 

C 056 3 

340 

a*(i) =a* <1)+STRING*(80," 

[13783 

350 

FOR 1=0 TO 79 

[689 3 

360 

u=I+l:c* = MlD*(a$(l),u,1):PR INT c* 

£19581 

370 

IF c*="3" THEN POKE 26624+C+I,16:GOTO 

£20021 

440 



360 

IF c*=")" THEN POKE 26624+0+l.15:GOTO 

£23061 

440 



390 

IF c*="C" THEN POKE 26624+0+1,19:GOTO 

C1459] 

440 



400 

IF c*="(" THEN POKE 26624+C+1,18:GOTO 

£1336] 

440 



410 

IF c*=">" THEN POKE 26624+C+1,20:GOTO 

£13621 

440 



420 

IF c*="<" THEN POKE 26624+C+1,17:GOTO 

£2249] 

440 



430 

POKE 26624+c+l,ASC(c$) 

£3371 

440 

NEXT 

£3501 

450 

t = t+l 

C254] 

460 

NEXT 

£3501 

470 

’*»* ABSAVEN DES BlNAERSATZES **** 

[1558] 

480 

MODE 1:LOCATE 5,5:PR INT"Neue Diskette 

£4159] 

ein 1 egen" 


490 

LOCATE 5,7:PR I NT"Sons t wird Original u 

[44651 

eberschrieben !" 


500 

LOCATE 5,9:PRINT"Saven mit (SPACE)" 

C14313 

510 

b$=INKEY *:IF b$<>” " THEN 510 

[27983 

520 

SAVE"tasword.bin",b,&3E00,13233 

C1501] 

530 

PRlNT"0.K." 

[014] 

540 

END 

C 110J 

550 

INPUT"Welche Zelle soll korrigiert wer 

[40163 

den 

< Nr.1 


560 

PRINT a*(i>:INPUT a*(i) 

C14003 

570 

GOTO 190 

£407 3 


54 PC 8’87 


















Tips & Tricks—| 


Maschinenprogramm auf Prozessorstack 


für 464 



Wer hat sich nicht schon daran gestört, Maschinenprogramme mit 
Hilfe der Befehlsstruktur DATA.. .READ z.B. oberhalb BASIC ab- 
legen zu müssen. Gerade in der Phase des Programmentwurfs ist diese 
Lösung ziemlich umständlich. 

Verzichten wir doch auf die DATA-Zeile und binden das MP direkt 
dort mit ein, wo der CALL-Aufruf stattfindet. Dazu bietet der BA¬ 
SIC-Interpreter komfortable Hilfsmittel: 

1. Der Klammeraffe »@« gibt — einer Variablen vorangestellt — de¬ 
ren Adresse zurück. 

2. Mit dem CALL-Befehl dürfen noch bis zu 32 Parameter durch 
Komma voneinander getrennt übergeben werden. Indirekt können so¬ 
mit 64 Bytes als MP abgelegt werden. 

Zunächst rufen wir einfach mal ein MP im Direktkommando auf der 
Adresse der Variablen rsx% (Name beliebig) auf: 
call §rsx% 

Antwort: »Improper argument“ 

Wenn der Klammeraffe einer Variablen vorangestellt ist, muß sie be¬ 
reits definiert sein (Vorsicht! Gilt nicht für Felder), so daß es nicht 
ohne weiteres zum Absturz des Rechners kommen kann. 
Allgemein ist ein MP wie folgt in den CALL-Aufruf einzufügen: 
rsx% = &E9DD oder rsx % — -5667 


call §rsx% , &XXYY ,., &XXYY 

* / / 

n’tes Byte. l.Byte 


Ein so aufgerufenes MP fangt immer unter der Adresse der Variablen 
rsx% an. Hier steht der Befehl »DD E9 = jp (IX)«, d.h. springe zu 
der Adresse, die im IX-Register steht. Der BASIC-Interpreter legt alle 
mit dem CALL-Aufruf übergebenen Parameter auf dem Prozessor¬ 
stack ab und übergibt die LSB-Adresse des letzten 16-Bit-Paramelers 
im IX-Register. Bekanntlich wird der Stackpointer vor jedem Eintrag 
(hier: einen Parameter ablegen) dekrementiert, also findet man den 
ersten Parameter unter einer höheren Adresse als den zweiten Para¬ 
meter usw. 

Mit jp (IX) läuft das MP direkt auf dem Prozessorstack ab. 

Im unten angeführten Beispiel liest der CALL-Aufruf in Zeile 50 von 
der CURSOR-Position des augenblicklich ausgewählten Ein-/Aus¬ 
gabegerätes ein Zeichen in char$, wenn das Zeichen mit der aktuel¬ 


len Stiftfarbe geschrieben wurde. Der String char$ sollte sinnvoller¬ 
weise vorher mit der Zeichenlänge 1 definiert sein. Es wird immer 
nur das erste Zeichen des Strings char$ überschrieben. 

Natürlich benötigt der BASIC-Interpreter mehr Zeit, jedesmal mit 
dem CALL-Aufruf alle Parameter auf dem Prozessorstack ablegen 
zu müssen. Jedoch für die meisten Anwendungen von kurzen MP ist 
der Zeitverzug von kalkulatorisch ca. 0.31 ms je Parameter völlig un¬ 
erheblich. 

Beispiel: 

10 rsx % = &E9DD: char$ = “ “ 

20 cls: REM Textcurs. auf Pos. 1,1 
30 PRINT “x“ 

40 LOCATE 1,1: REM Textcurs.zurück 
50 CALL §rsx% ,§char$,&C977,&D0BB, &60CD, 
&EB56,&235E,&EB13,&5623, 
&5E19,&6F00,&2687,&3DD1 ,&E5DD 
60 PRINT: PRINT:PRINT »char$=“;char$ 

70 END 


Erläuterungen zum MP: 


a-Register 
* 

= Anzahl der Parameter! 


DDE5 

PUSH IX 

Die Positi. der Datenbytes (DB, 

Dl 

POP DE 

siehe unten) in Register hl be- 

3D 

DEC A 

rechnen! 

87 

ADD A.A 


2600 

LD H,&00 


6F 

LD L,A 


19 

ADD HL.DE 


5E 

LD E,(HL) 

Über die Adresse von 

23 

INC HL 

char$sowie deren Variablen 

56 

LD D,(HL) 

pointer die absolute Adresse des 

13 

INC DE 

ersten Zeichens von char$ in hl 

EB 

EX DE,HL 

berechnen! 

5E 

LD E,(HL) 


23 

INC HL 


56 

LD D,(HL) 


EB 

EX DE.HL 

CALL &BB60 


CD60BB 

TXT READ CHAR 

DO 

RET NC 

nicht erkannt! 

77 

LD (HL),A 

einle in char$! 

C9 

RET 

nach BASIC! 

0000 

DB 

1. Parameter 


(Bernhard Bäcker) 


ZS-Soft Microtrading Th. Müller, Postfach 2361, 8240 Berchtesgaden 


Schneiden 


LEXIKON 


0 


• Völlig nau am PC-Markt 

a Eins naua Anwandungsmögllchkeltfür Ihren Schnoldor PC 
a Allgemeinwissen aus dem Computer 

a Das in einem herkümmlicHen Lexikon gespeicherte Wissen jeW zum sofortigen 
Abrul auf Knopfdruck 

• Umlangreicher Erkiarungslexl 7u jedem Stichwort aus den Bereichen Sport. Po¬ 
litik, Technik, Biologie. Literalur. Kunst und Musik 

• Kein langes Suchen mehr im oder nach einem Laxikon 

• Nutzen Sie die Geschwindlgkeil und Kapazität Ihres PC's 

• Das Computer ueriwn rat Individuell erwelterbnr 

• ca 310 KB Wissen pro-Band- 

• D>o emioinon Banda kdenen In Kurze mit dem Pioqxamm LEXTR ANS aul eure 

Harddisk transferiert werden! 

PC-Computer Lexikon 

PC-Le*lkon -Band- A-0 nu' DM 59,90zum -Schnupperprei». 

PC-Löxikon -Band- C- D DM 59,90 
PC-Lexikon -Band- E-F DM 59,90 

0©w*il» zwei Quoh«tob«ngruppen) zum Stückpreis von 
ebenfalls DM 50.90 - Kompletltsend-Praleauf Antrag«! 


JOYCE MULTI-DATABASE & TOOLKIT 

(Lmlanflfekches Universal Oaieisystem & Dienstprogramme) 

* Universell etnsetzber - von Artra**-«roonaieal** o*wv» 

MitfUMmmiurvg *<!■« 

» Arbeitet auf Joyce PCW 82M und BS12 

» IMjitM n«>H von snosien Computern utMtncrrnnc* sondern auT dorr Schneider Joyce entwickelt 
i B erfolgt □eBildachirmausyaoe auf 90 1 30 Zeichen (mehl mit Gert üblichen 80 x 24Zeicnen| 

► Direktzugriff (Random Access) 

* Die 6lrV2ifjärtlge QWLED Dl SC Funktion ermöglich! S - B InchSChnGlleresAfbeiten mil 
der MULTI DATABASE, durch konwquenie Nutzung der HAM-Floppy 

* Zehn frei delmierbare Datensätze ßro Datenfeld 

* Sucher nach beliebigen Kriterien 

» Sucher nach ganzen OÖor tellwQteen Bsgrirfen 

* Suchve^kniiplung und/odar möglich 

► l «lehms erstellen einer Selektion« da toi. Es Können problemlos neue Dateien eingenchiei 
werden die nur Elemente enthalten d*e vorher von DATEN SUCHEN gefunden wurden 

► El keilen Sofortdruok (ohne Übernahme der Daten in eine Dalei) 

e Adressetikn Undruck BjfOel Bbigs dermale Frei wähl und aefimerbare Überschritten 
e Kcmlor'.ablö BenuizarfUhrung durch Pull Down Menua ähnlich öem Locoscripi 

* Bedienungsiehier werden weitgehendst vcm Programm aogeiangen und ange/eigt 

* Eingebauter Taschenrechner mn Grundrechnungsarten und Mttnorylunktiun 
■ Ausdruck In NEUN verschiedenen Schriftarten möglich 

e Au* einer Diskette körnen mehrere Dateien angetegi werden 
e Optimale Übersicht am Bildschirm 

► Kain stär di fies Wechseln der Programm- und Datendiskellc notig 


INTERLOGIC TOOLKIT 

D enstorogramm rut MULTI-DATABASE - Ermöglicht das leichte sortieren, kopieren, mi¬ 
schen. löschen umbenonnenvon Dateien - DerTaschanrcchnensl auch hier verlügbart 

- Jetzt mit elektroniechem Notizblock - Sehr Hcmlortabsl - uvam 

Mul(*-Database & Toofkll für all« Joyce PCW nur DM 49, - 

Bel diesem Preis fallt das Umalal D en auf dla MULTI-DATABASE lelchtlll 


Tel.: 08652/63061-62049 


Joyce Dictionary Set Lelstungsüberelcht: 

e Elektron leche e Wörterbuch & Vokabeltralner 
e ca 40.000 lest gespeichene Wörter 

• ca SO.OOOtesl gespeicherte Stichwörter 

• Durchschnittliche Zugnlfszeit irrt Wörterbuch auf einen Begriff nur oe 6 oek. 

• Individuell erweiterter 

• Lernerfolg durch den VOkaDeilrainsr 

• Komplettst*! Deutsch/ Englisch & Engllech/Deutach 

Brtta beachten Sie den Tteetderlcht ln PC INTERNATIONAL 3/S7, Seite 00 

JOYCE DICTIONARY SET jetzt nur DM 99, - 

CPC Dictionary Set 464/612B DM 99, - 

Schneider PC/IBM Dictionary DM 99, - 


Ihre ZS-Sofl-Händler 


Fa Baum 
CSE Schuttes 
Fa Jnkvlaki 
Fa tan dir 
Fa Uldcte 
Fm Mer? 

Fa Mahter/Schmtel 
Fa MC Micrvportner 
Fa Video Magic 
Fa 9. Naumann 
Fa Ntcn Davit 
Fa. F. Ohamaier 
Fa RB Software 


Owi' Gofo'QK'i 
fecte'r 52 
Mautwrstr Hs 
Rdmerr.tr 63 
Sf^tWiMCft'islr <7 
2\ 

Kuih&tär 65 
Ziepw/p ar« & 
30V9hh0f8fHafjtslr 30 
RahatäßW? 
Ijnhhavsojsse £ 
Borrxnciai 20 
hoirst'*s\r 21 


WO Sc'tarWP’p 
ftÖO PfrznUxjfQ 
8253 Borgte usw 
tftfSsnfflwHüiWflS) 
Mttislilfen 
8229 franszny 
2360 düd Stgtiiy 
3300 Bamöwig 
SSKNvmOerg 
$2<0äirchiaigaffefi 
*88 Wange« 

rn Ulm 

2252 Ixk 


Umlangreichen Software-Katalog über 60 Seiten anfordern! - Gegen Rückporto von DM 1.10 - Alle Preise sind unverbindliche Preisempfehlungen 
_ Händleranfragen erwünscht! __ 
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I—Tips & Tricks 


RAMCOPY 61 28 


Viele CPC 6128 Benutzer haben ein Problem: Ihr Computer 
hat zwar neben dem normalen 64K Ram noch ein 64K Erwei- 
terungsram, jedoch können sie es nur über das Programm 
»Bankman« ansprechen und da sind die Möglichkeiten sehr ein¬ 
geschränkt. Man kann in das E-Ram nur Strings oder einen gan¬ 
zen Bildschirm kopieren. Hier schafft nun das Programm Ram- 
copy Abhilfe. Es liefert vier neue Befehle als RSX-Erweite- 
rung: 

IEPEEK, dieser Befehl funktioniert wie Peek, liest allerdings 
aus dem E-Ram. Parallel dazu IEPOKE der in das E-Ram 
schreibt. IECOPY kopiert einen Speicherbereich aus dem nor¬ 
malen Ram ins E-Ram. IRCOPY kopiert einen Speicherbereich 
aus dem E-Ram ins normale Ram. So kann man zum Beispiel 
Maschinensprachprogramme oder selbst definierte Zeichen¬ 
sätze im E-Ram ablegen. Die neuen Befehle werden folgender¬ 
maßen angewendet. 

IEPEEK,(Adresse), @a% 

Der Wert Adresse gibt die hexadezimale Adresse an, die ge¬ 
lesen werden soll. a % steht für eine Integervariable in die der 
gelesene Wert abgelegt wird. Es muß sich dabei um eine In¬ 
tegervariable handeln, die entweder durch ein nachgestelltes 
% oder durch DEFINT als solche definiert ist. Vor dem Be¬ 
fehl muß der Variablen einmal ein Wert zugewiesen werden! 
Zum Beispiel: a% =0* lEPEEK,&aOOO, a%: PRINT a%. 

IEPOKE,(Adresse),(Wert) 

Poket einen Wert zwischen 0 und 255 in die angegebene Adres¬ 
se des E-Ram’s. 

IECOPY, (Quelladr.) »(Länge), (Zieladr.) 

Kopiert einen Maschienensprachblock, dessen Länge durch die 
Variable (Länge) definiert ist, aus dem normalen Ram ins E- 
Ram. Die Variable (Quelladr.) definiert den Anfang des zu ko¬ 
pierenden Blockes, (Zieladr.) die Stelle, an der der Block im 
E-Ram abgelegt werden soll. 

IRCOPY, (Quelladr.) »(Länge),(Ziel- adr.) 

Dieser Befehl funktioniert wie IECOPY, nur wird hier aus dem 
E-Ram in das normale Ram kopiert. Durch eine besondere Art 
der Abspeicherung kann man das Programm durch Ändern der 
Zeile 10 an jede Adresse zwischen &8001 und &a500 laden. 

Erwähnenswert ist noch, daß der Inhalt des E-Rams mit CALL 
0, oder durch Drücken von Control+Shift+ Escape, also dem 


klassischen Systemreset, nicht gelöscht wird. Ich hoffe, das sich 
mit diesem Programm für viele der Nutzen ihres E-Rams im 


CPC 6128 erhöht. 


(Gerd Kilian) 



TEXTVERARBEITUNG 

mit 

AdreßStart für PCI512 DM 49,90 

(Karteikasten mit Etiketten und Listendruck) 

TextAd für CPC mit CP/M 2 2 DM 149, - 

(Adreßdatenbank, rechnende Textverarbeitung, 

Serienbriefe| 

Quick & Easy für PCI 512 DM 595. - 

Ein Textprogramm der internationalen Spitzenklasse 


Fordern Sie kostenlose Unterlagen oder Demoversionen zum Preis von 
DM 49,90 per Nachnahme und Verrechnung bei Kauf an. 


ir 


infosystems 

SOFTWARE-VERTRIEBS GMBH 


Dörrhof 7 • 4419 Laer • Telefon (0 25 54) 1232 

DIE HELFENDE HAND IM SOFTWARELAND! 


Zum Zeichnen, Malen und Texte gestalten. 

Graphikprogramm GRAFP DM 298, - 

- bis zu 16 Farben nutzbar, 

- Schildkrötentechnik, 

- bis zu 8 Fenster aufbaubar, 

- drehen, spiegeln, zoomen, verkleinern, vergrößern, projizieren, 

- 5 Zeichensätze verfügbar, 

- 11 geometrische Figuren hinterlegt 

Fordern Sie kostenlose Unterlagen oder Demoversionen zum Preis von 
DM 49,90 per Nachnahme und Verrechnung bei Kauf an. 




infosystems 

SOFTWARE-VERTRIEBS GMBH 


Dörrhof 7 • 4419 Laer • Telefon (0 25 54) 12 32 

DIE HELFENDE HAND IM SOFTWARELAND! 
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Telefonische 

Bestellung 


VERSAND 07131/52065 


JOYCE HARD- UND SOFTWARE: 


RAM-Erweiterung für Joyce PCW 6256: 
Speichererweiterung von 256 KB. Mit ausführlicher Ein¬ 
bauanleitung Preis; 109, — DM 

FD-2 (2 Laufwerk für Joyce PCW 8256): 

Kapazität 2x80 Spuren mit insgesamt 1 MB unformatiert. 
Komplett mit ausführlicher Einbauanleitung in transport¬ 
sicherer Styropor-Verpackung. Preis: 549, — DM 

Joyce-Phono-Set: 

bestehend aus RS-232 Schnittstelle, Akustikkoppler, RS- 
232 Datenkabel und einigen nützlichen Tips. Keine Soft¬ 
ware zusätzlich erforderlich Preis: 339,— DM 

Bildschirmfilter für Joyce-Monitor. Reduziert Flimmern und 

störende Spiegelungen Preis: 59, — DM 


Farbband für Joyce-Drucker 


Preis: 
2 Stk 


19.90 DM 

29.90 DM 

59,— DM 


Joyce-Drucker Verlängerungskabel: 

Inklusive Stromverlängerungskabel 

Papierführung Joyce: Ersetzt die vorhandene „Klappe" 
Durch den verstellbaren Seiten-Anschlag ist ein gerader 
Papiereinzug und genaue seitliche Einstellung vom Druck- 
Anfang möglich. Preis: 37,— DM 

Abdeckhauben für Joyce: 

In bewährter VORTEX-Qualität. 

Satz (Drucker. Tastatur und Monitor): 69,90 DM 

Fleet Street Editor: 

Ein „Muß" für jeden Joyce-Besitzer Das kombinierte Text- 
und Graphiksystem mit enormer Verarbeitungsgeschwin¬ 
digkeit. Die Bilder sind stufenlos in der Größe veränderbar 
Der Text wird mit verschiedenen Fonts geliefert und kann 
gespiegelt, gedreht und in unterschiedlichen Größen dar¬ 
gestellt werden Preis: 259,— DM 

GSX-Graphlk-Treiber: 69,— DM 

Mouse (Electric Studio): 
inclusive 2 Interfaces und Software. 

Sofort betriebsbereit Preis: 549,— DM 

DFÜ (Datenfernübertragung): 

VORTEX-VAK-300 Akustikkoppler 

Übertragongsgeschwindigkeit: 300 Baud 
Orginate-/Answermodus 

Stromversorgung: 9 V Blockbatterie/externes Netzteil 
Preis: 198,— DM 

Nuil-Modem: 49,90 DM 

VORTEX-CPC-Phono-Set - bestehend aus: 
Akustikkoppler VORTEX-VAK-300, Schnittstelle VORTEX- 
RS-232, Netzteil zur Stromversorgung, Diskettensoftware 
und Verbindungskabel Ihr Vorteil: Alles aus einer Hand, d. h 
keine Kompatibiiitätsprobleme. Nur auspacken und 
anschließen und „datenfernübertragen" 

SONDERPREIS: 498,— DM 

Multi-Link-Kabel 

Durch DIP-Schaller programmierbares RS-232-Kabel. Löst 
95% aller möglichen Verbindungen. Kabellänge: 2 Meter 
Preis: 69,90 DM 

VERBINDUNGSKABEL: 


Druckerkabel: 

für CPC 464,664 (2 m Länge Rachbandkabel) 
für CPC 6128 (2 m Länge Rachbandkabel) 

für CPC 6128 (abgeschirmtes Rundkabel) 
Akustik¬ 
kopplerkabel (zw. RS 232 u Modem) 1.5 m 
Anschlußkabel: 2. Roppy an CPC 664 
Anschlußkabel: 2 Roppy an CPC 6128 
Monitorverlängerung für CPC 464 
Monitorverlängerung für CPC 664 und 6128 
Joystickverlängerung für 1 Joystick (3 m Länge) 
Recorderanschluß (CPC an 5-pol. DIN Buchse) 
Recorderanschluß (CPC an Klinkenbuchse) 
CPC-Stereokabel zum Anschluß an HiFi-Anlage 
Schneider-Joystickadapter 
zum Anschluß von 2 Joysticks 
Scart-Monitorkabel (TV-Anschluß) 

NÜTZLICHES ZUBEHÖR: 


VORTEX-Monitorständer: Dreh- und schwenkbar in allen 
Richtungen Für alle 12" Monitore. Solide Ausführung aus 
bruchfestem Kunststoff Preis: 39,90 DM 

Micro-T-Schalter: Ein Schnittstellenumschalter mit dem 
Sie 2 Drucker an 1 Computer (oder umgekehrt) anschließen 
können Einfache Drucktastenumschaltung, auch für alle 
anderen Peripheriegeräte. Optional mit RS 232/V 24 oder 
Centronics-Schnittstelle Preis: 139,— DM 

TURBO/S 

Joystick speziell für Schneider-Computer Ausgestattet mit 
Biner Feuertaste im Griff, integrierter 9-poliger Stecker zum 
Anschluß für Zweit-Joystick. Fester Stand durch vier Saug¬ 
füße. Preis: 33,90 DM 


44,— 

DM 

44,— 

DM 

49,— 

DM 

49,50 

DM 

39,— 

DM 

39,— 

DM 

22,90 

DM 

28,90 

DM 

14,90 

DM 

17,90 

DM 

17,90 

DM 

15,90 

DM 

15,90 

DM 

29,90 

DM 


Bildschirmfilter: 

Für Farbmonitor CTM 640/644 44,— DM 

Für Grünmonitor GT 64/65: 39,— DM 

Datenrecorder: Zum Laden und Speichern von Kassetten¬ 
software auf dem CPC 664 und CPC 6128. Im Preis ist das 
Datenübertragungs- und das Netzkäbel enthalten. Auch für 
Batteriebetrieb geeignet und als normaler Musikrecorder 
verwendbar. Preis: B9, — DM 

Diskettenreinigungsset: 

für SV<" Laufwerke: 24,95 DM 

für 3'/2" Laufwerke: 15,90 DM 

Disketten: 

3" Disk CF-2 (Maxell) 5 Stk /10 Stk. 49,90/79,— DM 

3" Disk CF-2 DD für Joyce 8512 79,— DM 

The Music-Machine: 

Die Hardware-Ergänzung für Ihren CPC. Fordern Sie unse¬ 
ren Sonderprospekt „The Music Machine" an 
Preis: CPC 464: 189,— DM, CPC 6128: 249,— DM 
CPC 664:219,—DM 


PC 1512 HARD- UND SOFTWARE: 


Handy-Scanner (Prospekt anfordern) 898,— DM 

RAM-Erweiterungschips (512 kB auf 640 k8) 99,— DM 
Druckerkabel 

(abgeschirmtes Rundkabel 1,7 m Länge) 39,— DM 
Tastaturverlängerung 19,90 DM 

Monitorverlängerung 89,— DM 

VORTEX-Drive-Card 20 MB formatiert 1398,-- DM 
VORTEX Abdeckhauben für: 

Tastatur 19,90 DM 

Monitor und CPU 49,90 DM 

Drucker DMP 3000 24,40 DM 

Bildschirmfilter für s/w und coior: 59,— DM 

FD-3 (2 Laufwerk für PC). Front-Blende in original Schnei- 
der-PC-beige! Eingebaut in Stahlblechgehäuse, komplett 
und steckerkompatibel, mit ausführlicher Einbauanleitung 
und transportsicherer Verpackung 5 W mit 360 KB 
Preis: 448,— DM 

Math. Co-Prozessor 8087-2. Taktfrequenz 8 MHz mit 
genauer Einbauanleitung. Preis 498,— DM 

Harddisk-20 MB-Einbaukit. 5'A" Slimline-Festplatte m. 
Controller incl. Einbauwinkel, Kabelsatz und deutscher Ein¬ 
bauanleitung. Preis: 1278,— DM 

RAM-Speichersteckkarte SPC128 (512 KB auf 640 KB). 
Nur einstecken. Kein Schrauben oder Löten. Einbau in 
2 Minuten beendet. Kein Garantieverlust durch Zerlegen. 
Preis: 158,— DM 

PC 1512: Schwarz/Weiß-Monitor, 1 Diskettenlaufwerk und 
20 MB-Magnetplattenlaufwerk Superpreis: 2648,— DM 
Andere Konfigurationen zu aktuellen Tagespreisen!! 
Desktop-Publish ing: 


Reet Street Editor 

349,— 

DM 

TAS-Plus (relationales Datenbanksystem) 

349,— 

DM 

Microsoft: Multiplan Junior 

299,— 

DM 

Microsoft: Word Junior 

399,— 

DM 

Wordstar-Junior m Mailmerge 

399,— 

DM 

d'Base II Junior 

399,— 

DM 

Small C & Small Tools 

148,— 

DM 

Framework 1 Junior 

399,— 

DM 

Rnanzbuchhattung 

249,— 

DM 

Infocom: Hollywood-Hi Jinx 

69,90 

DM 

Pitstop II 

64,90 

DM 

Winter Games 

64,90 

DM 

World Games 

64,90 

DM 

Top Gun 

64,90 

DM 

F15 - Strike Eagles 

64,90 

DM 

Silent Service 

79,90 

DM 

Trading Company 

64,90 

DM 

Cyruss II Chess 

69,90 

DM 

Nexus: Super Sunday 

69,90 

DM 

Spitfire Ace 

59,90 

DM 


PFLEGEMITTEL: 


ORIGINAL VORTEX-ABDECKHAUBEN: 

Schneider Roppy DDI-1 16,80 DM 

VORTEX Floppy Fl-S o F1-D 19,80 DM 

Schneider Konsole für 464 und 664 19,80 DM 

Schneider Konsole für 6128 19,80 DM 

VORTEX Roppy F1-X und M1-X 19,80 DM 

Schneider Monitor grün 24,80 DM 

Schneider Monitor coior 26,80 DM 

Schneider NLQ 401 19,80 DM 

Schneider DMP 2000 22,80 DM 


DRUCKER: 


Panasonic 1081: 
NEC P6: 

Okidata ML 182: 


599,— DM 
1398,— DM 
048,— DM 


Ein- und Mehrfarbendrucker 

TA-MPR (Info anfordern) 998,— DM 

Farbbänder für viele Drucker aut Lager. Bitte anfragen 
Tfaktorführung für NLQ 401: 69,90 DM 

Druckerständer: Papierzufuhr von unten 

oder hinten. Preis: 49,90 DM 


DISKETTENBOXEN: 


3” Diskbox für 10 Disketten 
3" Diskbox für 40 Disketten Multiform 

dto. abschließbar 53,90 DM 

5 W Diskbox für 50 Disketten 36,90 DM 

5 '/*" Diskbox für 85 Disketten abschließbar 39,90 DM 
3W Diskbox für 40 Disketten 
3'/2" Diskbox für 80 Disketten 


14,80 DM 
38,90 DM 


38.90 DM 

44.90 DM 


NEUE SPIELE: 


WORLD GAMES 

C/D 

32,90/49,90 DM 

SPY VS SPY Teil II 

C/D 

33,90/49,90 DM 

LIGHT FORCE 

C/D 

29,90/39,90 DM 

FIRELORD 

C/D 

29,90/44,90 DM 

BOMB JACK II 

C/D 

27,90/44,90 DM 

ANNALS OF ROME 

C/D 

39,90/49,90 DM 

JAILBREAK 

C/D 

29,90/56,90 DM 

ACE 

C/D 

34,90/54,90 DM 

HACKER II 

C/D 

32,90/49,90 DM 

LEADER BOARD 

C/D 

29,90/39,90 DM 

HEAD OVER HEELS 

C/D 

29,90/49,— DM 

SABOTEUR II 

C/D 

29,90/39,90 DM 

RANA RAMA 

C/D 

29,90/49,90 DM 

SARACEN 

C/D 

29,90/39,90 DM 

KRACKOUT 

C/D 

35,90/49,90 DM 

MAG MAX 

C/D 

34,90/49,90 DM 

LEVIATHAN 

C/D 

29,90/39,90 DM 

RED SCORPION 

C 

29,90 DM 


SUPER-SPIELESAMMLUNG-PAKET 

SCOOBY DOO • ANTIRAiD JET SET WILLY II • 

RGHT1NG WARRIOR BOMB JACK 

SPLIT PERSONALITIES G/D 33,-/49,90 DM 


ANWENDER-SOFTWARE: 


Bei Bestellung bitte Rechnertyp und Diskettenformat ange¬ 
ben: 

d’Base II, Wordstar, Multiplan je 198,— DM 

Turbo Pascal 3.0 219,— DM 


vortex-Versand * Falterstraße - 7101 Flein 


O Senden Sie mir Ihren Katalog O CPC, O Joyce oder O PC 1512 
(Schutzgebühr DM 3,-, bei Bestellung ab DM 100,- frei) 

O Senden Sie mir umgehend folgende Artikel aus Ihrem Angebot: 


O per Nachnahme 
O per Euro-Scheck 


bei Aufträgen bis DM 200,- Versandkostenpauschale DM 5,90 
Absender: 


Gesamtsumme 


DM 

DM 

DM 

DM 

DM 

DM 


Telefon-Nr_ 

Alle Lieferungen erfolgen auf Grund unserer Allgemeinen Geschäftsbedingungen 


Unterschrift 











































I Software-Review 



Amor C 

Hersteller: Arnor 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
System: CP/M Plus 
Preis: 249, — DM 

CPC 6128 B Joyce B 

Für die Rechner Joyce und CPC gibt es 
mittlerweile, besonders unter dem Be¬ 
triebssystem CP/M plus einige populä¬ 
re Programmiersprachen. Das legendäre 
englische Softwarehaus Arnor hat nun 
neben seinem bereits von uns getesteten 
BCPL Compiler auch den Renner unter 
den Programmiersprachen überhaupt in 
die Produktpalette mit aufgenommen. Es 
handelt sich hierbei um »C«, genauer um 
Arnor C. 

Diese Sprache war im großen und gan¬ 
zen nur den MS-DOS oder UNIX Rech¬ 
nern Vorbehalten. Mit der Zeit gab es 
dann auch für den CPC eingige C-Ver- 
sionen, die aber leider nicht dem vielzi¬ 
tierten Standard nach KR — Kemighan 
& Ritchie — entsprachen. Amor hat nun 
endlich nach langer Zeit einen C-Com- 
piler herausgebracht, der mit dem C- 
Standard kongruent ist. 

Aus Speichergründen gibt es das Pro¬ 
gramm nur für die Joyce und den CPC 
6128. Arnor C läuft unter dem Betriebs¬ 
system CP/M. 

Auf der zweiseitig bespielten drei Zoll 
Diskette ist alles enthalten, was man zur 
Programmierung benötigt. Ein komplet¬ 
ter Full Screen Editor, ein Linker, der 
Compiler, Run Time Bibliotheken und 
selbstverständlich viele Libaries. 

Es gibt sozusagen drei Gruppierungen 
der Funktions-Bibliotheken. Erstens die 
Funktionen, die im Kemighan & Ritchie 
auftauchen. Zweitens solche, die in vie¬ 
len bekannten »C«-Compilem vertreten 
sind und drittens spezielle Funktionen 
die es nur bei Amor »C« gibt. 

Der Compiler erzeugt einen sehr kom¬ 
pakten Code. Auf der Diskette sind eini¬ 


ge Beispielprogramme in »C« enthalten, 
an denen man schnell erkennt, was der 
Amor »C«-Compiler alles leisten kann. 

Die compilierten »C«-Programme des 
Arnor Compilers müssen auf die Run 
Time Libary zurückgreifen. Dadurch 
wird der Code vom Z80 Prozessor inter¬ 
pretiert. Dies bedeutet, daß man mit Ge- 
schwindigkeitsVerlust rechnen muß. Da 
aber die Run Time Routine Firmware¬ 
routinen verwendet, wird dieser Ge¬ 
schwindigkeitsverlust weitgehend wie¬ 
der aufgehoben. Einziger negativer Ne¬ 
beneffekt: Die Programme sind unter 
CP/M System leider nicht kompatibel, 
wie das bei anderen Compilern der Fall 
ist. Des weiteren bleibt offen, wie es mit 
der rechtlichen Seite aussieht, also ob ein 
Programm mit der Run Time Bibliothek 
weitergegeben werden darf. Wenn nicht, 
können die in »C« erstellten Programme 
nur bei Usern laufen, die ebenfalls über 
Arnor »C« verfügen. Für den »^«-Pro¬ 
grammierer bestimmt ein gravierender 
Nachteil. 

Da »C« eine sehr maschinennahe Pro¬ 
grammiersprache ist, kann der ambitio¬ 
nierte Programmierer, dank einiger 
Funktionen zur Speicher Manipulation 
und für Firmware Aufrufe, auch tief in 
das Betriebssystem eingreifen. 

Ebenfalls findet man auf der Diskette ei¬ 
nen sogenannten Autocompiler, der es 
erlaubt sehr schnell kleine »^«-Program¬ 
me zu testen. Der Vorteil des Autocom¬ 
pilers >»AC« ist seine Geschwindigkeit. 
Man wird nicht mit dem lästigen Eintip¬ 
pen der Kommandos zum Linken und so 
weiter geplagt. 

Apropo Linker, dieser ist natürlich auch 
auf der Diskette enthalten. Wie gesagt, 
man bekommt alles was man zum Pro¬ 
grammieren in »>C« benötigt. 

Sehr überrascht war ich von dem »Full 
Screen Editor«, der den Namen »APED« 
trägt. Dieser unter CP/M laufende Edi¬ 
tor hat vom Äußeren und vom Bedie¬ 
nungskomfort eine große Ähnlichkeit 
mit dem Textprogramm »»Protext«, wel¬ 
ches in gleicher Weise von Arnor 
stammt. Und dies ist ein Kompliment. 
Erstaunlich schnell für CP/M bearbeitet 
es die Programmtexte. Man hat jederzeit 
Gelegenheit, Hüfstext über den Editor zu 
lesen. Wählt man das Verlassen der 
Text Verarbeitung an, so wird gespei¬ 
chert, welcher Text bearbeitet worden 
ist, so daß beim Aufrufen des Program¬ 
mes dieser sofort wieder in den Textspei- 
cher geladen wird. Eine sehr hilfreiche 


Einrichtung, da kein >»C«-Programm auf 
Anhieb läuft. Das Programm ist sehr an¬ 
wenderfreundlich und schnell und des¬ 
halb gerade dafür geschaffen die Quell¬ 
codes zu entwickeln. Hierfür ist es ja ei¬ 
gentlich auch gedacht. 

Der Pre-Processor des Amor »C« Com¬ 
pilers besitzt zahlreiche Kommandos. 
»»Define« und »If« sind ebenso enthalten 
wie »Assert«. Bei »Assert« handelt es 
sich um einen Pseudo-Befehl, der nur bei 
Amor »C« verarbeitet wird. »Assert« 
überprüft den Wert einer Konstanten und 
stoppt den Compilervorgang, wenn diese 
Null ist. 

Der Linker erlaubt es auch, aufgrund der 
vielen Optionen, Maschinencode Pro¬ 
gramme einzubinden. 

Bei dem Handbuch handelt es sich um ei¬ 
nen PC-Schuber. Die in Englisch verfaß¬ 
te Anleitung stellt zwar keinen Kurs zu 
»C« dar, gibt aber einen Überblick über 
die Sprache selbst und erwähnt jede 
Funktion genau. Bei der Auflistung wird 
noch einmal erwähnt, ob die Funktion 
den KR — Standard entspricht, oder ob 
diese nur bei »Amor C« enthalten ist. Da¬ 
durch kann man, sofern gewünscht, sei¬ 
ne Programme noch kompatibler pro¬ 
grammieren. 
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Fazit: 

Amor »C« sprengt den Rahmen der bis¬ 
her erhältlichen »^-Programmierspra¬ 
chen. Es handelt sich um eine vollstän¬ 
dige Umsetzung dieser Sprache. Etwas 
schade finde ich die Sache mit der Run 
Time Routine! Durch den Editor, den 
Linker, den Compiler etc. ist es ein voll¬ 
ständiges »C«-Entwicklungspaket, wel¬ 
ches man ernst nehmen kann. Der Com¬ 
piler erzeugt kompakte Codes, der Lin¬ 
ker ist leitungsstark, die Libaries um¬ 
fangreich, die Anleitung ausführlich und 
der Editor Spitzenklasse! Es würde mich 
kaum wundem, wenn durch dieses — 
wieder einmal Klasse-Programm von 
Amor — die Programmiersprache »C« 
auch bei CPC- und Joyce-Freaks einen 
ähnlichen Boom erlebt, wie es bei den 
MS-DOS Rechnern der Fall war. 

(Christian Eißner) 


58 PC 8’87 


































































Software-Review—i 


Z80-Assemblerpaket 

(Public-Domain) 

Hersteller: Martin Kotulla 

Vertrieb: Martin Kotulla, einige Händler 

Steuerung: Tastatur 

Monitor: Farbe/Grün 

Programm: CP/M 2.2 und CP/M Plus 

Preis: 30,— DM 

CPC 464 K CPC 6128 KI 

CPC 664 K Joyce K 

Von vielen, die schon einmal mit Pro¬ 
grammen aus der Public-Domain gear¬ 
beitet haben, wird die Meinung vertre¬ 
ten, daß diese Programme unkomforta¬ 
bel, fehlerhaft und kaum lauffahig sind. 
Auch wenn dies natürlich eine ziemliche 
Übertreibung ist, liegt schon ein gewis¬ 
ser wahrer Kern darin. 

Auch enthält die Public-Domain eine 
Reihe von Programmen, die speziell auf 
bestimmte Hardware-Konfigurationen 
zugeschnitten sind. Solche Programme 
können natürlich kaum auf einem 
Schneider-Computer laufen. 

Daß es auch anders geht, beweisen die 
Public-Domain-Disketten der Firma 
Martin Kotulla. Hier wurden verschie¬ 
dene Disketten zusammengestellt, die 
besonders interessante Programme ent¬ 
halten. Dazu wurden die Systemmeldun¬ 
gen dieser Programme durchweg ins 
Deutsche übersetzt und die Programme 
an den Schneider-CPC und Joyce ange¬ 
paßt. Jede dieser im Augenblick sechs 
Disketten wird mit einer ausführlichen 
gedruckten deutschsprachigen Anleitung 
geliefert. Das ist im Bereich der Public- 
Domain in ganz Deutschland bisher ein¬ 
malig! 

Die Diskette 2 der deutschsprachigen Pu¬ 
blic-Domain enthält ein Z80-Assembler- 
paket. Es dürfte aufgrund seines Anwen¬ 
dungsbereichs auch fiir eine größere An¬ 
zahl von CPC- und Joyce-Besitzern in¬ 
teressant sein. Denn diese besitzen zu¬ 
sammen mit ihrem CP/M-Betriebssy- 
stem bereits die Assembler ASM, MAC 
und RMAC. Doch diese sind ebenso wie 
die Debugger DDT und SID auf die völ¬ 
lig veralteten 8080-Mnemonics ausge¬ 
richtet, mit denen heute kein Mensch 
mehr programmiert. 

An sich wäre es ja Aufgabe von Digital 
Research, hier Abhilfe zu schaffen. 
Doch da man dort zur Zeit in 16-Bit- 
Sphären schwebt, muß man als CP/M- 
Benutzer woanders Ausschau halten. Da 
ist natürlich die Public-Domain ideal. 


Das Z80-Assemblerpaket besteht aus 
mehreren Einzelprogrammen, die zu¬ 
sammen arbeiten und Daten austauschen 
können: 

— ZMAC ist ein Z80-Assembler. 

— ZLINK bindet Programmodule zu¬ 
sammen. 

— DASM ist ein intelligenter Disassem¬ 
bler. 

— Bei ZMON handelt es sich um einen 
leistungsfähigen Debugger/Monitor 

— ED ist ein bildschirmorientierter 
Texteditor. 

Will man ein Assemblerprogramm er¬ 
stellen, kann man es mit ED eingeben. 
Dieser Editor arbeitet bildschirmorien¬ 
tiert und bietet eine recht große Unter¬ 
menge der Befehle des Textprogramms 
Wordstar. Er ist in etwa vergleichbar mit 
dem Editor von Turbo-Pascal. 

Hat man eine entsprechende Quellcode- 
Datei erstellt und auf Diskette gespei¬ 
chert, wird der Assembler ZMAC auf¬ 
gerufen, der positionsunabhängige Ob- 
jektcode-Module erzeugt. ZMAC ver¬ 
steht alle Z80-Befehle sowie Pseudodi¬ 
rektiven wie DEFW, DEFB und DEFS. 
Statt EQU verlangt er aber ein Gleich¬ 
heitszeichen. Etwas ungewöhnlich, aber 
sonst nicht weiter störend. 

ZLINK verarbeitet die von ZMAC er¬ 
zeugten .OBJ-Dateien in das CP/M-ge- 
rechte .COM-Format. Dabei kann die¬ 
ser Linker mehrere bereits vorassem- 
blierte Programmodule zu einem Ge¬ 
samtprogramm zusammenbinden. Diese 
Linklahigkeit ist unabdingbar beim Ein¬ 
satz im (semi-)professionellen Bereich 
und fehlt beispielsweise bei ASM und 
MAC von Digital Research. 

Da hat man nun ein Programm fertigge¬ 
stellt, und siehe da — es läuft nicht! Das 
ist ein typischer Fall für einen Maschi¬ 
nensprachemonitor und Debugger wie 
ZMON. Gegenüber den herkömmlichen 
Debuggern bietet er einige Vorteile. So 
besitzt er einen integrierten Z80-Zeilen- 
assembler, der Labels, DEFBs und 
Kommentare verwalten kann. Die Ein¬ 
zelschrittabarbeitung von ZMON muß 
man wirklich gesehen haben: Am Bild¬ 
schirm werden zwanzig Maschinenbe¬ 
fehle angezeigt. Ein Pfeil zeigt auf den 
gerade abgearbeiteten Befehl und bewegt 
sich ständig entsprechend dem Pro- 
grammfluß. Die Z80-Register werden 
angezeigt und ständig aktualisiert. Über 
die Tastatur kann man die Abarbeitung 
beschleunigen, verlangsamen und ganz 
abbrechen. Auf Wunsch stellt ZMON 


ein Speicherfenster dar, in dem Schreib¬ 
vorgänge des Programms in den RAM 
sofort sichtbar werden. 

DASM ist ein intelligenter und interak¬ 
tiver Disassembler. Was ist das denn 
nun? Zuerst einmal ein ganz normaler 
Disassembler, der Maschinencode-By¬ 
tes in Z80-Mnemonics zurückverwan¬ 
delt. Seine wahren Qualitäten zeigt er 
erst, wenn es darum geht, Programmco¬ 
de und Datenbereiche zu unterscheiden. 
Das kann er nämlich automatisch und 
schafft es sogar hundertprozentig, wenn 
ein Datenbereich länger als acht Bytes 
ist. Für Sprungadressen erzeugt DASM 
selbsttätig Labels, die vom Benutzer 
durch sinnvolle Namen ersetzt werden 
können. Und sobald der Benutzer dann 
noch Kommentare in den Quelltext ein¬ 
gefügt hat, besitzt er einen Quellcode, 
der sofort wieder mit ZMAC assemblier- 
bar ist. Davor ist kein Maschinenpro¬ 
gramm sicher! 


Nulzallflki ßedienungs- Doku- Grafik Arbells- Preis/ 

lieundftchkeil menlation ge&chivmtfig- LeiSlung 

kort 

n n n n n n 



Selten fällt es so leicht, ein Programm¬ 
paket zu empfehlen. Für einen Preis von 
30, — DM, bei dem kommerzielle Pro¬ 
gramme einfach nicht mithalten können, 
besitzt das Z80-Assemblerpaket Mög¬ 
lichkeiten, die weit über den Hobby be¬ 
reich hinausgehen. 

(SR) 


Extended Basic 
Compiler Basic 

Hersteller: BBG Software 
Vertrieb: BBG Software 
Monitor: Farbe/Grün 
Preis: CPC 99,— /Joyce 139,- DM 

CPC 464 K CPC 664 K CPC 6128 K 

BASIC ist zur Zeit immer noch die am 
häufigsten zum Einsatz gebrachte Pro¬ 
grammiersprache der Welt. So ist es 
nicht verwunderlich, daß auch für ohne¬ 
hin schon leistungsfähige BASIC-Com- 
puter (wie etwa die CPC’s oder den 
Joyce) eine immer größere Anzahl von 
BASIC-Implementierungen entwickelt 
wird. Besonderer Beliebtheit erfreuen 
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sich da BASIC-Compiler, die gegenüber 
den »normalen« Interpretern meistens 
mit einem beträchtlichen Geschwindig¬ 
keitsgewinn aufwarten können. So gibt 
es auch für den CPC schon einige mehr 
oder weniger leistungsfähige Compiler, 
die sich teilweise einer großen Verbrei¬ 
tung erfreuen. In die Reihe dieser Com¬ 
piler-Anbieter hat sich nun auch die Fir¬ 
ma BBG Software aus Ahrensburg ein¬ 
gegliedert. Allerdings fällt ihr »XBC — 
Extended Basic Compiler« im Vergleich 
zu den anderen Produkten ein wenig aus 
dem Rahmen. Zunächst einmal läuft der 
»XBC« unter CP/M, was für einen Com¬ 
piler zumindest ungewöhnlich ist. Doch 
gerade diese Tatsache birgt einige Vor¬ 
teile: CP/M ist ein Standard; falls sich 
der »XBC« auf einem CP/M-Rechner 
etablieren kann, so wird er auch auf an¬ 
deren Rechnern schnell zum Standard 
werden. Für 99, — DM für den CPC und 
139, — DM für den Joyce erhält der Käu¬ 
fer ein komplettes BASIC-Entwick- 
lungssystem, bestehend aus Editor, 
Compiler und Laufzeitsystem. Mit dem 
zeilenorientierten Editor können auch 
sehr umfangreiche BASIC-Programme 
erstellt werden. Die gespeicherten Pro¬ 
gramme werden dann mit dem Compiler 
in ein lauffahiges Kompilat übersetzt und 
gemeinsam mit dem Laufzeitsystem ab¬ 
gespeichert. Die so erstellten Routinen 
können nun wie »ganz normale« COM- 
Fiies aufgerufen und behandelt werden. 
Wir wollen im Rahmen dieses Testes alle 
Bestandteile des XBC einmal genauer 
unter die Lupe nehmen. Um überhaupt 
ein BASIC-Programm zu erstellen, be¬ 
nötigt man eine Möglichkeit, daß Pro¬ 
gramm ohne viel Aufwand zu erstellen 
und zu korrigieren. Hierzu dient der 
XBC-Editor. Der mit dem Editor erstell¬ 
te BASIC-Quelltext wird fortlaufend von 
1 bis 9999 nummeriert. Die beiden wohl 
wichtigsten Befehle im Editor sind der 
»i«- und der »1«-Befehl. Mit »i« (»insert«) 
werden Zeilen ab einer bestimmten Zei¬ 
lennummer eingefügt und mit »1« (»list«) 
können Zeilen oder Zeilenbereiche ge¬ 
listet werden (ähnlich wie »auto« und 
»list« unter ARMSTRAD-BASIC). Ein¬ 
mal erstellte Zeilen können mit »c« (»cor- 
rect«) verändert oder mit »d« (»delete«) 
gelöscht werden (siehe auch »edit« und 
»delete« unter ARMSTRAD-BASIC). 
Wird der »i«-Befehl aufgerufen, so ste¬ 
hen dem Benutzer noch einige andere 
Kommandos zur Veränderung des ak¬ 
tuellen Zeileninhalts zur Verfügung, die 
durch Tastenkombination mit der 
CTRL-Taste verwendet werden können. 


Neben diesen Möglichkeiten gibt es noch 
einige Befehle zum Verschieben der Zei¬ 
len, zum Suchen und zur Ein- und Aus¬ 
gabe des Quelltextes. Daneben existieren 
ferner einige Kommandos zum Datei¬ 
handling. Insgesamt läßt sich sagen, daß 
beim XBC der Editor nicht gerade pom¬ 
pös ausgefallen ist. Der Benutzer erhält 
hier einen durchschnittlichen, soliden 
Zeileneditor, der keine ausgefallenen 
Neuerungen beinhaltet. Mit ihm kann 
man ohne viel Mühe Quelltexte erstellen 
und modifizieren, insgesamt gesehen ist 
er aber eher durchschnittlich gut (aller¬ 
dings spielt bei einem Compiler der Edi¬ 
tor auch eine etwas untergeordnete Rol¬ 
le, so daß man nicht bei allen Compilern 
einen Turbo-Pascal-Editor erwarten 
kann). 

Wurde ein Quellprogramm erstellt, so 
kann es nun compiliert werden. Sofern 
nicht (etwa aufgrund von gigantischen 
Mammutprogrammen) extern compilert 
werden muß (was der XBC fehlerfrei be¬ 
herrscht), befinden sich Editor und Com¬ 
piler immer gleichzeitig im Speicher. Ein 
Programm kann editiert und dann sofort 
compiliert und gestartet werden. Da¬ 
durch werden im Normalfall umständli¬ 
che und zeitaufwendige Speicher- und 
Ladevorgänge vermieden. Mit »j« (für 
»do job«) wird ein Quelltext compiliert 
und gestartet. Wer jedoch besonders auf¬ 
wendige Programme schreiben will, 
kann auch diese compilieren und ausfüh¬ 
ren, indem der Compiler extern ausge¬ 
lagert wird. Dazu genügt die Eingabe des 
Befehls »jx« (»do job extemal«). Wenn 
nun ein Programm (welches zu lang ist, 
um gemeinsam mit Editor, Compiler und 
Komilat im Speicher zu stehen) mit »j« 
compiliert werden soll, so speichert XBC 
zunächst den Quelltext ab. Dann wird auf 
der Diskette compiliert (auf ein File 
$$$.COM). Nach erfolgreicher Compi¬ 
lation wird das soeben erstellte 
$$$.COM an die Stelle des Editor gela¬ 
den und ausgeführt. Wenn auch das er¬ 
folgreich beendet ist, werden Compiler 
und Editor wieder geladen. Schließlich 
wird dann noch der Quelltext wieder in 
den Speicher geholt. Man kann sich an¬ 
hand dieser Schilderung schon ausmalen, 
welcher immense Zeitaufwand hinter ei¬ 
nem auf diesem Weg kompilierten Pro¬ 
gramm liegt. 

Das Erfreuliche an der Sache ist aller¬ 
dings die Einfachheit, mit der der Benut¬ 
zer diese Möglichkeiten ausnutzen kann: 
er braucht sich um die Datensicherung 
etc. in keiner Weise zu kümmern, es ge¬ 
nügt lediglich das eine Kommando »jx« 


(es gibt Compiler, bei denen die oben 
aufgezählten Operationen alle »von 
Hand« ausgeführt werden müssen). 
Neben diesen Möglichkeiten der Com¬ 
pilierung gibt es noch einige besonders 
interessante Compiler-Optionen, die vor 
allem die Fehlerbehandlung des compi- 
lierten Programms optimieren. Ange¬ 
nehm fällt am Gesamtkonzept des Com¬ 
pilers ebenfalls auf, daß die compilierten 
Programme als eigenständige COM-Fi- 
les abgelegt und — unabhängig von XBC 
— kopiert, geladen, gestartet und auch 
verkauft werden dürfen. 

Die eigentlich wichtigste Frage bei der 
Untersuchung eines Compilers haben 
wir aber bis zu diesem Zeitpunkt noch 
gar nicht gestellt. Sie lautet: »Was kann 
compilert werden?«. Es ist die Frage 
nach dem Wortschatz des Compilers, 
nach der Anwendung der Befehle und 
Datenformate. Und hier hat der XBC ge¬ 
genüber anderen bekannten Compilern 
wirklich einen gewaltigen Vorsprung. Er 
bietet neben den »normalen« BASIC- 
Operationen leistungsfähige Befehle zur 
strukturierten Programmierung und Da¬ 
tenmanipulation (sowohl auf String- als 
auch auf Zahlenebene). Daneben gibt es 
starke Befehle für die Fehlerbehandlung 
(gerade bei Compilern ein extrem wich¬ 
tiger und doch häufig vernachlässigter 
Faktor) und ausgefeilte Datei-Strukturen 
(beispielsweise für Direkt-Zugriffs-Da- 
teien). 

Außerdem gibt es eine Menge Komman¬ 
dos für die maschinennahe Programmie¬ 
rung und beeindruckende Möglichkeiten 
der Ein- und Ausgabe. Mit dem XBC- 
BASIC-Wortschatz können anstelle von 
Zeilennummem symbolische Labels ver¬ 
wendet werden. Das ist vor allem bei 
Unterprogrammen sehr von nutzen. Die 
Stringbefehle wurden sehr exakt imple¬ 
mentiert. Neben den Standard-Befehlen 
gibt es eine große Anzahl von wirklich 
innovativen Stringbefehlen. Hierzu ein 
Beispiel: 

1 a$=“test“ 

2 EDIT (6);a$ 

3 PRINT» = > “;a$;“ < = “ 

Zuerst wird hier der String a$ auf »test« 
gesetzt. Mit dem EDIT-Kommando wird 
nun dieser String zum Editieren auf 6 
Stellen freigegeben. In der Praxis sieht 
das so aus, daß zuerst der alte Inhalt von 
a$ ausgegeben wird (also »test«). Danach 
kann dieser String manipuliert werden. 
Zu diesem Zweck können allerdings 
höchstens 6 Stellen verwendet werden, 
es besteht keinerlei Möglichkeit, aus dem 


60 PC 8’87 











-jrBKr/ 










WM 











9 ' w% 







MLlI 

K i 

-1 • /■ 1 Q? ^ 









9 J 





v . 





zu beziehen beim guten Fachhandel oder direkt von: 


' Unverbindliche 
Preisempfehlung 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 


- Bitte Bestellkarte benutzen - 


















I Software-Review 


6-stelligen Eingabefeld herauszugelan¬ 
gen, Ist der String dann verändert wor¬ 
den, so wird er danach wieder in a$ ab¬ 
gelegt. Die Arithmetik von XBC unter¬ 
scheidet zwischen Realzahlen, Integer¬ 
zahlen, Cardinalzahlen und Bytes. 

Für alle Typen stehen leistungsfähige 
Mathematik-Operationen zur Verfü¬ 
gung, ebenso kann auf einfache Weise 
zwischen den Datenformaten konvertiert 
werden. Bei den Dateiformaten liefert 
XBC ebenfalls Ungewöhnliches: die 
Möglichkeit, mit einfachen BASIC-Be- 
fehlen, eine RANDOM-Datei (also für 
direkten Zugriff auf alle Elemente) auf¬ 
bauen zu können, ist zumindest eine Be¬ 
sonderheit. 

Fast überflüssig zu sagen, daß XBC na¬ 
türlich auch noch gute Möglichkeiten 
bietet, Dateien von BASIC aus zu mani¬ 
pulieren. Insgesamt sind die Möglichkei¬ 
ten von XBC einfach zu umfassend, um 
hier in einer kurzen Analyse alle erläu¬ 
tert zu werden. 

Es bleibt allerdings als Fazit festzuhal¬ 
ten, daß XBC durch seinen hohen Be¬ 
fehlsvorrat aus dem Rahmen fallt und 
wirklich ausgezeichnete Möglichkeiten 
zur Verfügung stellt. 

Als letzten Punkt wollen wir uns dem 
Handbuchzuwenden, daß bei XMC mit¬ 
geliefert wird. Dieses Handbuch ist si¬ 
cherlich ganz gut. 

Allerdings hätte Programmautor Bryan 
Hayes, bei dem auch die Rechte am 
(wohl ursprünglich englischen) Hand¬ 
buch liegen, das ganze ein wenig praxis- 
näher gestalten sollen. 

So wird zwar zu Beginn der Anleitung 
eine korrekte und exakte Syntax verein¬ 
bart, die auch durch das gesamte Hand¬ 
buch durchgehalten wird, allerdings ge¬ 
raten dadurch die Syntaxbeschreibungen 
auf eine manchmal zu technisch-mathe¬ 
matische Sprache, was vor allem Anfän¬ 
gern sicher nicht dienlich ist. 
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Dennoch werden in dem Handbuch alle 
Funktionen des XBC ausführlich erläu¬ 
tert und erklärt (wobei auch manche 
Schwachstellen des Systems nicht ver¬ 
schwiegen werden). 

Der Unterschied zwischen der CPC- und 
der Joyce-Version liegt (neben dem 


Preis) vor allem in einigen wenigen er¬ 
weiterten Befehlen für den Joyce (so 
kann zum Beispiel auch das Mouse-Pack 
der Firma Reis-Ware mit BASIC-Befeh- 
len unterstützt werden). 

Insgesamt bleibt als Fazit festzuhalten, 
daß der XBC sicher ein außergewöhnli¬ 
cher Compiler ist, der jeden BASIC- 
Freak in neue Dimensionen versetzen 
kann. Es bleibt jedem einzelnen überlas¬ 
sen, ob er dafür 99, — DM bzw. 139, — 
DM ausgeben will. 

(Martin Althaus/Markus Zietlow) 


BCPL 

Programming Language 

Hersteller: Amor Ltd. 

Vertrieb: PR8-Software 
Steuerung: Tastatur 
Bildschirm: Grün/Farbe 
Betriebssystem: CP/M & AMSDOS 

CPC 664 K CPC 6128 H 

CPC 464 H Joyce K 

Spätestens wenn man den Bildschirm- 
Speicher von BASIC aus in einen ande¬ 
ren ROM-Bereich verschieben will, 
merkt man, daß BASIC doch sehr lang¬ 
sam ist. Also greift man zu einer ande¬ 
ren Sprache, zu einer Compilersprache. 
Amor hat nun eine vollständige Imple¬ 
mentation von BCPL auf den Markt ge¬ 
bracht, die sowohl unter BASIC als auch 
unter CP/M zu verwenden ist. 

BCPL, was ist das? Kurz gesagt, BCPL 
ist der Vorgänger von »B« und ein naher 
Verwandter von der zur Zeit sehr popu¬ 
lären Programmiersprache »C«. Sie wur¬ 
de bereits 1968/69 entwickelt. 

BCPL von Amor ist eine Programmier¬ 
sprache, die sehr schnell und maschinen¬ 
nah ist. 

Von BCPL sagt man, daß diese Sprache 
sehr einfach zu erlernen und zugleich 
sehr schnell ist. Da BCPL ebenso wie 
»C« maschinennah ist, programmieren 
viele Softwarehäuser in BCPL. 

Amor selbst, hat einen Teil von Protext 
in BCPL programmiert. 

Zum Lieferumfang von der BCPL Pro¬ 
gramming Language gehören eine Dis¬ 
kette, sowie ein Eprom. Auf der A-Sei- 
te der Diskette finden Sie die CP/M 2.2 
und CP/M plus Version. Auf der ande¬ 
ren Disketten-Seite die AMSDOS Ver¬ 
sion. Ebenso wurden noch zahlreiche In¬ 
put/Output Bibliotheken zugesetzt. Das 
Bearbeiten von Disketten Dateien ist da¬ 
durch nicht mehr schwer. Eine ähnliche 
Funktion wie »Printf« bei »C« gibt es 
auch bei BCPL. 


Mit der Funktion »VersionO« wird Ihnen 
ein Integerwert zurückgegeben, der an¬ 
gibt, um welche Art des Computers und 
des Betriebssystems es sich handelt. 
BCPL arbeitet mit den Programmen Pro¬ 
text und Maxam zusammen. Quell-Co¬ 
des die sich im Arbeitsspeicher eines der 
genannten Programme befinden können 
mit dem Kommando »GET« einfach 
compiliert werden. Ist man nicht im Be¬ 
sitz von MAXAM oder Protext, befindet 
sich auf der Diskette, sowohl bei AMS¬ 
DOS, als auch CP/M Version, ein Edi¬ 
tor mit dem Namen »BED« (Bcpl-Edi- 
tor). Der Editor wurde komplett in 
BCPL geschrieben und liegt auch als 
Quell-Code vor. Der Source-Code sel¬ 
ber wurde ausreichend dokumentiert. 
Sie haben die Chance, Debugging Rou¬ 
tinen von Diskette nachzuladen. Abbil¬ 
dung 1 zeigt Ihnen ein kurzes und leich¬ 
tes BCPL Programm, welches veran¬ 
schaulicht, daß es sich hier um eine 
strukturierte Sprache handelt. 


BET"CMLIBHDR" 

LET starte : BE 
SC 

uiritesC "Schneider PC International'') 
uiritesC "testet BCPL Compiler! ") 

S) 

Abb. 1 

Der Compiler an sich ist relati v schnell 
und läßt auch von der Bedienung her kei¬ 
ne Wünsche offen. 
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BCPL ist - besonders dieser Compiler 
— sicherlich eine lohnende Anschaffung 
für all jene, die mal etwas anderes wol¬ 
len, als immer nur das langsame BASIC. 
Mit dem Amor BCPL Compiler erhält 
man ein starkes Paket, zu einem günsti¬ 
gen Preis, angesichts des Leistungsver- 
hältnises. 

Die Anleitung zu dem Paket ist umfang¬ 
reich, stellt jedoch keinen BCPL Kurs 
dar. Die Autoren des Handbuches ver¬ 
weisen auf das Buch »BCPL - the Lan¬ 
guage and its Compiler« von Martin Ross 
hin. Dieses Programm veranschaulicht, 
was Anror alles auf die Beine stellen 
kann. BCPL ist eine schöne Compiler- 
Sprache. 

(Christian Eißner) 
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RANARAMA 


Hersteller: Hewson 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Programm: 100% M-Code 

CPC 464 E CPC 664 E CPC 6128 E 

Es ist schon erstaunlich, wie gerne Pro¬ 
grammierer die Spieler ihrer Produkte in 
feuchte, muffige Kellergewölbe entfuh¬ 
ren. Fantasy scheint derzeit nicht nur in 
Buchform ein gefragter Artikel zu sein. 
Die Vielzahl von Fantasy spielen, die 
momentan auf den Markt kommen, le¬ 
gen davon recht deutlich Zeugnis ab. 
Der wohl bekannteste Vertreter des Fan¬ 
tasyspieltyps ist zweifelsohne Gauntlet. 
Noch bevor dieses Arcadenspiel für die 
Homecomputer adaptiert wurde, lagen 
schon diverse Kopien, die sich des inter¬ 
essanten Spielprinzips annahmen, vor. 
Da macht Ranarama keine Ausnahme. 
Schon auf den ersten Blick sieht man, 
daß hier Gauntlet Pate stand. Aber an¬ 
ders als andere Kopien, die sich aus¬ 
schließlich aufs Plagiiren verlegen, ha¬ 
ben sich die Macher von Ranarama eini¬ 
ge wirklich neue Features einfallen las¬ 
sen. Auch bei Ranarama waren die 
Programmierer nicht um eine stimmige 
Hintergrundstory verlegen. Hier geht es 
einmal mehr um einen neunmalklugen 
Zauberlehrling, der sich unerlaubterwei¬ 
se an den Gerätschaften seines Meisters 
zu schaffen macht. 

Natürlich geht das in die Hose und Mer- 
vyn, so der Name des Unglücklichen, 
findet sich im Körper eines Riesen¬ 
frosches wieder. Zu allem Überfluß hat 
ihn der kleine Unfall nicht nur in ein Tier 
verwandelt, sondern ihn auch in ein un¬ 
heimliches Labyrinth versetzt. Nun muß 
der Ärmste nicht nur in seine menschli¬ 
che Gestalt zurückfmden, sondern außer¬ 
dem noch den greulichen Untieren des 
Verließes entkommen. 

Auf dem Monitor zeigt Ranarama sein 
Spielfeld in der Draufsicht. Der Spieler 
kann jeweils immer nur die Räume se- 


Hewson, eines der in¬ 
novativsten Software¬ 
häuser Englands, legt 
mit Ranarama sein 
neuestes Spiel vor . Als 
Spieler haben Sie die 
Aufgabe einen un¬ 
glücklichen Zauber¬ 
lehrling aus einem un¬ 
heimlichen unterirdi¬ 
schen Verließ zu be¬ 
freien. 



hen, die er schon erkundet hat. Andere 
Räume verbirgt das Programm so lange, 
bis sie betreten werden. Während der 
Spieler seinen Frosch durch das Laby¬ 
rinth steuert, stößt er auf immer neue Be¬ 
drohungen. Einmal machen ihm die 
Kampfzwerge, Feuerwesen und Mon¬ 
sterkäfer schwer zu schaffen andererseits 
gibt es immer wieder Fallen in den Räu¬ 
men. Diese sehen zumeist wie irgend¬ 
welche Monolithen aus und erzeugen so¬ 
bald der Spieler den Raum betritt teufli¬ 
sche Vemichtungsmechanismen. Zum 
Beispiel bekommt es unser Frosch im¬ 
mer wieder mit rotierenden Messern zu 
tun, die ihn überallhin verfolgen. 

Obwohl die bisher beschriebenen Teufe¬ 
leien schon haarig genug sind, kommt es 
noch schlimmer: außer den üblichen 
Standardmonstern laufen unserem 
Fröschlein auch immer wieder mächti¬ 
ge Hexenmeister über den Weg, die er 
nicht so einfach besiegen kann, denn hier 
reicht es nicht aus, einfach einen Zauber¬ 
spruch herzusagen. Die Hexenmeister 
sind nur im magischen Runenkampf zu 
besiegen, und das sieht folgendermaßen 
aus: Der Spieler steuert seinen Frosch so 
dicht an den Hexer heran, daß er ihn be¬ 
rührt. 

Danach blendet das Programm das ei¬ 
gentliche Spielfeld aus und zeigt den 
Schriftzug RANARAMA auf dem Mo¬ 
nitor, danach werden die Buchstaben 
dieses Wortes kräftig durcheinanderge¬ 
würfelt. Nun muß der Spieler mittels des 
Joysticks das Wort wieder richtig ord¬ 
nen. Gelingt ihm das in einer bestimm¬ 
ten vorher festgelegten Zeit, so hat er das 
Runenduell gewonnen - der Hexer zer¬ 
platzt in mehrere Teile, die der Frosch 
nun wiederum einsammeln muß. Diese 


Teile sind Runen, mit denen dann andere 
mächtigere Zauber gesponnen werden 
können. 

Das Verließ, in das Mervyn versetzt 
wurde, hat nicht nur ein Stockwerk, und 
je tiefer er eindringt, desto böser und ge¬ 
fährlicher werden die Widersacher. 


Spie*id*e Bedienung**- Doku- Grafik Sound Preis/ 

freund lictik oir meolation Leistung 



Steve Turner, der Macher dieses Spiels, 
hat sich des Gauntlet Spielprinzips ange¬ 
nommen und die ohnehin gute Idee mit 
einigen gut gelungenen Features noch at¬ 
traktiver gemacht. War Gauntlet noch 
»nur« ein Arcadenspiel, hat Turner mit 
seinem Ranarama daraus ein hochkarä¬ 
tiges Action-Ad venture gemacht. Der 
Sound ist zwar etwas daneben, aber 
sonst, gut gelungen. 

(HS) 


ENDURO RACER 

Hersteller: Activision 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: Disk. 59,95/Kass. 39,95 

CPC 464 IX! CPC 664 E CPC 6128 E 

Die Deutschen sind nun mal ein sportbe¬ 
geistertes Völkchen. Nicht nur, daß fast 
jegliches im Fernsehen übertragenes 


8’87 PC 63 


































































































I Software-Review 



Sportsimulationen 
haben Konjunktur. 
Ganz besonders die 
Rennsport Simulatio¬ 
nen. Denn wer kann 
sich schon eine teure 
Gelündemaschine 
kaufen. Enduro Ra- 
cer macht auch ohne 
große Investitionen 
ein rasantes Gelände¬ 
rennen möglich. 


Sportereignis sich zu einem klassischen 
Straßenfeger entwickelt, jagen Jung und 
Alt inzwischen auch Computerspielen 
mit Sportthematik nach, wie der Teufel 
hinter der armen Seele. Diese heimliche 
Manie hat schon so manches Spiel zu ei¬ 
nem Bestseller gemacht. 

Enduro Racer von Activision ist wieder 
so ein Spiel das hautnahes Erleben, ohne 
viel Investitionen ermöglicht. Enduro 
Maschinen, so bezeichnet man Motorrä¬ 
der mit denen die berühmt, berüchtigten 
Querfeldeinrennen bestritten werden. 

Die Regeln sind einfach. Alle Fahrer 
starten gleichzeitig und wer zuerst im 
Ziel ist und dann auch noch auf seinem 
Motorrad sitzt, hat gewonnen. Genau 
dieselben Regeln gelten dann auch beim 
Computerspiel. 

Grafik und Geschwindigkeit des Pro¬ 
grammes lassen wenig zu wünschen. Die 
Motoradfahrer sind gut erkennbar darge¬ 
stellt und animiert, der abzufahrende 
Parkour ist ebenfalls voll animiert. Die 
Strecken wurden nicht zu einfach gestal¬ 
tet und mehrere aufeinanderfolgende Le¬ 
vel machen das Spiel auch nach mehrma¬ 
ligem Spielen interessant. 


Spuiido« Bedienung®- DoKu- Grafik Sound Pre<s/ 

freundlictikeH meniaiion Laisiung 
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Die Streckenführung beinhaltet nicht nur 
Kurven sondern auch gut dargestelltc 
Steigungen und Gefalle. Da es sich ja um 


ein Querfeldein-Remien handelt, finden 
sich auf der Strecke immer wieder Hin¬ 
dernisse und Schikanen, die umfahren 
oder übersprungen werden müssen. 
Enduro Racer ist ein Spiel, das allen den¬ 
jenigen empfohlen werden kann, die 
Sportsimulationen mögen. 

(HS) 


KINETIK 

Hersteller: Firebird 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: Kass. 29,95/Disk 39,95 DM 

CPC 464 IXI CPC 664 H CPC 6128 K 

Auf Kinetik, einer kleinen Welt am Ran¬ 
de des bewohnten Universums, regiert 
das Chaos. Aus irgendeinem unbekann¬ 


ten Grund sind die Kräfte der Gravitation 
außer Kontrolle geraten. Es steht buch¬ 
stäblich alles Kopf. Der einzige der wie¬ 
der Ordnung in das Chaos bringen könn¬ 
te, ist der uneingeschränkte Herrscher 
dieser Welt, der Kinemator. 

Doch Kinemator ist schwach. Um seine 
Kräfte wieder herzustellen muß das le¬ 
gendäre Friedenswort in seine Hände ge¬ 
legt werden. Dies würde seine Kräfte so¬ 
weit wiederherstellen, daß er den Gewal¬ 
ten der Gravitation trotzen könnte. 

Nur, dieses Friedenswort wurde vor lan¬ 
ger Zeit in drei Teile zerissen und jedes 
dieser drei Teile liegt irgendwo verbor¬ 
gen auf der Welt Kinetik. 

Dreiundvierzig verschiedene Land¬ 
schaftszonen, jede mit einer Vielzahl 
verschiedener Bilder, erwarten den Spie¬ 
ler. Wie Sie der kurzen Hintergrundstory 
sicherlich schon entnehmen konnten, 
geht es auch hier wieder darum viele, 
viele Räume zu erkunden, mehrere ver¬ 
schiedene Gegenstände zu finden und 
diese dann an einer bestimmten Stelle des 
Spieles einzusetzen. 

Bis hier eigentlich die Ingredienzien aus 
denen üblicherweise Arcadenadventures 
zubereitet werden. Und eigentlich ist Ki¬ 
netik nichts anderes. 

Was hier den Unterschied macht und das 
Spiel aus der Mittelmäßigkeit herausreißt 
sind die Gesetzmäßigkeiten der Gravita¬ 
tion die auf ihre Spielfigur einwirken. Ihr 
kleines, kreisrundes Hydro-Sphä- 
ren-Schiff sieht sich immer wieder ver¬ 
änderten Verhältnissen gegenüber. Von 
Raum zu Raum sieht sich der Spieler im¬ 
mer neuen Situationen gegenüber, ein¬ 
mal ziehen Ihn die Gravokräfte ganz nor- 


Auf einer einsamen, 
weit entfernten Welt 
sind die Bewegungs¬ 
kräfte außer Kontrolle 
geraten. An Bord Ih¬ 
res Hydro-Sphä- 
ren-Schiffes müßen Sie 
versuchen die Ord¬ 
nung auf Kinetik wie¬ 
derherzustellen. 
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mal auf den Boden zurück und Sie müs¬ 
sen darauf achten nicht zu sehr hin und 
her zuhüpfen. In anderen Räumen finden 
sich kleine Materieklumpen mit einer 
sehr hohen Gravitation. In diesen Berei¬ 
chen herrscht keine normale Anzie¬ 
hungskraft, hier wird das Schiff des Spie¬ 
lers von den kleinen Klumpen ange¬ 
zogen. 


Bedienung»- Doku G-af.k Sound Preis/ 

reund lieh keil menlaliort Leistung 



Ein wahnsinniger Wis¬ 
senschaftler bedroht 
die Welt. Von seinem 
unterirdischen Ver¬ 
steck aus will er alle 
Computer dieser Welt 
vernichten. Ein Job 
für den Fliegenden 
Spion. 



Abgesehen davon finden sich immer 
wieder andere Situationen die komplet¬ 
tes Umdenken beim Steuern erfordern. 
Natürlich muß sich der Spieler nicht nur 
gegen die Gravokräfte durchsetzen, eine 
Vielzahl zumeist unangenehmer Zeitge¬ 
nossen erschwert die Suche nach dem 
Friedens wort zusätzlich. 

Kinetik wäre ohne die Gravotricks mit 
denen der Spieler sich alle Nase lang aus¬ 
einandersetzen muß, bestenfalls gutes 
Mittelmaß. Diese jedoch verleihen dem 
Spiel einen ganz eigenen Reiz. Übrigens 
sollten Sie sich zum Spielen von Kinetik 
einen stabilen Joystick zulegen. Den 
werden Sie nämlich brauchen. 

(HS) 


PLY SPY 


Hersteller: Mastertronic 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: 10,- DM 





CPC 464 Kl CPC 664 K CPC 6128 K) 


Gerade bei den Computerspielen sind 
neue Ideen verhältnismäßig selten. Je¬ 
doch kommt in diesem Jammertal man¬ 
gelnder Inspiration, den Programmie¬ 
rern eines zugute. 

Seit es Computerspiele gibt, wurden auf 
all den verschiedenen Systemen unzäh¬ 
lige Spiele geschrieben und veröffent¬ 
licht. Viele dieser Spiele gab es nur auf 
ganz bestimmten Systemen. Dort feier¬ 
ten sie Triumphe, und, gerieten in Ver¬ 


gessenheit. Der Programmierer von heu¬ 
te durchsucht zuerst einmal diese alten 
Spiele und so kommt es vor, daß man ab 
und an das Gefühl hat dieses oder jenes 
Spiel schon einmal irgendwo gesehen zu 
haben. 

Bei Fly Spy mußte ich unwillkürlich an 
einen alten C-64 Titel denken, dessen 
Spielprinzip dem des vorliegenden Spie¬ 
les nicht unähnlich war. 

In der Hintergrundstory des Spieles 
spielt einmal mehr ein verrückter Profes¬ 
sor die Hauptrolle. Nachdem sein CPC 
durch Einladen eines Amsoft Spieles ei¬ 
nen irreparablen Schaden erlitten hat, 
überlegt er wie er sich denn nun an der 
Allgemeinheit und ganz speziell an Alan 
Sugar rächen könnte. Aus diesem Grun¬ 
de verbringt er einen vergnüglichen 
Nachmittag mit dem Bau eines Super¬ 
computers der sämtliche Heimcomputer 
in aller Welt vernichten kann. Dies muß 
natürlich verhindert werden. 

Da Sie momentan auf dem örtlichen Ar¬ 
beitsamt der einzige arbeitslose Retter 
der Menscheit sind, fällt Ihnen die Auf¬ 
gabe zu, den wahnsinnigen Wissen¬ 
schaftler zu stoppen. Dieser hat sich so 
etwas ähnliches natürlich schon gedacht 
und Vorsorge getroffen. 

Er hat seinen Monstercomputer in einen 
Berg hineingebaut und der einzige Weg 
führt durch ein Labyrinth von teuflischen 
Fallen. Ihre einzige Ausrüstung besteht 
aus einem Mini-Hubschrauber. 

Das Spiel beginnt damit, daß Sie das To¬ 
deslabyrinth des Wahnsinnigen betreten. 
Auf dem Monitor wirkt das ganze als 
vertikaler Querschnitt durch das Sze- 
naio. Mit Ihrem Minihubi müssen Sie 


nun durch das Labyrinth. Jedoch müssen 
Sie in jeder Zone des Weges erst einmal 
den Schlüssel für die nächste Zone fin¬ 
den. Mal müssen Sie mit Ihrem Laser 
Türen zerschießen, ein anderes mal Sau¬ 
erstoff finden um durch einen Pool voll 
Wasser zu gelangen. 

Außer dem spannenden Spielablauf 
glänzt Fly Spy noch durch eine gute Gra¬ 
fik und feinen Sound. 

Auch das Spielgeschehen selbst ist wohl¬ 
durchdacht. So gibt es in jeder Zone ganz 
bestimmte Landeplätze, die, wenn sie 
benutzt werden, die Position des Hubis 
speichern. Geht dann einmal ein Hub¬ 
schrauber kaputt, fangt man nicht wieder 
ganz am Anfang an, sondern am Lande¬ 
platz an dem man zum letztenmal die Po¬ 
sition speichern ließ. 

Mit jeder Zone die der Spieler erkundet 
erhält er einen Code. Beginnt er Tags 
darauf ein neues Spiel, braucht er nicht 
etwa erst den ganzen bereits erkundeten 
Weg zurücklegen um an die Stelle zu ge¬ 
langen an der er bisher nicht weiterkam. 
Er braucht nur einen Transmitterschlüs¬ 
sel, mit dem begibt er sich zu einem der 
im Spiel verteilten Transporter und gibt 
dort den Code ein, den er in der Zone in 
der er aufgehört hat, bekam. Und voila 
schon steht er dort und hat sich einen lan¬ 
gen gefährlichen Weg erspart. 

SwlKK« Bedient, rigs- Doku- Graltk Sound Preis/ 

Ireundlichkeil meniatian Leistung 
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Ein altes verfluchtes 
Haus, ein vermißter 
Bruder und jede Men¬ 
ge bösartiger Dämo¬ 
nen. Das ist das Garn 
aus dem dieses Spiel 
gesponnen wurde. 

Und das nicht 
schlecht. 


Fly Spy ist auf jeden Fall eines der besten 
Budget Games die mir in letzter Zeit auf 
dem Tisch landeten. Wirklich empfeh¬ 
lenswert. 

(HS) 


werden. Ghost Hunters ist ein Jump and 
Run Spiel wie ich es schon lange nicht 
mehr gesehen habe. Wie bei Spielen die¬ 
ses Genres üblich wird das Szenario im 
Querschnitt dargestellt. 


BOTieiungs- Doku- Grafik Sound Prais/ 

freundlichkeit menlation LeiSlung 



ln jedem Raum, den der Spieler betritt, 
befindet sich außer den Wänden, Mö¬ 
beln, Monstern etc. noch ein Faden¬ 
kreuz. Wird nun der Feuerknopf ge¬ 
drückt, bleibt die Spielfigur stehen und 
der Spieler kann das Fadenkreuz steuern 
und damit auch schießen. 

Die Grafik von Ghost Hunters kann man 
durchaus als gelungen bezeichnen. Eine 
gelungene Titelmelodie und weitere Ge¬ 
räuscheffekte runden das ganze ab. Für 
zehn Mark viel Spiel fürs Geld. 

(HS) 


GHOST HUNTERS 


Hersteller: Code Masters 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: ca. 10, — DM 





CPC 464 H CPC 664 tö CPC 6128 K 


Hunk Studbuckles Bruder ist verschwun¬ 
den. Professor Zwielicht, der Besitzer 
von Nightmaremansion hatte ihn ange¬ 
heuert. Cunk Studbuckle sollte, für viel 
Geld nätürlich, den verfluchten Landsitz 
des Professors von all den Geistern, 
Ghoulen, Zombies und Dämonen die 
darin hausen säubern. Reingegangen ist 
er, aber nicht mehr heraus. 

Cunk sitzt aller Wahrscheinlichkeit nach 
irgendwo gefangen in dem riesigen 
Landhaus. Der Bruderliebe willen macht 
sich nun Hunk auf, um seinen Bruder aus 
den Klauen der bösen Geister zu befrei¬ 
en. Ausgerüstet mit einem supermoder¬ 
nen Antimaterie Phantom Zerbröseler, 
der einzigen bekannten Waffe gegen die 
Wesen des Bösen. 

Code Masters ist ein verhältnismäßig 
neues Budget Label und Ghosthunters ist 
eines der ersten Spiele dieser Company. 
In Anbetracht der Qualität von Ghost¬ 
hunters glaube ich allerdings, daß wir in 
Zukunft noch öfters von ihnen hören 


Der Spieler beginnt seine Suche im Erd¬ 
geschoß des Landhauses. Nun muß er 
Ausschau nach magischen Gegenständen 
halten und diese einsammeln. 

Dadurch werden Lifte in Gang gesetzt 
über die dann höherliegende Stockwer¬ 
ke erreicht werden können. Jedoch muß 
der Spieler immer sein Terrormeter im 
Auge behalten. Denn in jedem Raum er¬ 
scheinen nach und nach immer neue Un¬ 
geheuer und allein deren Anwesenheit 
schwächt die Spielfigur. Hier kommt nun 
der Super Phantom Zerbröseler zum 
Einsatz. 

Die Steuerung dieser Waffe funktioniert 
etwas eigenwillig. 


PULSATOR 

Hersteller: Martech 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 36, - DM 

CPC 464 Kl CPC 664 K CPC 6128 K 

Tief im Inneren Ihres CPC leben, nein, 
nicht die kleinen Computerleutchen, dort 
leben die Pulsatoren. Was diese kleinen 
kugelrunden Wesen dort treiben, weiß so 
recht keiner. Einwandfrei erwiesen ist al¬ 
lerdings, daß es gute und böse Pulsato¬ 
ren gibt. Die braven Pulsatoren wollen 


Inmitten eines schier 
endlosen Labyrithes 
sitz der Pulsator. Sei¬ 
ne Aufgabe ist es eini¬ 
ge gefangene Artge¬ 
nossen zu befreien. 
Das es da auch noch 
einige Fieslinge gibt 
die dies verhindern 
wollen ist wohl selbst¬ 
verständlich. 
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UND 



PLÖTZLICH 
HAT DER 
SCHNEIDER 
JOYCE 
MEHR 
SPEICHER- 
KAPAZITÄT 




Reichen Ihnen 
ca. 90 DIN A4-Seiten 
Speicherkapazität ? 

Wenn dies für Ihre Textverarbeitung auf Dauer zu 
wenig ist, empfehlen wir folgendes: 

Rüsten Sie Ihren Schneider Joyce mit unserem Fest¬ 
plattensystem WD 2000 auf. Dann haben Sie einen 
Speicher für ca, 10.000 DIN A4-Seiten (20 MB) und 
können den Joyce professioneller nutzen. 

Übrigens: Die vortex-Festplatte WD 2000 mit 20 MB 
Speicherkapazität paßt auch zu allen anderen Schneider 
CPC-Computern. 

Der Infoscheck bringt weitere Informationen! 


I PCI 6/87 

l-N-F-O-S-GH-E-C-K 

Bitte schicken Sie mir umgehend Unterlagen für die 
i vortex-Festplatte WD 2000 für den Schneider Joyce, 


*» vorfex 

COMPUTE ns VS T EME 

... UND PLÖTZLICH LEISTET IHR COMPUTER MEHR 


vortex Computersysteme GmbH 

Falterstraße 51-53 • 7101 Flein • Telefon (071 31) 5 2061 
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niemandem etwas Böses und könnten ei¬ 
gentlich in Ruhe und Frieden ihr Dasein 
fristen, wenn da nicht die bösen Pulsies 
wären. Deren erklärtes Ziel ist es, alle 
guten Pulsatoren einzufangen, sie einzu¬ 
sperren und danach den Schlüssel weg¬ 
zuwerfen. 

Das üble Unterfangen der Finsterlinge ist 
zu Beginn des Spiels auch schon weit ge¬ 
diehen. Fast alle der braven Pulsies wur¬ 
den schon eingefangen und in ihre Ge¬ 
fängnisse geworfen. Nur einer rollt noch 
in Freiheit durch Ihren Rechner und 
wenn Sie wollen können Sie ihm helfen, 
seine Kumpane zu befreien. 

Pulsator ist eines der neuesten Spiele die 
sich der bekannten und sehr beliebten 
Labyrinth Thematik annimmt. Wie Sie 
der Vorgeschichte unschwer entnehmen 
konnten, geht es im Wesentlichen um die 
Befreiung der gefangenen Pulsatoren. 
Doch dies ist nicht gerade einfach, denn 
jedes Gefängnis ist verschlossen. Überall 
im Labyrinth verteilt finden sich immer 
wieder rechteckige Felder die durch 
Zahlen gekennzeichnet sind. Man 
braucht nun nur den Pulsator über dieses 
Feld zu lenken und das Schloß mit der 
gleichen Nummer öffnet sich. Rollen Sie 
ein zweites mal darüber, schließt sich das 
Tor wieder. Aber damit haben Sie Ihre 
gefangenen Kumpane immer noch nicht 
befreit. 

Sie öffneten sich so lediglich den Zugang 
zu bisher verschlossenen Bereichen des 
Labyrinthes. Aber vielleicht befindet 
sich ja dort einer der Schlüssel die einem 
gefangenen Pulsie die Freiheit schenken. 
Die oberen zwei Drittel des Monitors ge¬ 
hören bei Pulsator dem Actionfenster. 
Dort können Sie Ihrem Pulsator dabei 
Zusehen wie er durch das Labyrinth rollt 
und welche Widersacher als nächstes zu 
überwältigen sind. 


SpiofcOao Bedienung- Doku- Grafik Sour>c Preis/ 

freund lief) keif menlalion Leistung 



Übrigens scrollt der Bildschirm nicht, 
sondern blendet sich rasant die jeweils 
folgende Szene ein. Im unteren Drittel 
des Monitors findet sich eine Statusan¬ 
zeige auf der der Spieler ablesen kann, 
welche Schlösser er gerade offen hat und 


wieviele der gefangenen Pulsatoren 
schon wieder in Freiheit sind. 

Grafisch gesehen ist Pulsator nicht gera¬ 
de ein Meilenstein und auch der Sound 
reißt einen nicht gerade vom Hocker. 
Beides ist eher durchschnittlich. Über¬ 
zeugt hat mich das eigentliche Spielen. 
Ein sehr ausgeprägtes Abenteuerelement 
mit einigen Actioneinlagen. Den klassi¬ 
schen Labyrinthexperten wird Pulsator 
ganz gewiß gut gefallen. 

(HS) 


FEUD 

Hersteller: Bulldog 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 10,— DM 

CPC 464 K CPC 664 Kl CPC 6128 K 

Mittelalterliche Szenarien und Zauberer 
sind zwei Ingredenzien die Autoren und 
Programmierer nicht in Ruhe lassen. He¬ 
xer und Magier lieferten sich schon in di¬ 
versen Spielen gefahrvolle Kämpfe. 

Feud ist ebenfalls ein Spiel, das Sie als 
Spieler mitten in ein solches Magieduell 
hineinversetzt. Feud bedeutet, wörtlich 
übersetzt, Fehde und um eine solche geht 
es dann auch. 

Irgendwann im frühen Mittelalter gab es 
nämlich zwei Zauberer und die konnten 
einander nicht riechen. Wo immer sie 
sich auch begegneten gab es dicke Luft. 


In einem fort sammelten sie Zutaten für 
immer mächtigere und teuflischere Zau¬ 
bersprüche. 

Sie als Spieler übernehmen die Rolle von 
Learic, Ihr Widersacher ist der Hexer 
Leanoric. Bei Beginn des Spieles kann 
keiner der beiden zaubern, zuerst müs¬ 
sen sie die benötigten Zutaten finden. 

Also, wandern Sie durch das Land auf 
der Suche nach allerlei Kräutern, Tieren 
und sonstigen Zauberdingen. 

Auf dem Monitor sehen Sie zum einen 
einen Ausblick auf den Ort an dem Sie 
sich gerade befinden, andererseits ein 
Zauberbuch, zwei Zauberer und eine 
Windrose. In dem Zauberbuch stehen die 
einzelnen Sprüche und die dafür benötig¬ 
ten Zutaten. 

Die beiden Zauberer symbolisieren den 
Zustand in dem sich die beiden Gegner 
befinden. Je kritischer dieser wird, de¬ 
sto mehr sinkt die betreffende Figur in 
sich zusammen, bis schlußendlich nur 
noch ein Grabstein übrigbleibt. 

Haben Sie nun genug Zutaten für einen 
Zauberspruch gesammelt, müssen Sie zu 
Ihrer Hütte zurückkehren. 

Im großen Kessel vor der Hütte können 
Sie nun Ihren Zauber zusammenbrauen. 
Wenn Sie das erledigt haben, dann 
kommt die Windrose mit ins Spiel. 


Sp«lld«e Bedienungs- Doku- Grafik Sound Preis/ 
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Zwei verfeindete Ma¬ 
gier liefern sich in die¬ 
sem Spiel ein Zauber- 
duell. Wer hier nun 
Sieger bleibt, das 
hängt davon ab wer 
zuerst die Zutaten für 
den mächtigsten Zau¬ 
ber zusammenhat. 
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Gewaltige Kampfina¬ 
schinen mäßen in die¬ 
sem Spiel zusammen¬ 
gebaut und gegen fin¬ 
stere Invasoren ins 
Feld geschickt wer¬ 
den. Bei diesem Spiel 
ist weniger Action 
denn Strategie ange¬ 
sagt. 


Wie bereits erwähnt, ist das Ziel des 
Spieles die Vernichtung Leanorics. Um 
das mittels der Zaubersprüche zu be¬ 
werkstelligen müssen Sie Leanoric na¬ 
türlich erst einmal finden. 

Die Windrose gibt Ihnen nun Auskunft 
darüber wo Sie Leanoric finden. 

Feud ist ein erfreulicher Vertreter des 
Arcaden Ad venture Genres. 

Gute Grafik und ein höhrens werter 
Sound gestalten das Spiel fesselnd und 
unterhaltsam. Hier erhält man wirklich 
unerhört viel Spiel fürs Geld. 

(HS) 

NETHER EARTH 

Hersteller: Argus Press 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: ca. 30, - DM 

CPC 464 K CPC 664 Kl CPC 6128 K 

Diesmal sind es nicht Invasoren aus den 
Tiefen des Universums, die die Mensch¬ 
heit bedrohen, nein, aus dem Inneren der 
Erde kommen sie. Bewaffnet bis an die 
Zähne und mit einer unvorstellbaren Su¬ 
pertechnologie ausgerüstet, brechen sie 
hervor und binnen kurzer Zeit haben sie 
ein Schreckensregime aufgebaut und alle 
Menschen versklavt. 

Doch wer so Böses im Schilde führt, hat 
meist die Rechnung ohne den Wirt ge¬ 
macht. Denn so einfach lassen sich die 
Menschen nicht versklaven und schon 


bald haben sich die ersten Widerstands¬ 
gruppen gebildet. Der Kampf gegen den 
garstigen Agressor kann beginnen. 

Einem der Widerständler ist es gelungen 
einen der riesigen Kampfroboter der In¬ 
vasoren unter seine Kontrolle zu bekom¬ 
men. Ausgerechnet Sie übernehmen nun 
diese Rolle. Obwohl der gestohlene Ro¬ 
boter über eine immense Feuerkraft ver¬ 
fügt, wäre ein offener Kampf Selbst¬ 
mord. 

Die einzige Chance die Herrschaft der 
Fremden zu brechen, besteht darin, eine 
ganze Roboter-Streitmacht zusammen¬ 
zustellen und sie für die Sache des Guten 
ins Feld zu führen. Nur benötigt man 
dazu eine Menge Material und Maschi¬ 
nen. Nether Earth ist irgendwo in der 
Mitte von Action und Strategie angesie¬ 
delt. 

Der Spieler steuert eine von den Rebel¬ 
len eroberte Kommandokapsel. Mit die¬ 
sem Vehikel muß der Spieler gleich von 
Anfang an versuchen, die überall heram- 
stehenden Fabriken der Invasoren zu 
übernehmen. 

Diese Fabriken produzieren die einzel¬ 
nen Bestandteile aus denen die riesigen 
Kampfroboter gefertigt werden. Dockt 
der Spieler mit seinem Kommandofahr¬ 
zeug an einer solchen Fabrik an, gehen 
fortan alle Lieferungen nicht mehr an die 
Fabriken der Bösewichter, sondern an 
eine von den Menschen besetzte. 

Die dort gebauten Roboter stehen im 
Dienste der Menschen und können vom 
Spieler instruiert werden. Je mehr geg¬ 
nerische Fabriken umgepolt werden, de¬ 
sto schneller fließt der Nachschub. 


Aber die Fieslinge des Spiels schlafen 
nicht und schicken ihrerseits Roboter 
aus, um der Rebellion ein Ende zu be¬ 
reiten. 

Wenn diese Roboter nun Ihrerseits an ei¬ 
ner Fabrik andocken die unter ihrem 
Kommando steht, werden ab da alle pro¬ 
duzierten Teile wieder zu den Fabriken 
der Invasoren geschickt. 

Die Roboter selbst sind eine Sache für 
sich. Sie bestehen aus drei Teilen. Dem 
Fortbewegungsteil, der Energiequelle 
und der Bewaffnung. 

Der Spieler muß nun aus mehreren ver¬ 
schiedenen Möglichkeiten die Roboter 
zusammensetzen die seiner Meinung 
nach die besten Ergebnisse erzielen. Ist 
der Roboter fertig, kann er vom Spieler 
programmiert werden. 


SpiafidM ßBdiönungs- Dckj- Grafik Sound Preis/ 

freunalichkeil mentation Leistung 



Die Aufgabe, die dem Spieler in diesem 
Spiel gestellt wird ist schwierig und man 
muß schon einiges an strategischem Ge¬ 
schick beweisen um auf einen grünen 
Zweig zu kommen. 

Grafisch zeigt sich das Spiel im bekann¬ 
ten 3-D Outfit. Soundmäßig ist außer ei¬ 
ner Titelmelodie und einigen Explo¬ 
sionsgeräuschen nicht viel los. 

Srategen die ausnahmsweise mal nicht ir- 
genwelche historische Schlachten nach- 
spielen möchten, finden in Nether Earth 
sicherlich eine interessante Alternative. 

(HS) 


STRYFE 

Hersteller: ERE Informatique 

Vertrieb: Fachhandel 

Steuerung: Joystick/Tastatur 

Monitor: Farbe/Grün 

Preis: Kass. ca. 39,—/Disk. 49,- DM 

CPC 464 K CPC 664 K CPC 6128 K 

Morvelinh, der Meister mystischer 
Mächte und alles Bösen im Feenreich hat 
es geschafft. Seine größten Widersacher, 
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Da hat sich Mastertro- 
nic ja wieder ein fei¬ 
nes Spielchen ausge¬ 
dacht. Rasterscan ver¬ 
setzt Sie in die Rolle 
eines kleinen Androi¬ 
den, der ein havarier¬ 
tes Raumschiff repa¬ 
rieren muß. 



die Gnome sind besiegt. In einer gewal¬ 
tigen Schlacht, in der mehr mit Magie, 
denn mit Waffen gefochten wurde, über¬ 
wand er die kundigen Gnomzauberer. 

Nun sitzt das Volk der Gnome, durch 
mächtige Zauber gefesselt, gefangen in 
den schwarzen Höhlen Morvelinh’s. 

Doch der Triumph des schwarzen He¬ 
xenmeisters ist nicht ungetrübt. Zwei 
mächtige Gnome sind ihm entkommen. 
Wlamir der Zauberer und Olaf der Krie¬ 
ger. Diese beiden machen sich nun auf, 
ihr Volk zu befreien und Rache zu üben. 

Als vor ca. einem Jahr das erste franzö¬ 
sische Spielprogramm in Deutschland 
auf den Markt kam, war man allerorts 
über die Qualität dieses Produktes er¬ 
staunt. Auch Stryfe ist, global betrach¬ 
tet überdurchschnittlich gut gelungen. 

Als Spieler übernehmen Sie die Rolle ei¬ 
nes der beiden Gnome. Spielen zwei 
Spieler zusammen, erscheinen beide 
Gnome und können von den Spielern 
gleichzeitig in einem Spiel benutzt wer¬ 
den. Eine zwei Spieler Option also, die 
in etwa der von Gauntlet entspricht. 

Das eigentliche Spiel kann ebenfalls mit 
Gauntlet verglichen werden. Das eigent¬ 
liche Spiel besteht aus mehreren aufein¬ 
anderfolgenden »Kapiteln« die eigentlich 
nichts anderes als Level darstellen. Jedes 
dieser Level besteht aus vier Räumen, 
die wiederum einen Abschnit auf dem 
Weg der Gnome zu Morvelinhs Höhlen 
darstellen. Um eines dieser Teilstücke zu 
verlassen, müssen zwei Schlüssel gefun¬ 
den werden. Ein silberner und ein gol¬ 
dener. 

Erst wenn der silberne Schlüssel gefun¬ 
den wurde, kann der goldene, mit dem 


sich die Tür zum nächsten Level öffnen 
läßt, aufgenommen werden. 

Aber außer den Schlüsseln liegen noch 
einige andere Gegenstände herum. Pro¬ 
viantsäcke die die Energie der Gnome er¬ 
gänzen, Elixiere, die alle Monster und 
die Tore aus denen sie erscheinen ver¬ 
nichten und Schatztruhen die Punkte 
bringen. 

Sp*lKX>« Bedienjngs- Doku- QraliK Sound Preis/ 
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Sehr gut hat uns an diesem Spiel der 
Sound gefallen. Nach dem Laden der 
Diskette erscheint ein feines Titelbild 
und dazu ertönt eine stimmungsvolle 


Melodie. Eine weitere Melodie beglei¬ 
tet das Spiel. Die Grafik ist zwar kein 
Meilenstein, ist aber sehr passend gestal¬ 
tet. Stryfe ist ein Spiel das weniger durch 
Superlative als durch gut gemachte Spiel¬ 
unterhaltung überzeugt. 

Mir hat es viel Spaß bereitet dieses Pro¬ 
gramm zu testen. 

(HS) 


RASTERSCAN 

Hersteller: Mastertronic 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: 10,- DM 

CPC 464 K CPC 664 Kj CPC 6128 Kl 

Mastertronic, einer der mächtigsten im 
Billigspielland, brachte in diesem Som¬ 
mer wieder eine ganze Reihe neuer Spie¬ 
le, auch für die CPC’s auf den Markt. 
Unter der Vielfalt dieser Neuerscheinun¬ 
gen sticht ein Programm deutlich hervor. 
Rasterscan. 

Hintergrund der Story ist ein havariertes 
Raumschiff das ohne Besatzung durch 
den Weltraum treibt. Nur ein kleiner An- 
droide der von gar nichts eine Ahnung 
hat befindet sich noch an Bord. 

Diesem Roboter fallt nun die schwieri¬ 
ge Aufgabe zu das Schiff zu reparieren 
und Sie sollen ihm dabei helfen. 
Rasterscan ist ein neuer Vertreter der all¬ 
seits beliebten Arcadenadventures, ob¬ 
wohl es hier doch mehr auf Köpfchen, 
denn auf einen guten Feuerfinger an¬ 
kommt. Eigentlich gibt es im ganzen 
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Auf den Spuren klassi¬ 
scher Arcaden-Adven- 
tures wandelt Stryfe. 
Als Spieler schlüpfen 
Sie in die Rolle eines 
Gnomes der versucht 
die Herrschaft eines 
finsteren Zauberers zu 
beenden. 
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Spiel nur eine einzige Stelle an der es auf 
Geschicklichkeit ankommt. 

Die Außenhülle des Schiffes wurde näm¬ 
lich von einem Asteroiden getroffen, der 
nach dem Aufprall ein Leck hinterließ. 

Durch dieses Loch entweicht nun unent¬ 
wegt Sauerstoff aus dem Schiff, wird der 
Androide vom Sog erfaßt, treibt er aus 
dem Schiff und das Spiel ist sozusagen 
gelaufen. 

Einige Zonen des Schiffes, natürlich 
wieder die, die unbedingt aufgesucht 
werden müssen, sind durch Sicherheit¬ 
store versperrt. 

Um durch sie hindurchzugelangen muß 
der Spieler zuerst einmal einen Farbco- 
de eingeben. 

Dazu muß der Spieler seinen Robbie am 
Terminal, das übrigens wie ein Maul¬ 
schlüssel aussieht, andocken. Ist das be¬ 
werkstelligt, blendet sich ein anderer 
Screen mit einem Achteck ein. 

Dieses Achteck besteht wiederum aus 
acht verschiedenen Teilstücken, die, je¬ 
des für sich, farblich verändert werden 
können. 

Der Spieler muß nun diese Teile so ma¬ 
nipulieren, daß der ganze Ring in einer 
Farbe ist. Handelt es sich nun auch noch 
um die richtige Farbe, öffnet sich das 
Tor. 

Aber außer diesen Sicherheitstoren gibt 
es noch viele andere Terminals die nicht 
immer nur zum öffnen von Türen 
dienen. 


Bodanunge- Doku- Gra'ik Sound Preis/ 
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Rasterscan ist sicherlich kein leichtes 
Spiel und um es zu lösen wird sicherlich 
mehr als nur ein Abend vonnöten sein. 

Aber was hier an Grafik, Sound und 
Spielwitz geboten wird, fesselt Sie so¬ 
wieso länger als einen Abend an den 
Rechner. 


(HS) 


CHRONOS 

Hersteller: Mastertronic 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün if 7 =rk 
Preis: 10,-DM äjP 

CPC 464 E CPC 664 E CPC 6128 IX) 

Die Riege der überzeugten Retter des 
Universums, also der passionierten Bal¬ 
lerspieler, stellt einen nicht zu unter¬ 
schätzenden Prozentsatz der Software¬ 
konsumenten dar. 

Spiele wie Commando, Icari Warriors 
oder Who dares wins standen lange Zeit 
an den obersten Positionen der Softwa¬ 
recharts. 

In Anbetracht dessen, daß der Markt of¬ 
fensichtlich nach solchen Spielen dürstet, 
brachte nun auch Mastertronic ein Spiel 
heraus, das Shoot em’Up in Reinkultur 
auf den heimischen CPC Monitor bringt. 

Chronos ist ein Spiel, das keine langen 
Einleitungen oder Bedienungshinweise 
benötigt. Die Regeln sind einfach. Wenn 
es sich bewegt, schieß es ab, wenn es 
sich nicht bewegt, weich aus. Aber auch 
hier gibt es die klassische Ausnahme die 
die Regel bestätigt. 

Das wesentliche Ziel des Spiels ist es, ein 
Raumschiff durch sechs verschiedene 
Zonen hinurch bis zum Sanktuarium von 
Chronos zu steuern. 

Natürlich gibt es da viele Hindernisse. So 
kommen Ihrem Raumschiff immer wie¬ 


der fremde Schiffe und Objekte entge¬ 
gen, die entweder abgeschossen oder 
aber umflogen werden müssen. 

Lasertore versperren mitunter ein weite¬ 
res Vorankommen, aber auch hier hilft 
die gute alte »knall es ab« Methode. 

Spieiida» bSckiiiuiiQs- Doku- Graft« Sound Proi&f 

frauncllichkait men'ation Leislung 



Das Szenario in dem die ganze Geschich¬ 
te stattfindet besteht aus Tunnels, 
Strecken die durch den freien Raum füh¬ 
ren und Weltraumstädten die durchflo¬ 
gen werden müssen. 

Ab und an tauchen außer den Lasertoren 
scheinbar unüberwindliche Barrieren 
auf, die so aussehen, als seien sie aus 
sechseckigen Containern errichtet wor¬ 
den. An diesen Dingern führt wiederum 
nur ein Weg vorbei, abschießen. 

Chronos ist ein unterhaltsames Baller¬ 
spiel das vor einem grafisch fein aufbe¬ 
reiteten scrollenden Hintergrund spielt. 

Auf viele Farben und Sound muß der 
Spieler leider verzichten, aber dafür gibt 
es Ballerspiel in Reinkultur und das ist ja 
auch ab und an nicht schlecht, oder? 

(HS) 


Wer ballert, dem wird 
geballert werden. Ein 
Uraltthema fand nun 
endlich auch seinen 
Weg auf die CPC's. 
Scramble, eines der 
ältesten Ballerspiele 
überhaupt, erlebt un¬ 
ter dem Titel Chronos 
sein Debüt auf dem 
Amstrad. 
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Demnächst auf Ihrem Computer.... 

Ultimate läßt mal wieder was von sich 
hören. Nachdem es einige Zeit ruhig um 
die einstmals gefeierten Programmier¬ 
zauberer aus Birmingham geworden 
war, legen sie nun ihr neuestes Spiel vor. 

Nur leider haben die Jungs nichts dazu- 
gelemt. In der selben Machart wie 100 
andere 3-D Spiele gehalten, mag hier 
einfach keine Freude aufkommen. 


Mario Brothers 


ten die im Loch Ness niedergehen. Fort¬ 
an machen unheimliche Wesen die Ge¬ 
gend unsicher. Da wird es sogar Nessie 
zu bunt. 

Thing bounces Back 


Noch ein Oldtimer den es nun endlich auf 
dem CPC gibt. Übernehmen Sie die Rol¬ 
le von Mario und Luigi. Mario werden 
die meisten von Ihnen noch von Donkey 
Kong her kennen. Hier muß er nun, zu¬ 
sammen mit seinem Bruder Luigi, 
Schildkröten aus dem Panzer kicken und 
Krebsen die Scheren zusammenbinden. 
Mit zwei Spielern ein wahres Vergnü¬ 
gen. 

Head over Heels 


Das Ding mit der Sprungfeder ist wieder 
unterwegs und hat immer noch Ärger mit 
dem Spielzeugkobold. Nachdem es ihm 
im ersten Teil gelungen ist die Fabrik des 
Kobolds abzustellen, soll es nun alle Ma¬ 
schinen neu programmieren. Auch der 
zweite Teil von Thing on a Spring berei¬ 
tet viel Spielspaß. Und besser als der er¬ 
ste Teil ist es noch obendrein. 


Thanatos 





Zwar ist auch Head over Heels ein 3-D 
Spiel, im klassischen Sinne, jedoch eine 
Meisterleistung. Das Team das bereits 
mit Batman bewies was es auf dem Ka¬ 
sten hat, verblüfft durch Sound Grafik 
und Spielgeschehen. Ein Spiel das es 
wahrscheinlich auch auf dem Joyce ge¬ 
ben wird. 

Terror of the Deep 

Nach Eidolon versucht nun T.o.t.D. 
beim geneigten Computerspieler so et¬ 
was wie ein Jules Vemefeeling zu verur¬ 
sachen. Es geht um seltsame Mertori- 


In diesem Spiel übernehmen Sie die Rol¬ 
le eines Drachen, der mit den bösen 
Mächten seiner Heimatwelt in Fehde 
liegt. Grafisch gelungen aufbereitet, ent¬ 
fuhrt Sie dieses Spiel in eine märchenhaf¬ 
te Welt in der es noch Hexen, Magier 
und gewaltige Ungeheuer gibt. (HS) 





Nemesis the Warlock 


Nicht nur Filme werden gerne zu 
Computerspielen umgearbeitet. In letz¬ 
ter Zeit greift dieser Trend auch auf das 
Comic Genre über. Martech hat eine der 
bekanntesten Comicfiguren Englands zu 
einem Telespielhelden umfunktioniert. 
Nemesis the Warlock muß das Böse 
schlechthin bekämpfen. Die vier Gesich¬ 
ter Torquemadas. Das Spiel ist zwar sehr 
blutrünstig läßt sich dafür aber ausge¬ 
zeichnet spielen. 

Crystal Castles 



Bamey Bear treibt nun endlich auch auf 
dem CPC sein Unwesen. Er muß die 
Diamanten der Hexe Berthilda stehlen. 
Da diese allerdings bewacht werden, ist 
das keine leichte Aufgabe. Crystal Cast¬ 
les ist ein 3-D Spiel das sich vom Spiel¬ 
geschehen sehr von anderen 3-D Produk¬ 
tionen unterscheidet. Leider ist die CPC 
Version ein wenig dürftig geraten. 



Martianoids 
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Wir Computern 

doch alle 
in einem Boot... 



So etwas gab es noch nicht: ein spannen¬ 
der Computerausflug für Zehntausende 
von Anwendern. Warum nicht? Ganz 
einfach. Voraussetzung hierfür war, daß 
viele Menschen mit dem gleichen Sy¬ 
stem arbeiten, also mit der gleichen Hard¬ 
ware und der gleichen Software. Und 
Schneiders Joyce ist nun mal das erste 
Komplettsystem für den privaten Texter 
auf dem deutschen Markt. 

Bestellen Sie sich jetzt ein kompetentes 
Routenbuch plus Datenträger bei einem 
erfahrenen Reisebüro: „Praktische Text¬ 
verarbeitung mit Joyce" vom DMV- 
Verlag. Und dann: Joyce Ahoi! 


Aus dem Inhalt 

□ LocoScript Spezial - Softwaretraining für Fortgeschrittene •. 
o Fehler im System: Wie rette ich meinen Text? 

o Joyce-Tasteninstallationsdatei für das Programm Wordstar 

□ Aleatorische Poetik: Der Computer dichtet 

□ Auf Diskette: über 50 Dateien mit Schablonen, Briefen, 
Postkarten, Serien-Rundschreiben, Formularen, Etiketten, 
Druckbeispiele, Schriften, Bildschirm-Installationen u. v. m. 

Leinen-Hardcover, 207 Seiten, 3"-Diskette 
89 - DM (unverbindliche Preisempfehlung) 

Zu Beziehen über den Computerfachhandel, den guten Fach¬ 
buchhandel oder direkt beim Verlag. 

Händleranfragen erwünscht. 

Ein DMV-Buch+3'-Diskette! 


DMV-Verlag, Postfach 250, 3440 Eschwege 
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aufdemCPC Feige 2 

In dieser Folge möchte ich Ihnen, wie versprochen, 
meinen SPS-Editor vorstellen. Damit Sie mit dem Editor 
auch gleich arbeiten können, ist zusätzlich noch ein ein¬ 
faches Test-Programm in diesem Heft enthalten. 



N 
HOP 


L Laden 
U UN» 

0 ODER 
XO EX-ODER 
N NICHT 
S Setzen 
R Ruecksz. 
NOP Null opr. 
Zuueisg. 
Prg-Ende 
eschen 
ch. 
nf. 

E Eingang 
A Ausgang 

9 asifsT: 



Der Editor, das Testprogramm und auch 
die später folgenden Programme be¬ 
schreiben den Bildschirm in MODE 1. 
Die 40-Zeichendarstellung ist bewußt 
gewählt, damit bei Parallelanschluß ei¬ 
nes Fernsehers auch aus größerer Entfer¬ 
nung das Bild noch lesbar ist. 

Doch bevor ich genauer auf den Editor 
eingehe, erst einmal die Lösungen der 
»Hausaufgabe« aus der 1. Folge. 


Aufgabe 1 

0L E00 

Aufgabe 3 
0L E00 

1 U E01 

1 O A00 

2 UN A01 

2 UN E01 

3 = A00 

3 = A00 

4 PE 

4 PE 

Aufgabe 2 

0L E00 

Aufgabe 4 
0L E03 

1 ON M00 

1 U E02 

2 0 E01 

2 0 M00 

3 = A01 

3 = A01 

4 PE 

4 PE 


Eingabe und 
Abspeichern des Editors 


Bei der Eingabe des Quelltextes des Edi¬ 
tors ist darauf zu achten, daß die Zeilen- 
nummem korrekt übernommen werden. 
Der Editor beginnt bei der Zeilennum¬ 
mer 5000 und darf nicht mit dem RE- 
NUM-Befehl verändert werden. Nach 
der Eingabe in den Rechner muß der Edi¬ 
tor mit 

SAVE " SPS-EDIT. ASC", A 

abgespeichert werden. Durch das ange¬ 
hängte »A« wird der Editor als ASCII- 
File auf die Diskette bzw. Kassette ge¬ 
schrieben. Dies ist notwendig, da der 
Editor von den weiteren Programmen, 


die im Laufe dieser Serie vorgestellt wer¬ 
den, mit dem Befehl 

CHAIN MERGE "SPS-EDIT.ASC" 

in den Programmspeicher nachgeladen 
wird. Es würde sonst der wohl bekann¬ 
te EOF-Fehler auftreten. Die Zeilen- 
nummem dürfen nicht verändert wer¬ 
den, da sich sonst die einzelnen Ein¬ 
sprünge verschieben. 


Zum Programm des Editors 


Der Editor ist vollständig in Basic ge¬ 
schrieben. Um bei der Eingabe und Än¬ 
derung der SPS-Anweisungslisten kei¬ 
nen Stringmüll zu verursachen, habe ich 
konsequent mit dem MID$-Befehl gear¬ 
beitet. Wer schon einmal däumchendre¬ 
hend vor seinem Rechner gesessen hat, 
weil der sich gerade für eine Garbage 
Collection fünf Minuten lang in die Tie¬ 
fen seines Ramspeichers vergraben hat, 
wird dies zu schätzen wissen. 

Eine kleine Einschränkung muß ich ma¬ 
chen. Beim Ausdruck der Anweisungs¬ 
liste kann eine Überschrift erzeugt wer¬ 
den. Dies ist die einzige Stelle, die 
Stringmüll erzeugt. Da jedoch ein paar 
»Kilo« freier Speicherplatz vorhanden 
sind, können sehr viele Ausdrucke ohne 
Speicherreorganisation ausgeführt 
werden. 

Mit dem Editor können SPS-Anwei¬ 
sungslisten abgespeichert und wieder 
eingelesen werden. Wie aber ASCII-Fi- 
les einiesen, ohne Stringmüll zu erzeu¬ 
gen? Zuerst habe ich mit der Umwand¬ 
lung in Zahlen gearbeitet. Dieses Ver¬ 
fahren kostet aber beim Einlesen und 
beim Speichern viel Zeit, und Zeit soll¬ 
te ja gerade gespart werden. Außerdem 


belegen derart abgelegte SPS-Listen viel 
Platz auf der Diskette/Kassette. 

Die Lösung: Abspeicherung der Listen 
als Binär-Programm. Hierfür müssen die 
einzelnen Texte aber in Folge im Spei¬ 
cher abgelegt sein. In den ersten Zeilen 
(bis einschl. 1040) des Programms SPS- 
TEST.BAS werden die Plätze im Spei¬ 
cher festgelegt. Hier dürfen also auch 
keine Änderungen vorgenommen wer¬ 
den. Die Schleife »FOR 1=255 to 0 
STEP -1:...«in Zeile 1030 ist kein Ver¬ 
sehen, sondern für die richtige Reihen¬ 
folge notwendig. 

Die eingegebene SPS-Anweisungsliste 
wird vom Editor in eine Maschinen¬ 
routine übersetzt. Dieses Maschinenpro¬ 
gramm wird ab der Adresse 39000 abge¬ 
legt (Variable xmadr). 

Die Werte der Eingänge, Ausgänge, 
Merker und Zeitglieder liegen im Be¬ 
reich von 41300 bis 41799. Ab 41800 
bleibt der Ramspeicher unbenutzt. Ein¬ 
geklinkte Roms, z.B. Vortex BOS 2.0, 
stören also nicht. 


Anwendung des Editors 


Um mit dem Editor arbeiten zu können, 
benötigt man ein Programm, das die ein¬ 
zelnen Routinen des Editors aufruft. 
Hierzu dient das Programm SPS- 
TEST.BAS. Es lädt den Editor nach und 
startet eine einfache SPS-Simulation. 
Über die Taste »E« gelangt man in den 
Editor. 

Nach Eingabe der SPS-Anweisungsliste 
wird der Editor mit ESC verlassen. Er 
erzeugt dann die Maschinenroutine für 
die SPS-Simulation, die nach Erscheinen 
des Eingangsbildes von SPS-TEST.BAS 
sofort getestet werden kann. 
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Eingabe der Anweisungsliste 

Unten links auf dem Bildschirm ist die 
Eingabezeilc. Zur Übernahme dieser 
Zeile auf ENTER drücken. 

Falls die Eingabezeile keine vollständi¬ 
ge SPS-An Weisung enthält, erfolgt kei¬ 
ne Übernahme. Bei Benutzung der Pfeil¬ 
tasten »auf« und »ab« wird die Eingabe¬ 
zeile nicht übernommen. 

An den Positionen des Cursors werden 
nur die erlaubten Eingaben (siehe rech¬ 
tes Hilfsmenü auf dem Bildschirm) an¬ 
genommen. Es ist also nicht möglich, 


eine von der Syntax falsche SPS-Anwei- 
sung einzugeben. Jede Anweisung kann 
mit einer kurzen (max. 13 Zeichen) Be¬ 
merkung ergänzt werden. 

' Neue, noch nicht bekannte Befehle (z.B. 
»S« o. »R«) werden in späteren Folgen 
ausführlich erläutert. 

Es können jeweils 100 (0...99) Eingän¬ 
ge, Ausgänge, Merker und Zeitglieder 
mit dem Editor verwendet werden. Das 
Programm SPS-TEST.BAS unterstützt 
jedoch nur zehn (0.. .9) Eingänge, Aus¬ 
gänge, Merker und keine Zeitglieder. 
Ausgänge und Merker können jedoch 


alle verwendet werden; sie werden halt 
nur nicht angezeigt. 

Die Zeitglieder sind ohne Unterstützung 
vom Basicprogramm wirkungslos (hier¬ 
zu mehr in späteren Folgen). 

Zum Ändern kann man die SPS-Anwei- 
sungen mit den Pfeiltasten »auf« und »ab« 
erreichen. Ein direkter Weg über die 
Nummer der Anweisung ist auch mög¬ 
lich. Hierfür geht man mit der Pfeiltaste 
»links« ganz nach links oder tippt, wenn 
der Cursor auf dem ersten Zeichen der 
Eingabezeile steht, die Zeilennummer 
sofort ein. 

Falls Anweisungszeilen mitten in einer 
Anweisungsliste fehlen oder überflüssig 
sind, so können Korrekturen mit ZE oder 
ZL vorgenommen werden. Hierfür muß 
der Cursor auf dem ersten Zeichen der 
Eingabezeile stehen. 

Bei ZE fügt der Editor eine NOP-Zeile 
ein, die dann überschrieben werden 
kann. 

Zur Übung empfehle ich, die vorhande¬ 
nen Beispiele noch einmal durchzutesten 
und auchabzuspeichem. Zusätzlich sind 
in Bild 1 zwei weitere Aufgaben enthal¬ 
ten; die Lösung dann im nächsten Heft. 


Speichern/Lesen 
der Anweisungsliste 

Mit Eingabe von »S« aus dem Eingangs¬ 
bild von SPS-TEST.BAS kann die, mit 
dem Editor erzeugte Anweisungsliste auf 
Diskette oder Kassette geschrieben wer¬ 
den. Hierfür muß der Anwender noch 
eine Nummer angeben, unter der die Li¬ 
ste später wieder eingelesen werden 
kann. 

Mit Eingabe von »L« und der entspre¬ 
chenden Nummer kann ein abgespei¬ 
chertes Programm wieder eingelesen 
werden. 


Vorausblick 


In der Folge 3 stelle ich Ihnen die Simu¬ 
lation einer Wendeschaltung vor. Hier¬ 
bei werden, vorausgesetzt die SPS-An- 
weisungsliste ist richtig eingegeben, 
Kontakte im Kontaktplan auf dem Bild¬ 
schirm in ihrer aktuellen Lage ge¬ 
zeichnet. 

Bitte seien Sie nicht böse, daß das Listing 
des Editors so lang ist. Komfort kostet 
eben Programmlänge. 

(Werner Renziehausen) 
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1000 ’ Teatprogramm - SPS, (C) W. Renzieh 
ausen V.05.87 {2077 Bytes) 

1010 * 

1020 DEFINT a-h,k-r,t:xmadr=39000:MEMORY x 
madr-1:OPENOUT"d":MEMORY HIMEM-ltCLOSEOUT: 
MODE 1:LOCATE 11,11:PRINT"Editor wird gela 
den" :LOCATE 13,15: PRINT"Bitte warten 
CHAIN MERGE "sps-edit.asc",1030 
1030 xeO0=41300 :xaO0*41400:xm00-41500:xt00 
a*41600 :xt00e=41700:PORE xntadr,&C9 :DIM bef 
$(255),opk$(255),opp$(255),bem$<255):FOR i 
=255 TO 0 STEP -1:bem$(i)=SPACE$(13):opp$( 
i) -SPACES (2) :opk$ (i) -SPACES (1)“: bef $ (i) -SPA 
CE$ {3) :NEXT: laenge $=SPACE$ < 1)..: xen=0: xan=0 
1040 xresadr-xe00-50:xmadres=xe00-49 
1050 rhb-INT(xresadr/256):rlb=xresadr-256* 
rhb:POKE xresadr,0 

1060 bef$=" ":opk$=" ":opp$=" ":bem$=SP 
ACES(13) ta$=" ":b$=" ":c$=" " :nr$="000'':da 
ten$="SPS-test.dat" 

1070 BORDER 0:CLS 

1080 KEY DEF 70,0,0:m$=CHR${143) 

1090 POKE &B4E8,255:POKE 4B4E7,0 
1100 INK 1,24tINK 0,1:PEN 1:PAPER OtMODE 1 
:INK 2,13 
1110 ’ 

1120 ‘Maske 
1130 ■ 

1140 PRINT CHR$(150)STRINGS(18,154)CHR$(15 
8)STRINGS(19,154)CHR$(156); 

1150 PRINT CHR$(149)" SPS - SIMULATION "CH 
R$(149)" E";:PEN 2:PRINT"dit ";:PEN 1:P 
RINT^D";:PEN 2:PRINT“rucken ";:PEN 1:PRI 
NT CHR$(149); 

1160 PRINT CKR$(149);:PEN 2;PRINT" (ESC=Ab 
bruch) "j:PEN 1:PRINT CHR$(149) n L";:PE 
N 2:PRINT"esen ";;PEN 1:PRINT"SPEN 2: 

PRINT"peichern ";:PEN 1:PRINT CHR$(149); 
1170 PRINT CHR$(151)STRINGS(18,154)CHRS(15 
5)STRINGS(19,154)CHR$(157); 

1180 FOR i=5 TO 24:LOCATE l,i:PRINT CHRS(1 
49):LOCATE 40,i:PRINT CHRS(149);:NEXT 
1190 PRINT CHR$(147)STRINGS(38,154)CHRS(15 
3) ; 

1200 TAG:PLOT 48,338,2:PRINT"Eingaenge 
Ausgaenge Merker";:TAGOFF 
1210 FOR i=Q TO 9 

1220 LOCATE 4,6+2*i:PRINT"E0"RIGHT$(STR$( 
i),1)" « ";:PEN e(i):PRINT m$:PEN 1 
1230 LOCATE 18,6+2*i:PRINT"A0"RIGHTS(STR$ 
(i),1)" =" 

1240 LOCATE 32,6+2*i:PRINT”M0"RIGHT$ (STR$ 

(i),1)" =" 

1250 NEXT 
1260 ’ 

1270 ‘Eingaenge 
1280 ’ 

1290 CALL &BB03 

1300 MID$(a$,1,1)="o":MID$(a$,1,1)-INKEYS: 
IF a$-CHRS(252) THEN MODE 2:PEN 1:PRINT"Wa 
rinstart mit GOTO 1100" :END 
1310 IF a$="o" THEN 1390 ELSE PEN 1 
1320 IF a$="D" THEN GOSUB 7980:GOTO 1100 
1330 IF a$="S" THEN GOSUB 7700:GOTO 1100 
1340 IF a$="E" THEN GOSUB 5000:GOTO 1100 
1350 IF a$="L" THEN GOSUB 7820:GOTO 1100 
1360 a-VAL(aS):e(a)-ABS(e(a)-1):POKE xe00+ 
a,e(a) 

1370 LOCATE 10,6+2*a:PEN e(a):PRINT m$ 

1380 • 

1390 CALL xmadr:’ SPS-Programm 
1400 ’ 

1410 ’Auswertung/Ausgaenge 
1420 ’ 

1430 FOR i=0 TO 9 

1440 LOCATE 24,6+2*i:PEN PEEK(xa00+i):PRI 
NT m$ 

1450 LOCATE 38,6+2*i:PEN PEEK(xm00+i):PRI 
NT m$ 

1460 NEXT 
1470 GOTO 1300 
1480 ‘ 


[4010] 

[117] 

[14373] 


[14331] 


[ 2120 ] 

[3949] 

[5275] 


[977] 

[1524] 

[1650] 

[2982] 

[117] 

[1033] 

[117] 

[3892] 

[8261] 


[12687] 


[3271] 

[2919] 

[1824] 

[5215] 

[492] 

[3745] 

[2784] 

[2993] 

[350] 

[117] 

[900] 

[117] 

[396] 

[8168] 


[1391] 

[2181] 

[1996] 

[2431] 

[2227] 

[1817] 

[1328] 

[117] 

[516] 

[117] 

[2597] 

[117] 

[492] 

[1826] 

[2083] 

[350] 

[438] 

[117] 


5000 ' Editor FuBr SPS 0.05.07 - CE) W. 
REN2IEHAUSEN C13559 Bytes) 

5010 ‘Nach der Eingabe: save"SPS-EDIT.ASC“ 
• a 

5050 ’ eingeben/aendern/ueberaetzen/apeieh 

ern/lesen/drucken 

5030 * 

5040 ’ flaskenaufbau 
5050 ‘ 

5050 MODE 1:INK 0,0:INK 1,13:INK 5,50:INK 
3,54:BORDER 10:PEN#1,3:PAPER#1,1:PEN#5,O:P 
APER#S,1:PEN#3,O:PAPER#3.1:PEN#4,O:PAPER#4 
,1:xa-1:SYMBOL 554,555,555,555,555,0,554,1 
30,0:SYMBOL 553,130,554,0,0,555,555,555,55 
5 

5070 PAPER 0:PEN 5:PRINT” Nr Bef Ope BemB 
rkung"SPCCB)"Hilfe "; 

5000 LOCATE 1,55:PRINT" Steuerung: "CHRSC 

543)” "CHRSC545)” "CHRSC540)" "CHRSC541 )” 

DEL ESC - EndB 

5090 PEN 0:PAPER 1:^OR i-5 TO 54 

5100 LOCATE 1, i:PRINT CHRSC133):LOCATE 57 

,i:PRINT CHRSCI33):LOCATE 40,i:PRINT CHR5C 

130); 

5110 NEXT 

5150 LOCATE 1,55:PRINT CHRSC13S)STRINGSCS5 
,131) 

5130 LOCATE 1,54:PRINT CHRSC141)STRINGSC55 
,140) 

5140 WIND0UJ#0,5,56,5,51: UIINDOUH»l ,5,50,53,5 
3: WI ND0U1#5,50,39,5,54: W IND0W#3,5,56,55,55: 
UI ND0UI#4,5,56,54,54 
5150 CLS#0:CLS#1:CLS#5 
5160 ’Hilfe 

5170 PRINT#5:PRINT#5,CHRSC54)” Befehle "CH 
RSC54):PRINT#5 

Laden 
UND 
ODER 
EX-ODER 
NICHT 
SBtzen 
Ruecksz. 


5100 PRINT#5,"L 
5190 PRINT#5,"U 
5500 PRINT#5,"0 
5510 PRINT#5,"X0 
5550 PRINT#S,"N 
5530 PRINT#5,"S 
5540 PRINT#5,”R 
5550 PRINT#5,"NOP Nullopr.” 

5560 PRINT#S,Zuueisg.” 

5570 PRINT#5,”PE Prg-Ende" 

5500 PRINT#S,"NEU Loeachen" 

5590 PRINT#5,"2L Zl-lsch.” 

5300 PRINT#5,"2E 21-einf.” 

5310 PRINT#S,CHRSC54)” Operanden "CHRSC54) 
:PRINTttS 

5350 PRINT#5,”£ Eingang 
5330 PRINT#S,*’A Ausgang 
5340 PRINT#S,"M Merker 
5350 PRINTttS,”T 2Bitglied”; 

5360 * 

5370 1 Eingabe 
53B0 * 

5390 zeile-0:CALL &BB03 
5400 anF-INTCzeile/50)*50:GOSUB 6670 
5410 PEN 3:GOSUB 5450:PEN 0:G0T0 5470 
5450 LOCATE 1,1+zeile MOD 50 
5430 LOCATE#1,1,1:FOR i-0 TO 1 
5440 PRINT#i,USING”###";zeile; 

5450 PRINT#i," "befSCzeile)" "opkSCzeileln 
ppSCzBile)” “bemSCzeila); 

5460 NEXT:RETURN 

5470 MIDSCbefS,1,3)-befSCzeile):MIDSCnpkS, 
l,l)-opk$CzeilB):MIDSCappS,l,5)-opp$CzBllB 
):MIDSCbemS,1,13)-bamSCzaile) 

5400 x-S:MIDSCaS.l.1)-"*":MIDSCbS.1.1)-”*” 


C46301 

C1676D 

C 30161 

C 1173 
C14312 
C 1173 
C135133 


C40103 

C67673 


C15B53 
C46973 


C3503 
C19593 

C53473 

C73553 


C6053 
C4B13 
C35463 

C14753 
C5693 
C6403 
C10553 
C3963 
tll3S3 
CS1043 
C13433 
C15303 
C54393 
CS1043 
C13B53 
C53463 
C55463 

C15003 
C0643 
C15153 
C15053 
C1173 
C9553 
C1173 
C14663 
C54793 
C15513 
CB353 
E17673 
CS3013 
C40093 

C9403 

C49753 


C19063 


5490 GOSUB 6900 C10453 

5500 MIDSCaS, 1,1 )•*"*” : MIDSCaS, 1,1)-INKEYS: CS7103 
IF aS-"*" THEN 5500 

5510 IF ASCtaS)<50 AND ASCCaS)>47 OR aS-CH C44763 
RSC545) THEN GOSUB 0130--. IF bS-CHR$C157) TH 
EN 5410 ELSE 5400 

5550 IF aS-CHRSC555) THEN 6630 C13003 

5530 IF aS-"-" THEN MIDSCaS,1,1)-»-” C1S643 

5540 IF aS-"L” OR aS-"U” OR aS-”0” OR aS-" C779B3 
S" OR aS-"R" OR aS-"-” THEN MIDSCbefS,1,3) 

-a$+" ":PRINT#l,a$;:x-x+l:GOSUB 6900:GOTO 
5930 

5550 IF aS-"X" THEN MIDSCbefS,1,3)-"XO ":P C51333 
RINT#l.aS"0”; :X-X+B: GOSUB 69B0:G0T0 5930 
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5560 IF aS-”P" AND zeile-endB THEN NIDSCbe C33163 
FS,1,3)-"PE ”:GOTO 6030 

5570 IF aS-"P" THEN 5880 C11923 

5580 IF a£-"N" THEN PRINT#1,a$;:x-x+1:BOSU C28213 
B 6880:GOTO 5680 

5580 IF a$-"Z" THEN PRINT#1,aSx-x+1:GOSU C26313 
B 6880:GOTO 5810 

5600 IF aS-CHRSC1273 THEN NiDSCbafS,1,3)-” CB1643 
NOP":NIDSCopkS,1,15-” ”:MIDSCappS 1 1,5)-’’ 
”:NID£CbemS,1,13)-SPACES C13 3:CLS#1:PRINT #1 
,USING"###”;zelle;:PRINT#1,” ”befS;:G0TD 6 
430 

5610 IF aS-CHRSC243) AND Cbef$-"N ” OR be C21163 
FS—”N0P”3 THEN 6430 

5620 IF aS-CHRSC243) AND bafSO” ” AND b C34B63 
efS<> ”PE '* AND beFSO "NDP" THEN 6050 
5630 IF aS-CHRSC240) AND zeila>0 THEN GOSU C32703 
B 5420:zalla-zaila-l:GOTO 5410 

5640 IF aS-CHRSC241) AND zallB<Bnda THEN G C45613 
OSUB 5420: zbIIb-zbüb+I :G0T0 5410 
5650 IF aS-CHRSC 13) AND CbeFSO” " AND o C23733 
ppSO" - AND opkSO " " DR baFS-”NDP” 0R b 
efS-”N ") THEN 6570 

5660 GOTO 5500 C3673 

5670 * C1173 

56B0 NIDSC bl,1,1)-“*":NIDSCbS,1,13-INKEYS: C3B273 
IF bS-"*" THEN 5680 

5680 IF bS-”0’‘ THEN NIDSCaS, 1, D-CHRSC127) C22243 
:GOTO 5600 

5700 IF bS-CHRS(133 DR bS-" ’’ THEN NIDSCbB C34243 
FS,l 1 3)-aS+" ” : GOTO 6030 

5710 IF bS-”E” THEN 5760 C6813 

5720 IF bS-CHRSC127) THEN NIDSCaS,1,l)-bS : CH4443 
GOTO 5600 

5730 IF bS-CHRSC2523 THEN 6630 C5913 

5740 GOTO 5680 C4273 

5750 ' C1173 

5760 CLS#1:PRINT#1,“Wirklich loeschen J/N C36163 
”;:X“0:GOSUB 6380 

5770 NIDSCbS,1,1)- H * M :NIDSCbS,1,13-INKEYS: C3BS73 
IF bS-”**’ THEN 5770 

5780 IF bS-”J” THEN CLS#1:x-0:GDSUB 6980:N C74343 
IDSCbafSCO),1,3)-" ”:NIDSCopkSCO),1,1)-" 

":NIDSCoppSCO) ,1,23“” :NIDSCbsmSCO) , 1,1 

3 3-SPACES C13):anda-0:CLS:GOTO 5380 
5780 IF bS-”N” THEN 5410 ELSE 5770 C11473 

5800 ' C1173 

5B10 NIDSCbS,1,13-"*":NIDSCbS,1,13-INKEYS: C40003 
IF bS-"*” THEN 5B10 

5820 IF bS-CHRSC1273 THEN 5720 C7913 

5830 IF bS-”L” AND anda>0 THEN GDSUB 6760: C31043 
GOTO 5410 

S840 IF bS-"E” AND anda<255 THEN GDSUB 688 C88473 
0:NiDSCbafSC zbüb) , 1,3)- ,, NQP , ’:NIDSCapkSCzB 
ila) , 1,13-" ”:NIDSCappSCzaila3,1,23-'* M :N 
IDSCbemSCzaila),1,133-SPACESC133:GDTD 5410 
5850 IF bS-CHRSC2523 THEN 6630 C5913 

5B60 GDTD 5810 C5353 

5870 * C1173 

5BB0 CLSttl: PRINT#1, USINB"###’'; zeile; : PRINT C56343 
#1,'' Wirklich PE - J/N”; :x-0:GDSUB 6980 

5880 NIDSCbS,1,13— 1 NIDSCbS, 1.13-INKEYS: C39B43 
IF bS-"*” THEN 5880 

5800 IF bS-”J” THEN ende-ZBile:NID$CbafS,1 C60563 
,33-"PE ”:CLS:anf-INTCzaile/203»20:GDSUB 6 
670:GDTD 6030 

5810 IF bS-"N” THEN 5410 ELSE 5880 C12743 

5820 * CI173 

5330 NIDSCbS,1,13-”*":NIDSCbS,1,13-INKEYS: C40003 

IF bS-"*" THEN 5830 

5940 IF bS-CHRSC2523 THEN 6630 C5913 

5850 IF bS-CHRSC1273 THEN 5720 C7813 

5960 IF bS-CHRSC 133 AND bafSO” ” AND np C36683 

pSO” ” AND opkSO” ” THEN 6570 
5870 IF bSO”N" THEN 6030 CB713 

5380 IF bS-"N” THEN PRINT#1,bS;:NiDSCbafS, C52333 
x-4,B-X)-”N ":NIDSCbS,1,1)-"•" : x-x+1:GDTD 
6030 

5890 GDTD 5830 C5353 

5000 ’ C1173 

6010 'Operand Kennzeichen aingaban C6B43 

6020 * C1173 

6030 PRINT#1,SPACESCS-x3;:IF bBf$-"N " TH C43443 

EN NIDSCopkS, 1,13-’’ ”:NIDSCoppS, 1,23-” 

PRINT#1.” ”;:GDTD 6430 


6040 IF baFS-"PE ’’ THEN NIDSCopkS, 1,13-” " 
: NIDSCoppS, 1,23-’' ”: NIDSCbamS, 1,133-SPACE 

SC 133:snde-zeile:BDTO 6570 
6050 x-9:NIDSCaS,1,1)-"»":GDSUB 6880:IF bS 
<>''*’• THEN IF ASCCbS)O0 THEN NIDSCaS, 1,13 
-bS:GOTO 6070 

6060 NIDSCaS,1,1)-”*“:NIDSCaS,1,13-INKEYS: 
IF aS-”*” THEN 6060 

6070 IF aS-"E" AND CLEFTSCbaFS,13-"S” DR L 
EFTSCbeFS,13•”R” DR LEFTSCbafS,13-”-”3 THE 
N 6060 

6080 IF a$-”E" OR a$-"A" OR aS-”N” OR a$-” 
T” THEN PRINT#l,aS;:NIDSCopkS,1,13-aS:GOTO 
6190 

6080 IF aS-CHRSC2403 AND zaile>0 DR aS-CHR 
SC2413 AND zeila<Bnda THEN 5630 
6100 IF aS-CHRSC1273 THEN 5600 
6110 IF aS-CHRSC2523 THEN 6630 
6120 IF a$-CHRSC2433 AND opkSO” " THEN 61 
80 

6130 IF aS-CHRSC2423 THEN S4B0 
6140 IF aS-CHRSC133 AND opk$<>” “ AND oppS 
<>” " THEN 6570 

6150 BDTO 6060 
6160 ’ 

6170 'Operand Parameter aingaban 
6180 ' 

6190 x-10:GDSUB 69B0 

6200 NIDSCaS,1,1 )-”*’’: NIDSCbS , 1,13-INKEYS: 
IF aS-"*" THEN 6200 

6210 IF aS-CHRSC133 AND NIDSCoppS,1,1)<>” 

” THEN 6570 

6220 IF aS-CHRSC1273 THEN 5600 
6230 IF aS-CHRSC2523 THEN 6630 
6240 IF aS-CHRSC2403 AND zaila>0 OR a$-CHR 
SC2413 AND zaile<enda THEN 5630 
6250 IF aS-CHRSC2433 AND NIDSCoppS, 1,13<>*' 
” THEN 6280 

6260 IF aS-CHRSC2423 THEN NIDSCbS,1,13-”**' 
:GDT0 6050 

6270 IF ASCCa$3<48 OR ASCCaS3>57 THEN 6200 
ELSE PRINT#1,aS:NIDSCoppS,1,13-aS 
62B0 x-11:GDSUB 6980 

6280 NIDSCbS, 1,1 )-”•’’: NIDSCbS, 1,13-INKEYS: 
IF bS-”*” THEN 6290 

6300 IF bS-CHRSC1273 THEN NIDSCaS,1,13-bS: 
GOTO 5600 

6310 IF bS-CHRSC1273 THEN 5720 

6320 IF bS-CHRSC2523 THEN 6630 

6330 IF bS-CHRSC2423 THEN 6190 

6340 IF bS-CHRSC2433 AND NIDSCoppS,2,13<>” 

” THEN 6430 

6350 IF b$-CHR$C240) AND zeila>0 DR bS-CHR 

SC2413 AND zailB<ende THEN NIDSCaS,1,13-b$ 
:GDTD 5630 

6360 IF bS-CHRSC133 AND NIDSCoppS,2,1)<>” 

" THEN 6570 

6370 IF bS-CHRSC133 AND NIDSCoppS,2,1)-" ” 
THEN NIDSCoppS,1,23- n O”+NIDSCoppS,1,13:GD 
TD 6570 

63B0 IF bS-CHRSC2433 AND NIDSCoppS,2,13-” 

” THEN NIDSCoppS,1,2)-”0”+NIDSCoppS,1,13:L 
0CATE#1,10,1:PRINT#1,oppS;:GDTD 6430 
6390 IF ASCCbS3<48 OR ASCCbS3>57 THEN 6280 
ELSE PRINT#1,bS:NIDS CoppS,2,13-bS 
6400 * 

6410 'Bemerkung aingaban 
6420 ' 

6430 FDR x-13 TO 25 
6440 GDSUB 6880 

6450 NIDSCaS, 1,13-*'o”: NIDSCaS, 1,13-INKEYS 
:IF aS-"o" THEN 6450 

6460 IF aS-CHRSC1273 THEN LDCATEtl,13,1:P 
RINT#1,SPACESC133;:NIDSCbBmS,1,133-SPACESC 
133:GOTO 6430 

6470 IF aS-CHRSC2523 THEN 6630 
6480 IF aS-CHRSC2403 DR aS-CHRSC2413 THEN 
5630 

6480 IF aS-CHRSC2423 AND x-13 THEN IF baf 
S-”N ” OR bBF$- , 'NDP’’ THEN 5480 ELSE 6280 
6500 IF aS-CHRSC2423 THEN x-x-2:G0TD 6560 
6510 IF a$-CHRSC2433 THEN 6550 
6520 IF aS-CHRSC133 THEN x-25:GDTD 6560 
6530 IF ASCCaS3<32 OR ASCCa$3>85 THEN 645 
0 


C75B03 


C40413 


C25673 
L 42723 


C42873 


C22383 

C7813 
C13BB3 
C15153 

C5903 
C32803 

C3833 
C1173 
C15943 
C1173 
C12623 
C25553 

C22163 

C7913 
C13883 
C223B3 

C21923 

C23273 

CS10B3 

C9233 
C37773 


C24443 

C7913 
C5S13 
C12703 
C18433 

C49563 


C16533 
C47303 


C51S13 


C47973 

C1173 
C14553 
C1173 
C10193 
L 10453 
C33483 

C58353 


C138B3 
C15633 

C35563 

C14513 
C5403 
C5B43 
C16143 
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6540 nIDS CbemS,x-12,1)-aS:L0CATE#1,x,1:PR 
INT#l,aS; 

6550 IF x-25 THEN 5450 
6560 NEXT 

6570 x-0:BOSUB 6960:IF MIDSCappS,2,1)-” " 
AND FlIDSCbefS, 1,1)<>"N" AND befS<>”PE “ TH 
EN t1IDSCappS,2, l)-t1IDSCoppS, 1,1) :l1IDSCoppS 
,l,l)-"0" 

6560 niDSCbeFSCzaila),1,3)-befS: IllOSCopkSC 
Zbüb) , 1,l)-opk$:HIDSCappSCzaile) , 1,2)-app 
S^IDSCbamSCzaila),1,133-bemS 
6590 G05UB 5420:IF BEFSO”PE " THEN GOSUB 
5420:ZBilB-ZBilB+l 
6600 IF zb11b>255 THEN zaila-255 
6610 IF zails>Bnds THEN andB-zaila:fllDSCba 
FSCzelle),1,3)“" ”:tllDSCapkSCzeile),1,13 

”:mD*CoppSCzBllB),l,5)-" ":MIDSCbamSC 
Zeile),1,133"SPACESC13) 

6620 GOTO 5410 

6630 HIDSCbaFSCanda),1,3)- H PE ":GOT0 7040 
6640 ’ 

6650 * Bafahlslista anzaigan 
6660 ' 

6670 F0R i-anf T0 anf+19 
E6B0 L0CATE 1,1+i-anF 

6690 IF i>enda THEN PRINT SPACESC25)j:i-a 

nF+19:GOTO 6720 

6700 PRINT USING”###";i; 

6710 PRINT ” "baFSC1)” "opkSC1)oppSC1)" ” 
bamSCi); 

6720 NEXT:CALL 8BB03:RETURN 
6730 ’ 

6740 * Befahl loaachen 
6750 ’ 

6760 CLS#1:x-0:GOSUB 69B0:PRINT#1," 2L - B 
itta warten ...”; 

6770 ande-ande-1:FOR i-zaile TO anda 
6760 HIDSCbeFSCi), 1,3)-baFSC 1+1) 

6790 IIIDSCopkSCl), 1, l)-opkSCi+l) 

6600 f1IDSCoppSCi),l,2)-appSCi+l) 

6810 niDSCbamSCl),1,13)-bemSCi+l) 

6820 NEXT:anf-1NTC zaila/20)*20:GOSUB 6670 
6630 IF anda<zalla THEN zalla-anda 
6640 RETURN 
6050 * 

6060 ‘ BaFahl ainfuegan 
6670 ■ 

6660 CLS#1:x-0:GOSUB 6960:PRINTK1,” ZE - B 
ittB warten ..."j 

6690 BndB-ande+l:FOR i-anda TO zaile+1 STE 
P -1 

6900 niDSCbeFSCi),1,3)-bafSCi-l) 

6910 riIO$CopkSCi),l,l)-opk$Cl-l) 

6920 NIDSCoppSCi),l,2)-oppSCl-13 
6930 MIDSCbemSCi),1,13)-bamSCi-l) 

6940 NEXT: MIDSCbeFS Czalla), 1,3)-"NOP”: III DS 
CopkSCzeile),1,1)-” IIIDSCoppSCzelle),1,2 
)-” ”: fllDSCbamSCzaila) , 1,13)-SPACESC133 : a 

nf-INTC zaila/BO)»20:GOSUB 6670:RETURN 
6950 * 

6960 ’ Cursor satzan 
6970 ’ 

6900 IF xa<>0 THEN L0CATEH3,xa,1:PRINT#3,C 
HRS C1313;:L0CATEH4,xa,1:PRINT#4,CHRS C140 3; 
6990 IF xOO THEN L0CATE#3,x, 1: PRINT#3, CHR 
SC254);:L0CATE#4,x,1:PR1NT#4,CHRSCH53)j:LO 
CATE#1,x,1 ELSE L0CATE#1,1,1 
7000 xa-x:RETURN 
7010 ’ 

7020 ’ Ouallprogramm in flaachinencoda uaba 

rsatzan 

7030 ’ 

7040 xadr-xmadr:CLS#1:x-0:GOSUB 690O:CLS:P 
OKE xadr,8F3:xadr-xadr+1:aaflag-0 
7050 LOCATE 2,3:PRINT”NaachlnancodB-GBnarl 
arung 

7060 LOCATE 2,5:PRINT"Zalla: 

7070 LOCATE 2,6:PRINT”Bitte warten ... 

7060 FOR zl-0 TO anda:LOCATE 9,5:PRINT zl 
7090 MIDSCbafS, 1,3)-bBFSCzl) -. niDSCcS, 1,1) 
-MIDSCbafS,2,1): IF cS- ”0’’ THEN niDSCcS,1,1 
)-f1IDSCbafS,3,1) 

7100 IF beFS-” ” OR bBf$-”N0P" THEN 725 
0 ELSE MIDSCbS,1,1)-HIDSCbeFS,1,1) 

7110 3-UALCnppSCzl)) .-niDSCaS, 1,13-opkSCzl 
) 

7120 IF a$-”E” THEN s-s+xaOO 

7130 IF aS-”A” THEN s-s+xaOO 

7140 IF aS-”rr* THEN 3-s+xmOO 

7150 IF a5-”T” AND CbS-"S** OR bS-"R” OR b 

S-“-“) THEN s-s+xtOOa:GOTO 7170 

7160 IF aS-”T” THEN s-s+xtOOe 

7170 hb-INTCs/256):lb-s-256*hb 

7100 IF bS-”L” THEN 7300 


C12943 

C7763 
C3503 
C60403 


C7B103 


C41713 

C16533 
C79763 


C3613 
C13373 
C1173 
C26533 
C1173 
C17543 
C15463 
C40623 


C7793 
C23313 

C13043 
C1173 
C19643 
CI 173 
C38893 

C9503 
C13233 
C16503 
C10593 
C17743 
C16093 
C14153 
C55S3 
C1173 
C25143 
C1173 
C 41503 

C10943 

C14433 
C18013 
C9553 
C15803 
C67613 


C1173 
C6603 
C1173 
C57563 

C56353 


C15153 
C1173 
C19643 

C1173 
C45133 

C39133 

C10013 
C29773 
C195B3 
C64193 


C26203 
C21253 


C0513 
C14403 
C7553 
C21743 


C17773 
C16523 
C7073 


7190 

360 

7200 

7210 

7220 

7230 

7240 


IF bS—*U” OR bS- M 0" OR bS-''X" THEN 7 C16193 


IF bS-”N” THEN 7310 
IF bS-"S“ THEN 7450 


THEN 7540 
THEN 7630 

THEN POKE xadr,&FB:POKE xa 


IF bS-”R 
IF bS-"- 
IF bS-”P 

dr+1,&C9:xadr-xadr+2 
7250 IF Bsflag THEN RETURN 
7260 NEXT:POKE xadr,SFB:POKE xadr+1,SC9:N0 
DE 1:INK 0,1:INK 1,24:INK 2,0:INK 3,26:PAP 
ER 0:PEN 1:BORGER 0:RETURN 
7270 ’ 

7280 *L S LN - N 
7290 ‘ 

7300 POKE xadr.B3A-.P0KE xadr+1, lb:POKE xad 
r+2, hb: xadr-xadr*+3 

7310 IF cS-”N" THEN POKE xadr,SEE:POKE xad 
r+1,1:xadr-xadr+2 
7320 GOTO 7250 
7330 * 

7340 *U S UN - 0 S ON - XO S XON 

7350 ' 

7360 POKE xadr,S47:POKE xadr+1,S3A:POKE xa 

dr+2,1b:POKE xadr+3,hb:xadr-xadr+4 

7370 IF cS-"N" THEN POKE xadr,SEE:POKE xad 

r+1,1:xadr-xadr+2 

7300 IF bS-”U” THEN POKE xadr.SAO 

7390 IF bS-"0" THEN POKE xadr.SBO 

7400 IF bS-"X” THEN POKE xadr,SAB 

7410 xadr-xadr+1:GOTO 7250 

7420 • 

7430 ’S S SN 
7440 * 

7450 IF cS-‘‘N” THEN POKE xadr, SEE: POKE xad 
r+1,1:xadr-xadr+2 

7460 POKE xadr,S47:POKE xadr+1,83A:POKE xa 
dr+2,lb:POKE xadr+3,hb:POKE xadr+4,BB0 
7470 POKE xadr+5,832:POKE xadr+6,lb:POKE x 
adr+7,hb:POKE xadr+6,870 
7400 xadr-xadr+9 

7490 IF cS-"N” THEN POKE xadr,SEEPOKE xad 
r+1,1:xadr-xadr+2 
7500 GOTO 7250 
7510 ’ 

7520 ’R 8 RN 
7530 ’ 

7540 IF cS-” ” THEN POKE xadr,SEE:POKE xad 
r+1,1:xadr-xadr+2 

7550 POKE xadr,847:POKE xadr+l,83A:P0KE xa 
dr+2, lb: POKE xadr+3, hb-.POKE xadr+4,SA0 
7560 POKE xadr+5,832.-POKE xadr+6, lb:POKE x 
adr+7,hb:POKE xadr+6,870 
7570 xadr-xadr+9 

7500 IF cS-” ” THEN POKE xadr,SEE:POKE xad 
r+1,1:xadr-xadr+2 
7590 GOTO 7250 
7600 * 

7610 8 -N 

7620 ’ 

7630 IF cS-”N" THEN POKE xadr,SEE:POKE xad 
r+1,1:xadr-xadr+2 

7640 POKE xadr,832:POKE xadr+1,lb:POKE xad 
r+2,hb:xadr-xadr+3 

7650 IF cS-”N“ THEN POKE xadr,SEE:POKE xad 
r+1,1:xadr-xadr+2 
7660 GOTO 7250 
7670 ’ 

7660 *SPS-Pragramma speichern 
7690 ’ 

7700 MODE 1:PRINT”SPS-Programm auf Diskett 
e/Kassette":PRINT"abspeichern, 

7710 PRINT:PRlNT"BBStaetigan mit J/N 
7720 IF INKEYC45)-0 THEN 7740 
7730 IF INKEYC463-0 THEN RETURN ELSE 7720 
7740 PR INT-.CALL &BB03: GOSUB B290: PRINT: PR I 
NT:PRINT”Bitte warten ,.PRINT:PRINT 
7750 xan-HlaengeS:xan-256»PEEKC xan+2)+PEEK 
Cxan+1) : fllDSClaangaS, 1, D-CHRSCanda) 

7760 xan-xan+19*CandB+l):IF MIDSCdatenS,1, 
0)-"SPS-allg" THEN xan-xan+290:FOR 1-0 TO 
4:riI0SCZEITS.1+1.l)-CHRSCzCi)):NEXT:MIDSC2 
EIT$,6, D-CHRSCEING) :HIDSCZEITS,7, D-CHRSC 
AUSG) : HIDSC2EITS,0, D-CHRSCZEITG) 

7770 SAUE datanS,b,xan,xan-xan+l 
7700 RETURN 
7790 • 

7000 ’SPS-Programma einlesan 
7010 ’ 

7620 MODE 1:IF ende-0 THEN 7660 ELSE PRINT 
"ACHTUNG I”:PRINT”Da3 SPS-Pragramm im Rech 
ner wird”:PRINT"uabarschrieben. 

7030 PRINT:PRINT”Ulirklich einlesan J/N 
7840 IF INKEYC45)-0 THEN 7060 


C7573 
C4B23 
C5273 
C5063 
C36963 

C7713 

C77703 


C1173 

C1033 

C1173 

C26903 

C29133 

C3133 
C1173 
C20043 
C1173 
C33493 

C29133 

C9353 
C14063 
C11S43 
C3733 
C1173 
C1553 
E1173 
C29133 

C37623 

C41923 

C3963 

C29133 

C3133 
C1173 
C5143 
C1173 
C33353 

C36123 

C41B23 

C3963 
C33353 

C3133 

C1173 

C3033 

C1173 

C29133 

C40003 

C29133 

C3133 
C1173 
C25343 
C1173 
C57213 

C19003 
C10063 
C9023 
C35353 

C4B753 

C115003 


C20633 
C5553 
C1173 
C16413 
C1173 
C94423 


C24563 
C10303 
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7050 IF INKEYC46)-0 THEN RETURN ELSE 7B40 

C10223 

7060 PRINT:CALL &BB03:GOSUB 0290:PRINT:PRI 
NT:PRINT"Bitte wBrten ... 

C34943 

7070 PRINT:PRINT:PRINT”Bb 1 Fehlermeldung - 
PR INT "Ularmstart mit GOTO 1100”: PRINT: PRI 
NT 

C63053 

7000 xan-01aangeS; xan-256*PEEKCxan+2)+PEEK 
Cxan+1) 

C25103 

7090 HB-PEEKC8AE7C):P0KE &AE7C.100: ’HIflEtl 
herabsetzen Cohna Garbage Collection) 

C41733 

7900 LOAO datenS.xan 

CS413 

7910 POKE &AE7C.HB 

C7963 

7920 IF fllDSCdatenS, 1,B)-"SPS-allg” THEN F 
OR i-0 TO 4: zC i 3-ASCCtlIDSCZEITS, 1+1,1) ) : NE 
XT: EING-ASCCF1IDSC2EITS, 6,1)): AUSG-ASCC fl IDS 
CZEITS,7,1)):ZEITB-ASCCNIDSCZEITS,0,1)) 

C94393 

7930 ende-ASCClaengeS) 

C11333 

7940 POKE xmadr,&C9:IF anda>0 THEN 7040 EL 
SE RETURN 

C2SS73 

7950 ’ 

C 1173 

7960 'SPS-Programm ausdrucken 

C19003 

7970 ’ 

C 1173 

7900 IF CINPCSFSOO) AND 64)-64 THEN nODE 1 
:LQCATE 10,12:PRINT CHRSC7)"0ar Drucker is 
t“:L0CATE 10,14:PRINT"nicht betriebsbereit 
.":FOR i-0 TO 2000:NEXT:RETURN 

C124743 

7990 MODE 1:LQCATE 7,7:PRINT"Ausdruck des 
Quallprogramms 

C34663 

0DOO LOCATE 1,13:PRINT”Ueberschrift:”:L0CA 
TE 1,16: LINE INPUT'*" .taxtS 

C42163 

0010 IF taxtS-"" THEN 0000 

C12093 

0020 PRINT#0,SPCC9)textS:PRINT#0 

C20263 

0030 FOR i-0 TO ende 

C6603 

B040 PRINT#B,SPC<9);:PRINT#9,USING"###”;i 
;:PRINT#0," H ; 

C35513 

0050 PRINT#B,USING"\ V;bBfSCi); 

C24773 

0060 PRINTH0,opkS C1): 

C10353 


0070 

PRINT#8 , USING”\ \";cppSCi); 

C 20333 

BO0O 

PRINT#0 , bemSCi3 

C8103 

0090 

NEXT:RETURN 

E 9403 

0100 

’ 

C 1173 

8110 

'Neue Zeile Fastlsgen 

C11223 

0120 

' 

C 1173 

9130 

CLS#1 : PRINT#1, " Zu ZBile: ”;:niDSCn 

C76983 

rS,l,3)-" " : IF aS-CHRSC242) THEN x-14:z- 


0 ELSE x-15:z-1:niDSCnrS,1,1)-aS:PRINT#1,a 


0140 

GOSUB 6900 

C10453 

B150 

fl 1 DSC bS , 1 , 1 fll DSCbS, 1 , D-INKEY5 : 

C40043 

IF bS-"*" THEN 0150 


0160 

IF hS-CHRSC13 ) THEN 0240 

C9213 

0170 

IF bl-CHRSC127 ) THEN RETURN 

C 0953 

0100 

IF bS-CHR$C242) AND z>0 THEN z-z-l:x- 

C26513 

x-l-.GOSUB 6900: GOTO 0150 


0190 

IF bS-CHRSC243) AND z<2 AND niDSCnrS, 

C61473 

z+l,l)<>" ” THEN z-z+l:x-x+l:GOSUB 69B0:G0 


TO 0150 


B200 

IF ASCCbSX4B OR ASCCbS)>57 THEN B150 

C10613 

0210 

PRINT#1,bS; : X-X+l : GOSUB 6900 

C14133 

0220 

z-z+1 ; niDSCnrS,z,l)-bS 

C13903 

8230 

IF z-3 THEN 0240 ELSE 0150 

C19903 

8240 

PEN#1,1 : GOSUB S420 : PEN#1 , 3:zeile-UALC 

C67073 

nr$) 

IF zeile>ande THEN zeilB-ende 


0250 

x-0:GOSUB 6900:RETURN 

C15693 

0260 

[' | g ~| 

C 1173 

0270 

’ DatenF i le-Nr 1—~L§9 

C14543 

82B0 


C 1173 

0290 

PRINT:PRINT 

C7433 

0300 

INPUT"DatenFila CI .. 999) Nr: ",nr 

C19S53 

0310 

IF nr<1 OR nr >999 THEN 0300 

C13063 

0320 

x-LENCSTRSC nr) ) ; fl IDSC datenS. 10, l)-"0” 

C70293 

:DIDSCdatanS,13-x,x)-STRSCnr) : niDSCdaten$. 


13-x , 1 )-"0” : fll DSCdatenS ,9,1)“".’’ 


0330 

RETURN 

C5553 



„DAS C-BUCH“ behandelt ungewöhnlich an¬ 
schaulich sämtliche C-Konstrukte und Sprachkon- 
zepte. Es eignet sich durch seine lebendige, bildreiche 
Darstellung zum „Lernen durch Tun“: 

• an über 100 kommentierten Programmbeispielen 
wird die Realisierung moderner Programmstrategien 
in C vorgeführt - diese Programme sind auf Diskette 
erhältlich. 

• durch typographisch lebendige Textgestaltung prägen sich 
Schlüsselworte und ihre Syntax sowie wichtige Begriffe 
leicht ein. 

• erprobt an Großrechnern unter UNIX, ISIS, an PCs unter 
CP/M und MS DOS; mit C-Compilem von INTEL, DR, MS, 
LATTICE. 

DIE AUTOREN Helmut Herold und Werner Unger, beide In¬ 
formatiker, arbeiten in der Industrie an Systemprogrammierungen 
zukünftiger Computerarchitekturen. Ihre Erfahrungen in System¬ 
entwurf und Programmierung, u.a. mit PASCAL, C, ADA, haben 
sie Anfängern und Ingenieuren in Lehrgängen vermittelt. Aus diesem 
Zusammenhang entstand das vorliegende Buch. 

Von Herold/Unger, 584 Seiten, Softcover, DM 79,— 
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I—Bericht 


PC 1640 von Schneider: 

- Offensive , Teil II- 



Der PC 1640 gleicht dem PC 1512 wie ein Ei dem anderen. Überraschungen bringt erst 
der Blick ins Innere... 


Die Philosophie 


Den Anfang machte (wie bislang zu¬ 
meist) Big Mother Blue, der Branchen¬ 
führer IBM. Der PC war für die Klein- 
und Mittelständischen Betriebe konzi¬ 
piert, die, dem Trend nach Automatisie¬ 
rung folgend, eine Computerlösung für 
arbeits- und zeitintensive Verwaltungs¬ 
und Kontrollaufgaben suchten. 

Zwar war das Hardwarekonzept schon 
bald überholt, denn der auserwählte Pro¬ 
zessor 8086 konnte der 68000er CPU in 
vielen Bereichen das Wasser nicht rei¬ 
chen, doch war mit der Wahl des Be¬ 
triebssystems MS/DOS eine ausgezeich¬ 
nete Entscheidung gefallen. 

Das System PC war jedoch unglückli¬ 
cherweise so transparent, daß sich als¬ 
bald eine große Anzahl von Plagiaten 
(Clones) im Karpfenteich tummelte. Die 


Hersteller solcher Nachbauten hatten 
zwar den Vorteil, unschlagbare Preise 
trotz hoher Softwarekompatibilität bie¬ 
ten zu können; was jedoch zumeist nicht 
im Preis enthalten war und die Vor¬ 
machtsstellung von IBM einige Zeit be¬ 
wahrte, war der Service in Form eines 
dichten Händlemetzes. 

Und hier findet sich auch der Grund für 
den großen Erfolg der Computer Divi¬ 
sion der Schneider Rundfunkwerke: 
Durch den Einkauf riesiger Stückzahlen 
kann man den PC zu einem Preis anbie¬ 
ten, der ihn nicht nur für die Eingangs er¬ 
wähnte Käuferschicht interessant macht, 
sondern auch eine Heimanwendung er¬ 
möglicht. 

Zudem ist der Anwender nach dem Kauf 
nicht auf sich selbst gestellt, sondern 
kann auf ein Netz von knapp unter tau¬ 
send Schneider-Händlern zurückgreifen. 
Diese unschlagbare Kombination verhalf 


Im Oktoberheft ’86 stellten wir 
erstmals einen Computer von 
Schneider vor, der sich mit 
kräftigen Ellenbogen einen Platz 
auf dem Markt der IBM- 
kompatiblen PCs schaffen wollte- 
den PC 1512. Die Mitbewerber 
wurden unsanft aus dem Dornrös¬ 
chenschlaf gerissen; aus 
zahlreichen Ankündigungen ist 
jedoch bislang keine wirkliche 
Konkurrenz für den PC 1512 
erwachsen. Die Türkheimer 
Mannschaft hat die, in der 
Zwischenzeit auf dem PC-Sektor 
gemachten Erfahrungen umgesetzt 
und stellt dem weiterhin 
expandierenden Markt einen 
erweiterten und verbesserten PC 
vor: den Schneider PC 1640. Die 
Namensgebung läßt richtig darauf 
schließen, daß der Neue mit 640 
KB Hauptspeicher ausgeliefert 
werden wird; doch: das kann ja 
noch nicht alles gewesen sein... 


dem PC 1512 zu Verkaufszahlen, die 
Ende Juni 1987 über 100.000(1) geklet¬ 
tert sein werden. 


Die Standardausrüstung 


Sowohl PC 1512 als auch PC 1640 wer¬ 
den gleichermaßen wie folgt ausgelie¬ 
fert: 

1.) Die Zentraleinheit, die die Hauptpla¬ 
tine mit dem Intel-Prozessor 8086 und ei¬ 
nen Steckplatz für den Coprozessor 8087 
enthält. 512 kB RAM beträgt der verfüg¬ 
bare Speicherplatz (640 kB beim 1640). 
Ebenso verfügbar ist eine batteriegepuf¬ 
ferte Hardware-Uhr und das sog. NVR 
(Nicht-flüchtiges RAM), welches, eben¬ 
falls batteriegepuffert, die feste Einstel¬ 
lung einiger Systemparameter erlaubt. 
Eine serielle (RS 232-) und eine parallele 
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Bild J: Den Un terschied zum Vorgänger macht äußerlich nur die 
Beschriftung. Die neue Harddisk hat kleinere Abmessungen. 
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Bild 2: Neu: Die DIP-Schalter für die Bildschirmmodi und der 
Normanschluß für Fremdmonitore 


(Centronics-) Schnittstelle gehören bei 
beiden Rechnern zur Standardausrü¬ 
stung. Als Massenspeicher steht minimal 
ein Diskettenlaufwerk mit 360 kB zur 
Verfügung; nachrüstbar ist ein zweites 
Laufwerk sowie eine Festplatte. 

2. ) Der Monitor ist beim PC 1512 in ei¬ 
ner Monochrom- und einer Colorversion 
verfügbar; nachrüstbar ist eine Hercules- 
Karte. Die Monitorversionen für den 
1640 werden gesondert beschrieben. 

3. ) Die Tastatur ist PC-Standard; sie ent¬ 
hält anzeigende CAPS-Lock und NUM- 
Lock-Tasten, einen kombinierten Zeh¬ 
nertasten/Cursortastenblock, zehn Funk¬ 
tionstasten und einen Joystick-Anschluß. 
Als weiteres Eingabemedium steht bei¬ 
den Rechnern standardmäßig eine MS- 
kompatible Maus zur Verfügung. 

4. ) Die Systemsoftware besteht aus vier 
5,25“-Disketten mit dem Betriebssystem 
MS/DOS, GEM, GEM Paint und 
BASIC2; dem PC 1512 wird zusätzlich 
noch das Betriebssystem DOS PLUS 
beigegeben. 


Die neuen Modelle 


Wie er heißt, wurde schon verraten. Was 
er kann, erfahren Sie jetzt. Der PC 1640 
unterscheidet sich von seinem »kleinen 
Bruder« zunächst durch den um 128 KB 
auf 640 KB aufgerüsteten Hauptspei¬ 
cher, was als eine Reaktion auf Kunden¬ 
nachfragen gewertet werden kann. Der 
wesentliche Unterschied besteht jedoch 
aus einem komplett überarbeitetem An¬ 
gebot an Monitoren für jedes Anwen¬ 
dungsgebiet. 

Stand der PC 1512 bislang nur in der 
Monochrom- und Farbversion mit dem 
speziellen Schneider-Modus sowie spä¬ 
ter als umschaltbare Hercules-Version 


zur Verfügung, so werden jetzt die drei 
verbreitetsten Bildschirm-Standards für 
PCs, nämlich Hercules, EGA und CGA 
wahlweise angeboten, wobei dem EGA- 
Modus ein erweiterter Bildschirmspei¬ 
cher von 256 KB zur Verfügung steht. 
Eine DIP-Schalter-Leiste an der Rück¬ 
seite der Zentraleinheit erlaubt die hard¬ 
waremäßige An wähl der Modi, diese 
sind zudem komplett abschaltbar. 

Alle drei dieser Auflösungsvarianten 
werden von einem Spezialbaustein, dem 
sog. PARADISE-Chip zur Verfügung 
gestellt; paradiesische Farbgebung ist je¬ 
doch nur im EGA-Modus zu erwarten. 
Für Interessierte hier eine Kurzbeschrei¬ 
bung der drei Modi: 

Hercules: 

- Text und Grafik monochrom 

- max. Auflösung 720 x 350 Punkte 

CGA (Color Graphics Adapter) 

- Text und Grafik max. vierfarbig 

- Auflösung vierfarb. 320 x 200 Punkte 

- Auflösung zweifarbig 640 x 200 
Punkte 

EGA (Extended Graphics Adapter) 

- Text und Grafik max. sechzenfarbig 

- max. 640 x 350 Punkte mit max. 16 
Farben aus einer Palette von 64 

Eine weitere interessante Angelegenheit 
ist ein ebenfalls an der Rückwand der 
Zentraleinheit montierter 9-poliger 
Min, —D-Sub- Stecker, dessen An- 
schlußbelegung genormt ist und der den 
Anschluß von (ebenso genormten) 
Fremdmonitoren ermöglicht. Dieses 
Feature eröffnet grafischen Anwendun¬ 
gen eine neue Dimension; nach wie vor 
ist der PC jedoch auf die Spannungsver¬ 
sorgung aus dem Schneider-eigenen Mo¬ 
nitor angewiesen. 

Trotz des deutlichen Schritts in Richtung 
Normung sind noch einige Besonderhei¬ 


ten der Monitorversionen beim Softwa¬ 
rekauf zu beachten; so ist z.B. die Her- 
cules-Monochrom-Version nicht mehr 
auf die niedrigere Auflösung umschalt- 
bar, so daß der Anwender hier auf 100 % 
Hercules-kompatible Software angewie¬ 
sen ist. 

Wie jedoch verlautete, soll zum PC 1640 
schon die an Hercules angepaßte GEM- 
Version verfügbar sein. Weiterhin steht 
dem 1640 der vom 1512 bekannte 
Schneider-Spezialmodus für den Farb¬ 
monitor nicht mehr zur Verfügung, so 
daß auf diesen Modus angepaßte Softwa¬ 
re auf dem 1640 ebenfalls nicht mehr 
lauffähig sein dürfte. 


Verbesserungen im Detail 


Neben den neuen Monitorversionen hat 
der Neue einige Features und Verbesse¬ 
rungen gegenüber dem 1512 erhalten, 
die ihren Ursprung zweifellos in den An¬ 
regungen der Anwender des PC 1512 ha¬ 
ben. So wurde dem PC 1640 ein vierter 
Erweiterungsslot für Karten spendiert, 
die keine Verbindung nach Außen benö¬ 
tigen, wie z.B. eine steckbare Festplat¬ 
te (Drivecard) oder eine als Ramdisc aus¬ 
gelegte Speichererweiterung. 

Die bisherigen Steckplätze stehen jetzt 
voll für beliebige Erweiterungen wie se¬ 
rielle oder parallele Ports, Midi-und son¬ 
stige Schnittstellen, die eine Verbindung 
an die Außenwelt benötigen, zur Verfü¬ 
gung. 

Platz für den vierten Steckplatz wurde 
durch eine neue Organisation der Haupt¬ 
platine geschaffen, wobei die Bestük- 
kung sich von der des 1512 außer in der 
Hauptspeicherkapazitpt nur unwesent¬ 
lich unterscheidet. 

Eine weitere Neuerung hat sich aus dem 
Problem ergeben, daß der Festplattenbe- 
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trieb mit PC 1512 gelegentlich zu ther¬ 
mischen Problemen führte. Ein erster 
Schritt wurde hier bei den neueren Mo¬ 
dellen des 1512 unternommen, indem 
man ihm ein neues Gehäuse gab, welches 
zur besseren Luftzirkulation mit Lüf¬ 
tungsschlitzen versehen war. 

Beim 1640 wird dieses Gehäuse beibe¬ 
halten werden; zusätzlich hat man sich 
bei der Festplattenversion für das Lauf¬ 
werk eines anderen Herstellers entschie¬ 
den, welches kleinere äußere Abmessun¬ 
gen hat; als weitere Sicherheitsmaßnah¬ 
me werden die Harddisk-Versionen des 
1640 mit einem Lüfter versehen sein. 


Neues auch bei der Software 


Bislang waren die Schneider-Kunden in 
Sachen Software auf Werbeaussagen der 


verschiedenen Hersteller und Vertreiber 
angewiesen; die Möglichkeit, ein ge¬ 
wünschtes Programm vor Ort zu testen, 
war selten gegeben. Hatte man sich dann 
für eine Lösung entschieden, die dem ge¬ 
wünschten Anwendungsbereich am 
nächsten kam, so war man bei auftreten¬ 
den Fehlfunktionen auf einen hilfreichen 
Händler oder, bei Software der entspre¬ 
chenden Preisklasse, auf einen teuren 
Wartungsvertrag angewiesen. 

Auch dieses Problem scheint bei Schnei¬ 
der erkannt worden zu sein, denn parallel 
zu den 1640 sollen künftig speziell auf 
diese Rechner zugeschnittene Software¬ 
pakete zur Verfügung gestellt werden. 

Namentlich ist dies die sog. Topline, die 
unter dem Label TOPcommerz Anwen¬ 
derlösungen wie Auftragsbearbeitung, 
Lagerwirtschaft, Fakturierung, Finanz¬ 


buchhaltung und Lohn-/Gehaltsabrech- 
nung zur Verfügung stellt. 

Je nach Kombination der Bausteine muß 
der Interessent zwischen 1580,— und 
1920,- DM auf den Tisch legen. Der 
neue Softwareservice wird zusammen 
mit der in Bad Homburg ansässigen Soft¬ 
warefirma KHK erstellt, die auch die 
Wartung und Weiterentwicklung der 
Schneider-Software übernehmen wird. 

Die Möglichkeit, Wartungsverträge ab¬ 
zuschließen und eine Software-Hotline in 
Anspruch zu nehmen, soll diesen Service 
abrunden. Ein weiterer Schritt in Rich¬ 
tung Kundennähe ist die von Schneider 
beabsichtigte Schulung der Händler auf 
den Schneider Hard-/SoftwaresySternen. 

Im Vertrieb der Firma Schneider ist jetzt 
auch die unter GEM arbeitende Daten¬ 
bank GBase in einer um die Funktionen 
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Bild 3: Die neu organisierte Hauptplatine wirkt aufgeräumter. Deutlich zu erkennen: der vierte Erweiterungsslot 
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Der 
Schneider 
PC 


Sofort 


zugreifen: 


Schneider PC MM/SD 

IBM-kompatibler Personalcomputer 
mit 512 KB Hauptspeicher, Mono¬ 
chrom-Monitor (schwarz/weiß) 

1 360 KB 5Va“ -Diskettenlaufwerk 


ab DM 


1 . 499 .- 




Schneider PC MM 

mit von uns nachträgl. eingebautem 
2. Laufwerk. IBM-kompatibler Perso¬ 
nalcomputer mit 512 KB Hauptspei¬ 
cher, Monochrom-Monitor (schwarz/ 
weiß) 2 360 KB 5V4"-Disk.-Laufwerke 


ab DM 


1 . 798 .- 


SCHNEIDER DMP 3000 Matrix Drucker 105 Zei- 
•—s£. pro Sekunde, 8 internationale Zeichensätze, eingebau- 
ormulartraktor, IBM und Epson 
Ze::hensatz, Centronics Schnittstelle DM648,- 

DMP 4000 DIN A3 200 Z/( 


L 

r~' 

•... T 






Schneider PC MM 

mit von uns nachträgl. eingebauter 
Original-20 MB-Festplatte. IBM-kom¬ 
patibler Personalcomputer mit 512 KB 
Hauptspeicher, Monochrom-Monitor 
(schwarz/weiß), 360 KB ö 1 /»"-Disket¬ 
tenlaufwerk, 20 MB-Festplatte 



ab DM 


2 . 298 .- 


RAMER WEITERUNG FÜR 
PC AUF 640 K 


DM 79,- 
DM49,80 

DRUCKERANSCHLUSSKABEL DM 39,80 
SCHNEIDER DISKETTEN SW 


STAUBABDECKHAUBE 

für PC 


10 Spe2iai Schneider Disketten 2 S/DD 
in Kunststoff-Aichiv-Box 


DM 39,50 





Festplatten-Einbaukit 
kompl. mit Lüfter, 20 MB 

DM 998, - 
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Bild 4: Der vierte Slot istför den Harddiskcontroller bzw. fiir eine Drivecard vorgesehen 


Mailmerge und Etikettendruck abge¬ 
speckten Version zum Preis von ca. 
200,— DM. Diese Version ist jedoch 
Datenkompatibel zu Wordstar 1512, 
welches ja eine Rundschreibeoption ent¬ 
hält. 

Auch bei der mitgelieferten Systemsoft¬ 
ware gibt es neues zu berichten: Zwar 
werden nach wie vor vier Disketten bei¬ 
gegeben; das Betriebssystem DOS Plus 
wird jedoch nicht mehr dabei sein. Ob 
hier Preisgründe ausschlaggebend wa¬ 
ren, liegt im Bereich der Spekulation; da 
das Gros der Software jedoch ohnehin 
unter MS/DOS arbeitet, dürfte der Ver¬ 
lust für den nur-Anwender zu ver¬ 
schmerzen sein. 

Die Microsoft-Utilities BACKUP, RE¬ 
START und LINKER jedoch, die für die 
PC 1512- Besitzer noch exklusiv waren, 
werden für den 1640 auf den System- 
disks mitgeliefert. Auch GEM wurde in 
Hinsicht auf die verschiedenen Monitor¬ 
versionen verändert, muß das Programm 
doch die jeweils gewählte Darstellung 
selbst erkennen. 

Die gesamte Leistungsfähigkeit der neu¬ 
en Benutzeroberfläche wird sich jedoch 
erst in einem ausführlichen Test heraus- 
stellen können. 


Ausblick 


Diese Informationen zeigen deutlich, daß 
die bislang betriebene Verkaufspolitik ei¬ 
ner Überprüfung unterzogen wurde. Der 
Trend geht eindeutig in Richtung Mo¬ 
dellpflege, was u.a. auch daran zu sehen 
ist, daß noch im ersten Halbjahr ’87 über 
18000 verkauften Druckern weitere Mo¬ 
delle für Schneider- und Fremdrechner 
angeboten werden sollen, die spezielle 
Anwendungsgebiete abdecken. 

Dies ist zunächst der schon vorgestellte 
Matrixdrucker DMP 3160 für 698, - DM, 
der gegenüber dem DMP 3000 mit einer 
höheren Druckgeschwindigkeit glänzt; 
fiir den Herbst ist das Erscheinen eines 
24-nadligen Matrixdruckers angekün¬ 
digt. 

Neben den erwähnten Aktivitäten auf 
dem Softwaresektor sind auch Bemühun¬ 
gen im Gange, das Thema Bürokommu- 
nikation mit den Schneider-Rechnern 
(auch den CPCs und PCWs) zu verknüp¬ 
fen. Stichworte, die noch im Lauf dieses 
Jahres mit Inhalt gefüllt werden sollen, 
sind hauptsächlich BTX und Telefax. 

Nachdem die Bundespost die Bedeutung 
dieser Kommunikationsnetze erkannt hat 


und deren Verbreitung fördert, wird 
auch die Kommunikation von betriebli¬ 
chen Computersystemen untereinander 
interessant. 

Dem CPC 464 wird im Herbst ein end¬ 
lich mit einer FTZ-Nummer versehenes 
BTX-Modul zum Preis von ca. 400, — 
DM zur Verfügung stehen; ab Novem¬ 
ber ’87 soll für die PCs die Welt des Te¬ 
lefax unter dem Label »Schneider Perso¬ 
nal Fax« offen sein. 

Der bislang nur gepeilte Preis liegt in der 
Klasse um 3000,- DM (!). 

Fest steht: Die Firma Schneider hat (trotz 
der Verärgerung von durch Preissenkun¬ 
gen betroffenen Kunden) recht mit ihrer 
Marktstrategie behalten und mit dem 
1512 den PC-Markt für eine neue An¬ 
wenderschicht erschlossen. 

Dieser wird auch weiterhin in den be¬ 
kannten Versionen verfügbar sein. 

Der PC 1640 ist kein Schnellschuß, son¬ 
dern eine konsequente Verbesserung und 
Weiterentwicklung des Vorgängermo¬ 
dells. 

Schneider will von dem neuen Rechner 
bis Ende 1987 30 - 40.000 Stück ver¬ 
kaufen. 

Sollte sich der Trend in Richtung Kun¬ 
dennähe fortsetzen, so scheint mir diese 
Zahl keineswegs illusorisch. 

Schneider bleibt trotz der bislang erziel¬ 
ten Erfolge nicht untätig: man denkt z. Z. 
in Türkheim intensiv über einen AT- 
kompatiblen Rechner in EGA- Version 
nach... (ME) 


Die Preise: 

1) PC 1640 MD SD 
(Monochromdisplay, 
ein Floppylaufwerk): 

DM 1698,- 

2) PC 1640 MD DD 
(Monochromdisplay, 
zwei Floppylaufwerke): 
DM2198,- 

3) PC 1640 MD HD20 
(Monochromdisplay, 

20 MB Harddisk: DM 3198,- 

4) PC 1640 CD SD 
(Colordisplay, 

ein Floppylaufwerk): 
DM2198,- 

5) PC 1640 CD DD 
(Colordisplay, 

zwei Floppy laufwerke): 

DM 2698,- 

6) PC 1640 CD HD20 
(Colordisplay, 20 MB Harddisk): 
DM 3698,- 

7) PC 1640 ECD SD 
(Extended Colordisplay, 
ein Floppylaufwerk): 

DM 2998,- 

8) PC 1640 ECD DD 
(Extended Colordisplay, 
zwei Floppy laufwerke): 

DM 3498,- 

9) PC 1640 ECD HD20 
(Extended Colordisplay, 

20 MB Harddisk: DM 4498, - 
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Von cp/m zu 

Ein völlig neues Themengebiet behandeln wir heute: Teil 

die Umleitung der Ein- und Ausgabe in MS-DOS und DOS-Plus. 


I/O-Redirection 


Was passiert, wenn Sie in CP/M, DOS- 
Plus oder MS-DOS die Taste CON- 
TROL-P betätigen? Genau, der Drucker 
wird parallel zur Bildschirmausgabe ge¬ 
schaltet und protokolliert alles mit. Das 
ist allgemein bekannt und an sich sehr 
nützlich. Doch manchmal geht es darum, 
die Ausgaben nicht an den Drucker um¬ 
zuleiten, sondern beispielsweise an die 
serielle Schnittstelle zu schicken oder in 
einer Datei auf der Diskette zur Weiter¬ 
verarbeitung zu speichern. Da versagt 
CP/M 2.2 kläglich. CP/M Plus bietet 
immerhin eingeschränkte Umleitungs¬ 
möglichkeiten mit PUT und GET: 

A>PUT PRINTER OUTPUT TO FILE B:XYZ 
A>GET CONSOLE INPUT FROM FILE M:INP 

Doch diese Methode ist sehr umständ¬ 
lich. Wollen Sie beispielsweise ein In¬ 
haltsverzeichnis der Diskette in der Datei 
INHALT.TXT speichern, sind die fol¬ 
genden Arbeitsschritte notwendig: 

A > PUT CONSOLE OUTPUT TO FILE 
BrINHALT.TXT A > DIR A > PUT CONSOLE 
OUTPUT TO CONSOLE 
Ganz abgesehen davon, daß Sie noch si¬ 
cherstellen müssen, daß sich PUT.COM 
auf der richtigen Diskette befindet... 
Da sind MS-DOS und DOS-Plus schon 
erheblich weiter. Sie lehnen sich in die¬ 
ser Beziehung an das wirklich professio¬ 
nelle Betriebssystem UNIX an - genau: 
UNIX ist das Betriebssystem, das min¬ 
destens ein paar MByte RAM braucht, 
weil es sich sonst hauptsächlich mit sich 
selbst beschäftigt und andauernd Daten 
zwischen Festplatte und RAM hin- und 
herkopiert; 

In MS-DOS können Sie die Bildschirm¬ 
ausgabe und die Tastatureingabe umlen¬ 
ken. Dazu verwenden Sie die Redirek- 
tionszeichen » > « und » < «in der Kom¬ 
mandozeile und geben danach den ge¬ 
wünschten Dateinamen an. Die beiden 
Zeichen entsprechen der natürlichen 
Denkweise. So schickt der folgende Be¬ 
fehl das Inhaltsverzeichnis von A: in die 
Datei C:INHALT: 

A>DIR A: >C: INH ALT 

Erwartet ein Programm Eingaben von 

der Tastatur, können Sie diese vorher in 


einer Diskettendatei speichern und dann 
über die Eingabeumleitung abrufen: 

A> EDUNTEXT.TXT < TASTEN.DAT 

Wie von Geisterhand erscheinen dann 
die Zeichen auf dem Bildschirm. Sobald 
das Ende der Datei erreicht ist, können 
Sie wieder Kommandos oder Zeichen 
über die Tastatur eingeben. Damit ist es 
auch möglich, nur einen Teil eines Pro¬ 
gramms auf diese Weise zu »automatisie¬ 
ren«. 

Eine besondere Art der Ausgabeumlei¬ 
tung ist über das Symbol » > > « mög¬ 
lich. Normalerweise prüft MS-DOS, ob 
bereits eine Datei existiert, die den Na¬ 
men der neuen Datei trägt. Wenn dies 
der Fall ist, wird sie gelöscht, und die 
neue Datei wird angelegt. Bei der Um¬ 
leitung mit» > > « hängt MS-DOS aber 
die Ausgaben an das Ende der alten Da¬ 
tei an. So kann man eine Reihe von Da¬ 
teien verketten: 

A>DIRA; >C:INFOA>DIRB; >>C:INFO 
A>DIR C: >>C:INFO 

Wenn Sie sich nun C:INFO mit TYPE 
ansehen, finden Sie darin die Verzeich¬ 
nisse der Disketten A:, B: und C: wie¬ 
der. Ganz unproblematisch ist die Ein- 
und Ausgabeumleitung aber nicht. 
Schreiben Sie etwa mit DIR A: /A:INH 
die Ausgaben in eine Datei auf demsel¬ 
ben Laufwerk, von dem Sie auch das Di¬ 
rectory einiesen, passiert folgendes: Die 
Datei wird zum Schreiben geöffnet und 
besitzt da noch eine Länge von 0 Bytes. 
MS-DOS liest dann die Informationen 
aus dem Directory und findet die Datei 
INH mit 0 Bytes. Eben diese Information 
schreibt DOS auch in die Datei INH. 
Wenn man sich nun die Datei INH an¬ 
schaut, findet man die Dateilänge 0 
Bytes. 

Das wäre an sich noch nicht so schlimm, 
schließlich kann man diese Zeile ja mit 
einem Texteditor wieder entfernen. Aber 
manchmal funktioniert MS-DOS nicht 
richtig und vermerkt dann auch dauerhaft 
im Inhaltsverzeichnis auf der Diskette 
selbst 0 Bytes! Seltsamerweise läßt sich 
die Datei dennoch auflisten, und auch 
CHKDSK meldet keinen Fehler. Wie 
gesagt, regelmäßig passiert es nicht. 


Aber wie soll man einen Fehler rekla¬ 
mieren, der sich nicht beliebig reprodu¬ 
zieren läßt? 

Eine ganz andere Schwierigkeit hat nicht 
mit den Leistungen oder Schwächen von 
MS-DOS zu tun, sondern mit geschwin¬ 
digkeitsfanatischen Programmieren. 
Kaum eines der heute verkauften MS- 
DOS-Programme arbeitet ohne spezielle 
Anpassung auf Nicht-IBM-kompatiblen 
MS-DOS- Maschinen (ja, so etwas gibt 
es wirklich, zum Beispiel von Siemens). 
Das liegt einfach daran, daß die System¬ 
aufrufe von MS-DOS zum Beschreiben 
des Bildschirms viel zu langsam und zu 
leistungsschwach sind. Deshalb rufen 
viele Programme direkt ROM-Routinen 
im BIOS des Rechners auf oder schrei¬ 
ben gar die Bytes unmittelbar in den 
Bildschirmspeicher. Dem Anwender ei¬ 
nes hochgradig IBM-kompatiblen Rech¬ 
ners mag dies egal sein — bis zu dem Au¬ 
genblick, in dem er versucht, diese Aus¬ 
gaben in eine Datei umzulenken. Denn 
das funktioniert natürlich nicht mehr. 
Wenn ein Programm unter Umgehung 
von MS-DOS auf den Bildschirm 
schreibt, hat auch MS-DOS keine Mög¬ 
lichkeit mehr, diese Aufrufe abzufangen. 
Damit reduziert sich die Zahl der Pro¬ 
gramme, deren Ein- und Ausgabe sich 
umleiten läßt, drastisch. Im wesentlichen 
sind cs nur noch die Utilities, die Micro¬ 
soft selbst zu MS-DOS geschrieben hat. 
Keine Regel ohne Ausnahme: Der 
QuickBasic- Compiler von Microsoft ge¬ 
hört auch nicht zu den »well-behaved 
programs«, die sich an die MS-DOS- 
Konventionen halten! 

Dafür gibt es aber sogar Programme un¬ 
ter MS-DOS 3.2, die nur mit der Redi- 
rektion der Ein- und Ausgabe überhaupt 
Sinn machen. Das sind MORE.COM 
und SORT.EXE. Werden sie ohne Um¬ 
leitungsangaben aufgerufen, lesen sie 
Zeichen von der Tastatur ein und geben 
sie wieder auf dem Bildschirm aus — 
kaum sehr sinnvoll! 

MORE hat die Aufgabe, Textdateien auf 
dem Bildschirm anzuzeigen. Im Gegen¬ 
satz zu TYPE wartet es aber auf einen 
Tastendruck, wenn der Bildschirm voll¬ 
geschrieben ist. Es ist somit praktisch ein 
Ersatz für die unzulässige Konstruktion 
TYPE datei = P. 

MORE wird mit dem Umleitungssymbol 
für die Eingabe aufgerufen: ffrTlb 

A/MORE < A-.GEM3.BAT 

Sie können natürlich auch die Bildschir¬ 
mausgabe umleiten, zum Beispiel in die 
Datei GEM.MOR: 

A>MORE < A: GEM3.BAT >GEM.MOR 


88 PC 8’87 









Professional Computing—] 


Nur macht das gerade hier recht wenig 
Sinn. 


Sortieren kann DOS auch 


Das Programm SORT.EXE holt sich 
eine Liste von Textzeilen und bringt sie 
in alphabetische Reihenfolge. Als Stan¬ 
dardgeräte werden die Tastatur und der 
Bildschirm benutzt. Zumindest die Ein¬ 
gaben werden Sie aber aus einer Datei 
holen wollen: 

A>DIR > INHALT A>SORT < INHALT 

So erhalten Sie - abgesehen von ein 
paar »Schmierzeilen«- ein alphabetisch 
sortiertes Inhaltsverzeichnis auf dem 
Bildschirm ausgegeben. Soll das Ergeb¬ 
nis wieder in eine Datei geschrieben wer¬ 
den. geben Sie ein: 

A >DIR > INHALT A>SORT < INHALT 
> INHALT2 

Und wollen Sie dann gar noch das Er¬ 
gebnis mit MORE auflisten, damit die 
Ausgabe nicht zu schnell vom Bild¬ 


schirm weggleitet, können Sie das so er¬ 
reichen: 

A>DIR > INHALT A>SORT < INHALT 
> INHALT2 A>MORE < INHALT2 

Da wird die Sache aber dann wirklich zu 
umständlich. Das hat wohl auch Micro¬ 
soft erkannt und das sogenannte »Piping« 
eingeführt, das Verketten. Beim Piping 
dienen die Ausgaben des einen Pro¬ 
gramms als Eingaben des nächsten. 

Sie erreichen damit genau dasselbe wie 
im obigen Beispiel, nur einfacher und 
schneller. Die Programme, die beim Pi¬ 
ping benutzt werden sollen und »Filter« 
genannt werden, schreiben Sie in eine 
Kommandozeile und trennen die Namen 
mit dem senkrechten Strich, der den AS- 
CH-Code 124 besitzt: 

A>DIR C: I MORE 

Nur wo um alles in der Welt befindet sich 
der senkrechte Strich auf der deutschen 
Tastatur? Nirgends! Sie müssen ihn mit 
über die Kombination ALT-Zehnerblock 
direkt eingeben; Drücken Sie also die 
ALT-Taste und betätigen dann im Zeh¬ 
nerblock der Reihe nach die Tasten 1,2 


und 4. Dann lassen Sie ALT wieder los, 
und das Zeichen erscheint. Umständlich, 
aber es funktioniert. 

Nebenbei: DOS-Plus macht dem Benut¬ 
zer die Sache etwas einfacher. Durch 
gleichzeitiges Drücken der Tasten ALT, 
SHIFT und < > erhalten Sie hier auch 
den senkrechten Strich. Leider funktio¬ 
niert dieser Trick unter MS-DOS nicht. 

Zurück zu MS-DOS: Es legt die Zwi¬ 
schendatei auf dem gerade angemeldeten 
Laufwerk an. Dumm ist es nur, wenn ge¬ 
rade dieses Laufwerk von DIR abgefragt 
wird. Dann — und nur dann — wird in 
der Zieldatei auch die Zwischendatei 
sichtbar. Sie trägt einen komischen Na¬ 
men wie 0F36231F oder 0F362325. Das 
sind nicht irgendwelche Zufallsnamen. 
Mit etwas Knobelei kommt man hinter 
deren Bedeutung: Es ist die Uhrzeit, zu 
der die Dateien erzeugt wurden, hexade¬ 
zimal dargestellt: 

OF = 15 36 = 51 23 = 35 1F = 31 

Also war es genau 15.51.35 und 31/100 
Sekunden, als die Datei erzeugt wurde. 
Dadurch, daß immer die aktuelle Uhrzeit 
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als Name benutzt wird, können auch 
mehrere Zwischendateien gleichzeitig 
offengehalten werden, ohne daß sich die¬ 
se gegenseitig ins Gehege kommen. 

Ein beliebter Filter ist folgender: 

A > DIR B: I SORT I MORE 

Dadurch erhält man auf dem Bildschirm 
ein schön sortiertes Inhaltsverzeichnis 
und hat Gelegenheit, alle Dateien zu le¬ 
sen, weil MORE wartet, bis man eine 
Taste drückt. 

SORT besitzt noch zwei praktische Op¬ 
tionen. Die eine lautet /R und bewirkt, 
daß die Datei in umgekehrter Reihenfol¬ 
ge (»reverse order«) sortiert wird: 

A > DIR B: I SORT =R I MORE 

Die andere erwartet eine Spaltenangabe, 
ab der beim Sortieren der Vergleich be¬ 
ginnt. So lassen sich Dateien alphabe¬ 
tisch nach der Namenserweiterung sor¬ 
tieren: 

A>D1R B: I SORT =+9 

Auch lassen sich beide Optionen kombi¬ 
nieren: 

A>DIR B: 1 SORT =+9 =R I MORE 

Und noch etwas aus der berüchtigten 
MS-DOS Technical Reference Encyclo- 
pedia von Microsoft. Wieviele Fehler 
enthält die folgende Zeile, die dieses 
Buch für korrekt hält? 

A>DIRI SORT 1+25 

Richtig, drei! Der umgekehrte Schräg¬ 
strich müßte ein normaler Schrägstrich 
sein, das Datum beginnt in der vierund¬ 
zwanzigsten Spalte und ... das Datum 
wird im Format Tag-Monat-Jahr ange¬ 
zeigt. Das 1053-Seiten-Werk wurde in¬ 
zwischen vom Verkauf zurückgezogen 
und — auch wegen einiger anderer Feh¬ 
ler - eingestampft. 

Im übrigen können Sie das Piping und 
die Ein- und Ausgabeumlenkung auch in 
einer Befehlszeile kombinieren. Wie 
wäre es damit: 

A > SORT < datei I MORE 


Noch ein Filter 


Zwei Filter, SORT und MORE, kennen 
Sie bereits. Eine Zwischenstellung zwi¬ 
schen richtigen Programmen und Filtern 
nimmt FIND.EXE ein. Es durchsucht 
Dateien nach Zeichenketten und zeigt die 
Fundstellen an. Sie können es einerseits 
mit dem Namen einer zu untersuchenden 
Datei aufrufen: 

A > FIND»A«GEM3.BAT 


Der gesuchte Begriff steht hier in Anfüh¬ 
rungszeichen. Im Gegensatz zu CP/M 
wandelt MS-DOS diesen nicht automa¬ 
tisch in Großbuchstaben um. Sie können 
daher auch nach Kleinbuchstaben oder 
nach gemischter Schreibung suchen: 

A > FIND»a«GEM3 .BAT 
Der zweite Verwendungsbereich von 
FIND liegt bei den Filtern. Hier lassen 
Sie den Namen der zu untersuchenden 
Datei weg. Daran erkennt FIND, daß es 
seine Daten aus einer Pipe-Datei be¬ 
kommt: 

A>DIR I FIND»COM« 

Hier sucht FIND nach allen Zeilen, in 
denen die Zeichenkette »COM« vor¬ 
kommt. Einen wirklich praktischen 
Zweck erfüllt der folgende Aufruf. Er 
zeigt alle Dateien an, die an einem be¬ 
stimmten Tag erstellt wurden: 

A>DIR I FIND»13.06.87« 


Und bei Fehlern? 


Die Ein- und Ausgabeumleitung arbeitet 
nur mit den beiden Kanälen, die Micro¬ 
soft »Standardeingabe« und »Standard¬ 
ausgabe« nennt. 

Wenn während einer Operation ein Feh¬ 
ler auftritt, wird eine entsprechende Mel¬ 
dung aber nicht auf den Standardausga¬ 
bekanal, sondern über den Standardfeh¬ 
lerkanal geschickt. Einen Unterschied 
merken Sie bloß normalerweise nicht, 
weil diese beiden logischen Kanäle glei¬ 
chermaßen den Bildschirm als physika¬ 
lisches Gerät benutzen. Sobald Sie aber 
die Standardausgabe umleiten, bleibt der 
Standardfehlerkanal immer noch auf den 
Bildschirm gerichtet. 

Wozu dieser ganze Aufwand? Einfache 
Antwort: Wenn bei der Ausgabe bei¬ 
spielsweise in eine Diskettendatei die 
Diskette zu voll wird, erscheint auf dem 
Bildschirm eine Fehlermeldung. Würde 
man diese aber in eben die Datei umlei- 
ten, würde man nicht nur den Fehler 
nicht sehen, sondern der Fehler würde 
sogar noch verschlimmert. Denn in eine 
gefüllte Datei noch eine Fehlermeldung 
hineinzuschreiben, brächte MS-DOS in 
eine Endlosschleife, die man nur durch 
einen Systemreset stoppen könnte. 


Nicht nur Dateien 


Im Gegensatz zu CP/M unterscheidet 
MS-DOS nicht mehr zwischen block- 


und zeichenorientierten Peripheriegerä¬ 
ten. Das wissen Sie ja schon von COPY, 
wo gleichermaßen Dateinamen und Ge¬ 
rätenamen wie PRN oder COM1: ver¬ 
wendet werden können. Da ist es nur 
konsequent, daß MS-DOS auch bei der 
Umleitung der Ein- und Ausgabe Gerä¬ 
tenamen gestattet. 

Wollen Sie beispielsweise ein Inhaltsver¬ 
zeichnis der Diskette auf dem Drucker 
sehen, aber nicht mit CONTROL-P ar¬ 
beiten, weil dann stets die letzte Zeile auf 
dem Papier »A > «lautet, geben Sie ein: 

A>DIR >PRN 

Oder haben Sie einen anderen Computer 
an die serielle Schnittstelle Ihres PCs an¬ 
geschlossen und wollen nun von dort aus 
ein Programm bedienen, tippen Sie: 

A>EDLIN DEMO.TXT <COMl: 

Das besondere Gerät NUL: wird auch 
unterstützt. Es läßt Bildschirmausgaben 
im Nichts verschwinden: 

A> DIR/NUL: 

Wozu das gut sein kann, werden Sie spä¬ 
ter bei der Beschreibung der Batchdatei¬ 
en erfahren. 


Und DOS-Plus? 


Auch DOS-Plus kann prinzipiell mit der 
Ein- und Ausgabeumlenkung und auch 
dem Piping etwas anfangen — prinzi¬ 
piell. Denn unverständlicherweise ist 
man hier auf halbem Wege stehengeblie¬ 
ben und einfach die Filterprogramme 
MORE, SORT und FIND »vergessen«. 

Nun gut, dann nehme man halt die Pro¬ 
gramme von MS-DOS 3.2. Geht nicht! 
Jeder der Filter prüft die Versionsnum¬ 
mer des Betriebssystems und stoppt da¬ 
nach sofort wieder, weil DOS-Plus ja als 
Versionsnummer »DOS 2.11« zurück¬ 
gibt. 

Wenn Sie aber unbedingt einmal auch 
unter DOS-Plus das Piping in Aktion se¬ 
hen wollen, müssen Sie schon zu etwas 
komischen Mitteln greifen. Wie wäre es 
damit: 

A>DIR I N 

Einen besonderen Sinn dürfen Sie darin 
nicht suchen: Der Cursorbalken flim¬ 
mert wie wild hin und her, und damit hat 
es sich. 

(M.Kotulla) 
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BASIC2 verständlich 

Folge 7: Diskverwaltung 

Wie in der fünften Folge der Serie »BASIC2« verständlich, wollen wir uns 
heute mit den restlichen »GEM-Window« spezifischen Kommandos aus¬ 
einandersetzen und mit einem umfangreichen Kapitel — der Disketten¬ 
verwaltung — unter BASIC beginnen. 


In Folge fünf wurde angekündigt, die Be¬ 
fehle zu erwähnen, die es erlauben, die 
Benutzerkoordinaten so zu wählen, daß 
die Graphik in dem entsprechenden Fen¬ 
ster nicht verzerrt abgebildet wird. 
BASIC2 hat von GEM wichtige Funktio¬ 
nen hierfür übernommen. Mit diesen 
Funktionen können Sie anhand eines 
Zahlen wertes feststellen, wie sehr der 
Bildschirm verzerrt ist. 


XPIXEL und YPIXEL 


Bei BASIC2 haben Sie eine Auflösung 
von 640x200 Pixeln. Durch die User¬ 
koordinaten können diese Werte verän¬ 
dert werden. Um festzustellen, wieviel 
Benutzerkoordinaten einem »echten« Pi¬ 
xel entsprechen, existieren die Kom¬ 
mandos 

XPIXEL(# stream) 
und 

YPIXEL(#stream) 

Gibt die Funktion Ihnen zum Beispiel 
den Wert »4.5678« zurück, so heißt dies, 
daß »4.5678« User-Koordinaten einem 
Pixel entsprechen. Soviel als Grundlage 
für den nächsten Themenbereich. 


Kreis = Ei 


Wenn Sie die Fenster-Demonstration aus 
Folge fünf abgetippt haben, so geben Sie 
einmal das Kommando 
CIRCLE #1,500:500,200 
ein. Sie sehen, der Kreis ist eigentlich 
keiner, es wurde ein ziemliches »Ei« auf 
den Bildschirm gezeichnet. Dies liegt 
daran, daß die Benutzerkoordinaten so 
gewählt wurden, daß sowohl in x-, als 
auch in der y-Richtung des Koordinaten¬ 
systems der Wert 1000 optiert worden 
ist. Es kann deshalb nur eine Ellipse wer¬ 
den, da das Fenster, wie man sehen 
kann, doppelt so breit wie hoch ist. Das 
Kommando 

Breite und Höhe eines Fensters 

USER #1 SPACE 1000,1000 

in dem Unterprogramm »Fenster 1« ist 

aus diesem Grund der »Verursacher«. 


Wie kann man Abhilfe schaffen? Wollen 
wir einmal mit unseren »GEM-Kom- 
mandos« die x- und y-Werte des Koor¬ 
dinatensystems bestimmen. Dazu müs¬ 
sen wir folgende Befehlsfolgen ver¬ 
wenden: 

x=XWINDOW<# 1)*XPIXEL(# 1) 
y=YWUMDO W( # 1)*YPIXEL(# 1) 

Das Ergebnis der Variablen »X« und »Y« 
ist in jedem Fall 1000. Dies ist auch nicht 
weiter verwunderlich, da wir die Bild¬ 
schirmkoordinaten auch so gewählt ha¬ 
ben. Mit der Systemvariable 

YASPECT( # stream) 

können Sie feststellen, wie sehr der Bild¬ 
schirm in y-Richtung verzerrt ist. »XA- 
SPECT« gibt es bei dieser Funktion 
nicht! Geben Sie 

?YASPECT(# 1) 

Benutzer-Koordinaten berechnen 

ein. Es wird der Wert »0.376305256« im 
Dialogfenster ausgedruckt. Das heißt, 
daß die y — Koordinate »Schuld« an der 
Verzerrung hat. Um die richtigen Benut¬ 
zerkoordinaten herauszukriegen, müssen 
Sie, in unserem Beispiel, nur noch die 
Zahl 1000 — also den y - Wert - mit 
der Fließkommazahl der Funktion YAS- 
PECT multiplizieren, dann haben Sie 
den richtigen Wert für die Größe der y- 
Koordinate. In etwa ist das der Skalar 
»376.31«. Wenn Sie jetzt noch dem PC 
die neuen Benutzer-Koordinaten mittei- 
len, so wird unser Kreis auch wirklich 
ein Kreis. Versuchen wir es. 

Tippen Sie 

USER # 1 SPACE 1000,1000* 
YASPECT(# 1) 

ein. Obwohl wir die Koordinaten der y- 
Richtung schon ausgerechnet haben, 
wollen wir die Größe überprüfen, hier¬ 
zu verwenden Sie bitte die oben erklär¬ 
te Methode zur Bestimmung der Werte. 
Wenn wir nun einen Kreis auf dem Bild¬ 
schirm darstellen wollen, vergessen Sie 
bitte nicht, daß sich die Benutzerkoordi¬ 
naten verändert haben, Sie können da¬ 
durch nicht mehr einen Kreis mit dem 
Mittelpunkt »500;500« verwenden, da 
dies zu große Werte sind. Geben Sie zum 
Beispiel 


CIRCLE #1,500:250,100 

ein. Sie sehen, der Kreis ist endlich — 
wie jeder normale — rund. Eine kleine 
Aufgabe: Wie stellen Sie den genauen 
Mittelpunkt des Windows fest? 


Der Mittelpunkt 
aufs Komma genau 


Die Lösung haben wir schon in einem 
anderen Zusammenhang erwähnt. Sie 
lautet folgendermaßen: 

STREAM # 1 xm=(XWINDOW *XPIXEL)/2 
ym.=(YWINDOW * YPIXEL)/2 
CIRCLE xm;zm,100 

Haben Sie es gewußt? Sicherlich, so 
schwer ist es ja noch nicht. An diesem 
kleinen Programmbeispiel wird Ihnen 
bestimmt deutlich, wie wichtig die Sy¬ 
stemvariablen sind. Ohne diese, werden 
Ihre Programme ziemlich unflexibel. 


Der Computer wählt 
User-Koordinaten 


Die Methode zum Bestimmen der Koor¬ 
dinaten, die keine Verzerrung ergeben, 
ist etwas aufwendig. Viel einfacher wäre 
es, wenn der Computer diese selbst aus¬ 
rechnen würde. Dies geht auch mit ei¬ 
nem kleinen Trick. Geben Sie beim 
Kommando »User Space« nur eine Zahl 
an. Der Computer erledigt den Rest. 
Wollen wir dies wieder an unserem Fen¬ 
ster aus der Window-Demonstration er¬ 
proben. Das Kommando lautet: 

USER # I SPACE 1000 

Die Benutzerkoordinaten wurden geän¬ 
dert. Wollen wir feststellen, welchen 
Wert der Computer für die x- Richtung 
berechnet hat. Mit unserer kleinen Be¬ 
fehlsfolge 

X=XWINDO W( # 1)*XPIXEL(# 1) 

erhalten wir einen gerundeten Wert von 
»2657«. Aha, der Rechner hat also einen 
anderen Wert berechnet, als wir es zuvor 
mit unserer Methode getan haben. Wenn 
wir uns überlegen, ist dieser Wert eigent¬ 
lich auch sehr viel logischer, da die x- 
Richtung im Koordinatensystem um ei¬ 
niges größer ist. Bleibt noch eine Frage 
offen. Wie ist der Schneider PC auf diese 
Zahl gekommen. Er hat den Wert, den 
YASPECT liefert, nicht mit 1000 mul¬ 
tipliziert, wie wir, sondern er hat ihn in 
diesem Fall dividiert. Also: schön, wenn 
man weiß wie es geht, aber überlassen 
wir es in Zukunft dem Computer. 
So, Schluß mit dem wirklich sehr theo- 
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Abb. 1 


reti sehen Thema »Benutzer-Koordi¬ 
naten«. 


Breite und Höhe 
in Metern! 


GEM ist, in einigen Bereichen an Funk¬ 
tionen übersättigt. Es gibt unter BASIC2 
Befehle, die es erlauben, den Ausgabe¬ 
bereich eines »Streams« — also eines 
Fensters, Druckers usw. — in Metern 
festzustellen. Für was braucht man dies 
um alles in der Welt, werden Sie sich , 
wie ich Anfangs auch, fragen. Kleines 
Beispiel. Sie wollen ein Programm 
schreiben, welches Ihnen auf dem Prin¬ 
ter Etiketten ausdrucken soll. Damit das 
Label genau auf Ihre Disketten paßt, soll¬ 
te es also eine Größe von 5x3 Zentime¬ 
ter haben. Um dies zu schaffen, gibt es 
zwei Möglichkeiten. Die eine ist:auspro- 
bieren, die andere ist die Verwendung 
der Systemvariablen 

XMETRES( # stream) 
und YMETRES( # stream) 

Wie es der Name schon vermuten läßt, 
mit dieser Funktion bekommen sie die 
Breite und die Höhe des Ausgabe Stre¬ 
ams in Metern zurückgeliefert. Es 
kommt noch besser. Durch Kombinieren 
der einzelnen Variablen kann man sogar 
die Breite und Höhe eines Pixels bestim¬ 
men. Verwenden Sie hierfür bitte folgen¬ 
de Programmzeilen. 

hö= 1000 *(XMETRES( # stream)=XDEVICE) 
br = 1000 *(YMETRES( # stream)=YDEVICE) 

Die Höhe des Pixels wurde in Millime¬ 
ter umgerechnet. Und für ein Fenster 
gibt es ebenfalls eine Möglichkeit, die 
Größe zu berechnen. Es ist folgende: 

breite=(XWlNDOW( # str)*XPIXEL( # str) 
=( 1000*XMETRES( # str)) 
höhe =(YWINDOW( #str)*XPIXELX # str) 
=(1000*YMETRES( # str)) 

Wer es nicht glaubt, der kann sein Win¬ 
dow am Monitor mit Maßband abmes¬ 
sen. Nehmen Sie es aber nicht gar zu 
ernst! 


Verändern des Ursprungs 


Es gibt noch einige andere Variationen, 
wir wollen darauf aber nicht mehr wei¬ 
ter eingehen. Das Prinzip dürfte klar 
sein. 

BASIC2 kann ebenfalls, wie das bekann¬ 
te CPC-BASIC auch den Koordinatenur¬ 
sprung verändern. Mit dem Kommando 

USER # stream ORIGIN x;y 


erreichen Sie dies. Um Punkte, die un¬ 
terhalb des Graphikurspmngs liegen, an¬ 
zusprechen, müssen negative Koordina¬ 
ten benutzt werden. Da ich annehme, 
daß Ihnen dieses Kommando bereits von 
anderen Sprachen her bekannt ist, will 
ich nicht näher darauf eingehen. 


Diskettenbefehle 


Das Softwarehaus »Locomotive« hat in 
BASIC2 auch relative und sequentielle 
Diskettendateien integriert. Des Weite¬ 
ren gibt es die sogenannten Schlüsselda¬ 
teien. Da dieses Thema sehr umfang¬ 
reich ist, wollen wir es auf eine spätere 
Folge verschieben. BASIC2 hat aber 
noch eine Menge mehr an Diskettenbe¬ 
fehlen. Diese sollen jetzt erklärt werden. 

Das Kommando 
DER joker 

»Joker« steht hierbei für eine sog. ’Wild- 
card’. 

DER *.BAS 

listet im Dialog-Fenster alle Dateien auf, 
die die Extension »BAS« haben. Wie ge¬ 
sagt, es ist das gleiche Kommando wie 
unter dem DOS. Es gibt noch ein Kom¬ 
mando, daß fast die gleiche Funktion, 
wie »DIR« hat. Der Befehl trägt den 
Namen: 

FELES # stream,string 

Sie sehen an der Parameterauflistung, 
daß dieses Kommmando als »Joker« ei¬ 
nen String erwartet. Ebenso haben Sie 
die Chance, die Ausgabe über einen Stre¬ 
am zu leiten. Wollen Sie Ihre Files auf 


den Drucker ausgeben, müssen Sie fol¬ 
gendes Kommando verwenden: 

FILES #0,«*.TXT« 

Es werden alle Dateien auf den Printer 
ausgedruckt, die den Extension »TXT« 
haben. Nicht vergessen, die Wildcard 
muß als String angegeben werden. 
Auch aus der DOS Ebene wurde »Type« 
übernommen. 

TYPE RE AD. ME 

zeigt Ihnen die ASCII-Datei »READ. 
ME« im Dialog-Fenster an. Wie bei al¬ 
len anderen Kommandos auch, gibt es 
hier wieder einen parallen Befehl. Mit 

DISPLAY #stream,string 

kann dieselbe Funktion ebenso wie bei 
»DIR« über Streams geschickt werden. 
Die Datei, die sinnigerweise ein ASCII- 
File sein sollte, muß wiederum in einem 
String angegeben werden. 

DEL datei ERASE datei 
die Befehle zum Löschen einer Datei 
sind auch vertreten. Das Kommando, 
welches auch Zeichenketten verarbeiten 
kann, heißt: 

KILL string 

DEL, ERASE und KILL haben alle die 
gleiche Auswirkung. 

Zu guter Letzt noch das Kommando zum 
Umbenennen von Dateien. Zumeinen ist 
das 

REN dateil datei2 

und zum anderen 

NAME string 1 AS string2 

Wieder nur der Unterschied, daß das 

eine Kommando Strings benötigt, das 

andere nicht. 
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Wenn Sie das Laufwerk wechseln wol¬ 
len, müssen Sie auf das Kommando 
DRIVE string 

zurück greifen. Hier gibt es nur diese 
Möglichkeit. Um auf Drive »B« zu schal¬ 
ten, geben Sie 

DRIVE »B« 
ein. 

Zur Inhaltsverzeichnisverwaltung gibt es 
wieder zwei verschiedene Befehle. 

CD verz 
und 

CHDIR string 

Zum Löschen der Directories dient das 
Kommando 

RD verz 
und 

RMDIR string 

Zum Erzeugen der Verzeichnisse gibt es 
zu guter Letzt noch: 

MD verz 

Wenn Sie einen String verarbeiten wol¬ 
len, verwenden Sie bitte: 

MKDIR string 

Unverständlicherweise ist die anschei¬ 
nend beabsichtigte Kompatibilität zu 
MS-DOS nicht ganz geglückt. Für den 
vom DOS her bekannten Befehl »VOL« 
gibt es nur eine Version. Die Funktion 

CHDIR$ 

stellt das aktuelle Inhaltsverzeichnis fest. 
»PRINT CHDIR-« druckt auf den Bild¬ 
schirm das neue Verzeichnis aus. Das 
Laufwerk wird dabei angeschaltet, es 
muß sich also eine Diskette in der Flop¬ 
py befinden. 

Soviel zu diesen Kommandos. 


Nützliche Befehle 
für das Directory 


Ein meiner Meinung nach sehr nützli¬ 
cher Befehl ist: 

FIND$(string,nurnmer) 

»String« ist dabei eine Wildcard. Num¬ 
mer steht für eine Integer Zahl. Mit die¬ 
ser Funktion können Sie den gerade ak¬ 
tuellen Directory sozusagen untersu¬ 
chen. Das Kommando sucht nach einer 
Datei, die in »String« übergeben wird. 
Wie schon oben erwähnt, können Sie 
auch Joker einsetzen. Ein kleines Pro¬ 
gramm, welches ebenfalls das Inhaltver¬ 
zeichnis ausgibt, könnte wie folgt lauten: 

REPEAT 

Zähler=Zähler +1 


M IMASTER 

.BAS 

HVPo 


HYPO 

.TUT 

■V'VHa'H 

n:\rn 

■ ■ «ICO 

REKKft 

.COM 

REKKA 

.PAS 

REKKA 

■ IXT 

SVATCH 

.ASM 

SWATCH 

■ COM 

SVATCH 

.TXT 


Abb. 3 


a$ =FIND$(" *" .Zähler) 

PRINT a$ UNTH a$="" 

Die Funktionsweise des Befehls dürfte 
nun klar sein. 

Ein ähnliches Kommando gibt es auch 
für die Inhaltsverzeichnisse. Dieses trägt 
den Namen: 

FINDDIR$(string, nummer) 

Der String ist wieder ein Joker, nur daß 
keine Extension mit angegeben werden 
muß. Beim Parameter »Nummer« hat 
sich nichts geändert. Auch hierzu ein 
kleines Demonstrationsprogramm: 
REPEAT 

Zähler=Zähler +1 
a$=HNDDIR$(" *" .Zähler) 

PRINT a$ UNTIL a$="" 

Sie stellen fest - ziemlich gleich. 
Korrekterweise sollten wir noch jenes 
Kommando aufzählen, das einen Disket¬ 
tenwechsel anmeldet: 

RESET 

Vor einem Disketten Wechsel empfehle 
ich, dieses Kommando vorsichtshalber 
immer anzuwenden. 

Einen Befehl, der die Länge einer Datei 
feststellt, gibt es ebenfalls im Befehlssatz 
von BASIC2. Um dieses Kommando 


BASIC2 . 
ßEMDESK . 
GEHSYS . 
GEtlAPPS . 
OOODLE .APP 
DISKCOPY.CQn 
NUR .EXE 

RPED .EXE 

DQOOLE .RSC 


<D IR> 

<DIR> 

<DIR> 

< DI R> 

28672 Bytes 
808B Bytes 
8797 Bytes 
4804 Bytes 
2336 Bytes 


6 Einträge im Directory 
53757 Bytes in Dateien 

Abb. 2 


verwenden zu können, muß die Datei mit 
dem Befehl »Open« geöffnet sein. Die¬ 
ses Kommando erklären wir erst in der 
nächsten Folge von »BASIC2 verständ¬ 
lich«. 

Für Neugierige trotzdem den Syntax des 
Befehles. 

LOF(#stream) 

»LOF« ist die Abkürzung für »Length of 
file«. Die Länge der Datei wird in Bytes 
angegeben. Dabei ist es nicht relevant, 
ob es sich um ASCII Dateien handelt. 


Die Programme 


Listing Nummer eins zeigt Ihnen eine 
schöne Anwendung für diese Befehle. 
Das Programm simuliert die Ausgabe ei¬ 
nes Directories, wie man es von DOS her 
gewohnt ist. Das BASIC-Listing zeigt 
zugleich, daß man mit BASIC2 auch 
Programme schreiben kann, ohne die 
fehlenden Befehle PEEK und POKE zu 
verwenden. 

Oder kann man zum Beispiel mit dem 
CPC-BASIC einen Directory auf den 
Drucker ausgeben und die Länge einer 
Datei bestimmen ohne diese Funktionen 
zu verwenden? Die Menüauswahlroutine 
aus Folge sechs haben wir soweit verän¬ 
dert, daß man Files, die sich auf Diskette 
befinden, mit der Maus aus wählen kann. 
Die Routine sortiert diese gleich alpha¬ 
betisch und paßt die Größe des Fensters 
automatisch an. Die Routine können Sie 
sehr leicht in eigene Programme einbau¬ 
en. Haben Sie bei BASIC2 vielleicht 
auch schon die Befehle »Load«, »Save«, 
»CHAIN«, »RUN datei« und »MERGE« 
vermißt? Diese Kommandos gibt es 
nicht! Leider, kann man dazu nur sagen. 
Etwas Abhilfe kann man schaffen, wenn 
man bedenkt, daß die BASIC2-Program¬ 
me ASCII-Files sind. Es gibt also die 
Möglichkeit, Dateien zusammenzubin¬ 
den. Rein programmiertechnisch sind 
Sie erst in der Lage, dies nach der näch¬ 
sten Folge zu erledigen, ich möchte Ih¬ 
nen jedoch nicht dieses wichtige Tool 
vorenthalten. Das Programm heißt 
»Merge Simulation« und wird im näch¬ 
sten Heft genauer besprochen. 

So, wir haben es für diese Ausgabe von 
»Schneider PC International« wieder ein¬ 
mal geschafft. Wie schon angekündigt, 
wollen wir uns in der nächsten Folge voll 
und ganz der relativen und sequentiellen 
Datei Verwaltung widmen. Es gibt aber 
auch noch verschiedene Schriftarten un¬ 
ter BASIC2 zu besprechen. 

(Christian Eißner) 
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Drum prüfe, wer sich ewig bindet, 

77 ob sich nicht doch was Bessres findet. 


Gesucht - 
Gefunden: 





iwelitcr I**»9wmö1: 


Schneiderl 


SD24 


SD 24 - 24-Nadel-Drucker von Schneider 
Data. Für den anspruchsvollen PC-Anwen- 
der bietet SchneiderData einen äußerst 
preiswerten Matrixdrucker der Spitzen¬ 
klasse. 

Mit der hohen Schriftqualität, ähnlich 
eines Typenrad-Druckers und den vielfälti¬ 
gen Möglichkeiten des Matrixdruckers 
werden hier höchste Ansprüche erfüllt. 
Besondere Merkmale: 

24-Nadel-Druckkopf • 12 verschiedene 
Schriftarten • Bedienung wichtiger Funk¬ 
tionen über Tasten an der Frontseite • 
Äußerst leises Druckgeräusch • Halbauto¬ 
matische Papierzufuhr - Automatischer 
Einzelblatteinzug optional • Traktor se¬ 
rienmäßig • 16-kB-Pufferspeicher • Mög¬ 
lichkeit der freien Zeichendefinition 
(Download) • Druckgeschwindigkeit ca. 
135 cps im EDV-Druck, 54 cps im LQ- 
Druck • Zeichensatz und Befehlsstruktur • 
umschaltbar zwischen EPSON LQ1500 
und IBM-Graphikdrucker Modus • Inter¬ 
face: Centronics parallel. 


1,1 MMwäteü 1 .r«! VI! 
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24-Nadel-Drucker 


SchneiderData Computer Vertriebs GmbH 

Rindermarkt 8 • 8050 Freising 
Telefon 08161/2877 
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reo 

REM --+ 

REM + Schneider PC International + 

REM + BASIC2 Kurs + 

REM + by Christian Eißner 87' + 

REM + Dateiausuahlroutine + 

REM +-+ 

DIM ykoCO TO 503,dateiSC0 TO SOJ.FarbeCO TO 503 
aus-l:wildnartS“"».BAS” 

GOSUB mBnü_init 
GOSUB fenster_aufbau 
GOSUB manü.beschriften 
GOSUB mousB_routina 

CLOSE laus 

END 

LABEL fenster_aufbau 

CLOSE UIINDOUI 3 
CLOSE UlINOOLi ** 

FOR i-1 TO 4 
CLOSE «i 
NEXT i 

OPEN «aus WINDOW 1 

SCREEN «aus TEXT 16 FIXED,anzahl+1 FIXED INFORMATION OFF 

WINDOW «aus MOUSE H 

WINDOW «aus SIZE 1B,anzahl+1 

WINDOW «aus PLACE 10,YU5ABLE-YACTUALC«13 

WINDOW «aus CURSOR OFF 

WINDOW «aus TITLE "Warten..." 

WINDOW «aus OPEN 
RETURN 

LABEL menü_init 

zähler-0 

REPEAT 

zähler-zähler +1 

dateiS C Zähler 3-FINDS C uildcartS,Zähler 3 

datBiSCzählar 3-STRING*CS,323+datei$Czählsr3+STRINGSC18,321 
dateiSC2ähler3“dBtsiSCzähler3äl TO 16ü 
ykoCzähler 3-Zähler 
UNTIL dateiSCzähler3-STRINGSC16,323 
anzahl-zähler-1 
RETURN 

LABEL menü_beschriFten 

GOSUB sortieren 

WINDOW «aus TITLE "Drucken..." 

FC13-H:FCa3-ia 
FOR i-1 TO anzahl 
z-z+1 

FarbeCi3-FCz3 
IF z-2 THEN z-0 
NEXT i 

FOR i-1 TO anzahl 

PRINT «aus.COLOUR CFarbeCi33 dateiSCil; 

NEXT i 
RETURN 

LABEL mouse_routine 

WINDOW «aus TITLE "Ausuiahl” 
ykoCO3-1:dateiSC03-"" 

REPEAT 
• xm-XMOUSE 
ym-YMOUSE 
xm-xm-XPLACE C «aus 3 
ym-ym-YPLACE C «aus 3 
morker-markor+l 

IF markaO-150 THEN PRINT «aus CHRSC73;:merkar-O 
IF xm<“0 OR xm>-XWIND0UC«aus3 THEN xm-FALSE:ym-FALSE 
IF ym<-0 OR ym>-YUlNDDUC«aus3 THEN ym-FALSE:xm-FALSE 
xm-lNTCxm/B):ym-INTCym/B) 
ym-anzah1+1-ym 

IF ym>-anzahl*I THEN ym-FALSE 
uahl-FALSE 
FOR i-i TO anzahl 
IF ykoCil-ym THEN uiahl-i 
NEXT i 

UNTIL BUTTONO-1 

IF uiahloO THEN PRINT «aus, ATC1; ykoCuiahl 3 3 EFFECTSC6H3 dateiSCwahl); 

dataiS-dateiSCuiahl )«3 TO ISO 

WINDOW «aus TITLE dataiS 

FOR z-1 TO SOOD:NEXT Z 

RETURN 

LABEL sortlareo 

WINDOW «aus TITLE "Sortieren..." 

FOR i-1 TO anzahl-1 
FOR u-i+1 TO anzahl 

IF dateiSCi3<-dateiSCu3 THEN GOTO Jump 
hS-dateiSCi) 
dataiSCi3-datoi«Cy3 
dateiSCy3-hS 
LABEL Jump 
NEXT y 
NEXT 1 
RETURN 


REH +-+ 

REM + Schneider PC International + 

REM + BASIC2 Kurs + 

REfl + by Christian Eißner B7 ’ + 

REM + Merge Simulation + 

REM +-+ 

CLEAR RESET 

SET #1 FONT CI) POINTS CIO) COLOUR CI) 

INPUT "Dateiname l:”,datlS 
INPUT "Dateiname 2:”,dat2S 
CLS #1 

OPEN #5 APPEND datlS 
OPEN #S INPUT datES 
UHILE NOT E0FC#6) 

LINE INPUT #6,aS 
PRINT #5,aS 
L1END 
CLOSE #5 
CLOSE #B 

PRINT #1,"Datei zu ”+datl$+” zusammengebunden 
END 



REM -+ 

REM + Schneider PC International + 

REM + BASIC2 Kurs + 

REM + by Christian Eißner 87’ + 

REM + Directory-Simulation + 

REM - + 

CLEAR RESET 
STREAM #0 
aus-5 
REPEAT 

zähler-zähler+1 
aS=FINDDIRSC”*”,zahler) 

IF a$<>"” THEN PRINT a$+" <DIR>” 

UNTIL a$-"” 
unterverz-zähler 
zähler-0 
REPEAT 

zähler-zähler+1 
a$»FIND$CZähler) 
rc-OPEN «aus INPUT aS 
IF a$<>”” THEN a=LOFC#aus):b-b+a 
IF aS<>”” THEN PRINT a$+" ”+STR$Ca)+” Bytes 
CLOSE «aus 
UNTIL aS-”” 

PRINT 

PRINT zählBr;"Einträge im Directory” 

PRINT b-, "Bytes in Dateien" 

END 
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PAINT without pain... 


Die folgenden Tips sind zwar spe¬ 
ziell für Benutzer der VORTEX- 
Drivecard gedacht, können aber 
unter Umständen auch bei der 
Installation von GEM auf anderen 
Harddisks verwendet werden. 

Es ist ein lobenswertes Vorgehen von 
VORTEX, fiir die wirklich nervenauf¬ 
reibende Installation von GEM auf der 
Drivecard gleich die nötigen Batchfiles 
mitzuliefem. Leider wurde dabei verges¬ 
sen, das Programm GEM PAINT samt 
Bildern gleich mitzukopieren. Das fol¬ 
gende File »PAINTINI.BAT« holt dieses 
nach. 

Installieren Sie zunächst GEM wie im 
Handbuch zur Drivecard beschrieben 
mit »GEMINITx«. Tippen Sie dann das 
Batchfile »PAINTINI.BAT« ein (RPED 
o.ä.). Legen Sie die DOSPLUS-Disk 
(Nr.4, gelb) und die MSDOS-Disk (Nr. 
1, rot) bereit. Starten Sie PAINTINI und 
wechseln Sie die Disketten nach Auffor¬ 
derung. Nach Ablauf der Batchdatei ist 
GEM PAINT nebst den Demobildem an 
der richtigen Stelle auf der Drivecard. 


Listing: PAINTINI.BAT 

PAUSE - Bitte DOS PLUS Diskette einlegen - 
COPY A: \ GEMAPPS W C: \ GEMAPPS 
PAUSE - Bitte MS DOS Diskette einlegen - 
MD C: \ IMAGES COPY A: \IMAGES \ *.* 
C: \ IMAGES ECHO - GEM PAINT out 
Harddisk installiert - 

Anschließend empfiehlt es sich (es emp¬ 
fiehlt sich generell...), das File GEM- 
START.BAT noch etwas aufzupolieren. 
Bearbeiten Sie GEMSTART.BAT so¬ 
lange mit RPED, bis es wie das folgen¬ 
de Listing aussieht: 

Listing: GEMSTART.BAT 

PAUSE - Diskette in Laufwerk A einlegen - 

ECHO OFF 

MOUSE 

PATH A:\BASIC2 
CD \ GEMSYS 
GEMVDI % 1 %2 %3 

Damit erreichen Sie zwei Dinge. Zum 
Einen wird explizit daran erinnert, daß 
beim Start von GEM eine Diskette in 
Laufwerk A sein muß, es wird somit ein 
Systemabsturz verhindert. Zum Anderen 
wird sichergestellt, daß der Maustreiber 



initialisiert ist (ich persönlich werfe ihn 
unter MSDOS immer raus...) — denn 

GEM ohne Maus ist wie.(nach 

Belieben auszufüllen). 

Wenn Sie nun GEM wie gewohnt mit 
GEMSTART starten, dürfte eigentlich 
nichts mehr passieren — vorausgesetzt 
Sie legen auf Anforderung eine Disket¬ 
te ins Laufwerk... 

(M. Anton) 


AB D - ZU BE HÖR für alle Schneidei^Com puter 




Papierführung: 

- mit zwei verstellbaren 
Seitenführungen 

- Gerader Papiereinzug 

- Lieferbar in den Farben: 
anthrazit, blau, gelb, grün, 
orange, rot 

DM 39,- /sFr. 39,-/öS 299- 


Bildschirmfilter: 

- vermindert störende 
Reflexionen 

- angepaßt an das Design des 
Monitors 

- leichte Montage 

DM 59,- /sFr. 59,-/öS 475,- 


FD-2 (für 8256): 

DM 579,- /sFr, 579,-/ÖS 4490,- 


RAM-Erweiterung: 

(Original 257er Bausteine!) 

DM 99,- /sFr. 99,-/öS 799,- 


Farbband 2 Stück: 

DM29,50 /sFr. 29,50/ÖS 249,- 





4r 


FD-3 (Blende in Schneider-Beige!) 

RAM-Erweiterung: 
Bildschirmfilter s/w und color: 


HD-CARD (lapine): 

- Automatischer Headlifter 

- Steckerkompatibel 

- komplett montiert auf 
Alu rahmen 



20 MB 

30 MB 

DM 

999,- 

1199,- 

sFr. 

1 099,- 

1 299,- 

öS 

6995,- 

8395,- 


DM 398,- /sFr 420,-/öS 3195,- 
DM 79,- /sFr. 89,-/öS 695,- 
DM 59,- /sFr. 59,-/öS 475,- 


FÜR CPC 464/664/6128: 


Bildschirmfilter: für CTM 644/664 DM 44,-/sFr. 44,-/öS 349,- 

für GT 64/65 DM 39,-/sFr. 39-/öS 299,- 

HANDLERANFRAGEN SIND WILLKOMMEN! 


Alle unsere Produkte werden zu Tagespreisen gehandelt Deshalb 
können die Preise tatsächlich niedriger sein als genannt! 


Das komplette ABD-Zubehör ist bei den Schneider-Computer-Händlern 
sowie bei Hertie, Horten, Kaufhof und Ringfoto erhältlich. 


Deutschland: 

ABD Electronic ■ Zettachring 12 • 7000 Stuttgart SO 
Telefon 0711-7 IS 00 37 


Schweiz: 

Swicom SA, Route de Boujean ■ CH-2502 Biel-Bfenne 
Telefon (032) 422784 oder 231833 


Österreich: 

Wagner Electronics • Hauptstraße 171 • 3001 Mauerbach 
Telefon 0222-8721 66 
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Textverarbeitung IsL^word plus 
speziell für den Sehneider-PC 


Schreiben kann man mit jedem Text¬ 
verarbeitungsprogramm, doch nicht 
jeder kann mit jedem Textverarbei¬ 
tungsprogramm zufriedenstellend 
arbeiten. Ist word plus, entwickelt 
aus der GST-Adaption von der Fir¬ 
ma Schneider-Data aus Freising, 
bietet einen Kompromiß zwischen 
den unterschiedlichsten Einsatzge¬ 
bieten der Textverarbeitung an. 
Serienbrief-Funktion, Grafik-Editor 
und eine leistungsfähige und schnel¬ 
le Rechtschreibkorrektur gehören 
zum Lieferumfang von Ist word 
plus. Trotz des beachtlichen 
Leistungsumfanges ist Ist word plus 
ein ungewöhnlich preisgünstiges 
Programm. 

Zum Lieferumfang des Programmes gehören 
zwei Disketten und ein ca. 100 Seiten umfas¬ 
sendes Handbuch. Die Software selbst ist 
englischen Ursprungs. An der deutschen 
Übersetzung haben Profis ihr Können ge¬ 
zeigt, denn nicht nur das Handbuch ist »ver¬ 
deutscht«, sondern auch alle Menüs und Be¬ 
fehle des Programms sind für »nicht-Ange- 
listen« verständlich. 

Nun zur ersten Überraschung: Ist word plus 
arbeitet im Gegensatz zu den heute üblichen 
PC-Textverarbeitungsprogrammen wie 
Word 3.0 oder Wordstar 3.4 nur in Verbin¬ 
dung mit der Benutzeroberfläche GEM und 
nutzt somit auch alle Vorteile von GEM- 
Desktop aus. Bilder, die mit GEM-Paint 
oder dem 1 st word Zusatzprogramm »Snap- 
shot« erstellt worden sind, können mühelos in 
einen Text eingelesen werden. Schaltet man 
den Grafikmodus ein, sind die Zeichnungen 
auf dem Monitor sichtbar. Grafik und Text¬ 
bausteine sind natürlich kombinierbar. 


Tastatur oder Maus 
zum Eingehen 


Wie schon angemerkt, benötigt Ist word plus 
die Benutzeroberfläche GEM-Desktop zum 
Betrieb. Alle Befehle des Textverarbeitungs¬ 
programms können somit auch per »Maus« 
aktiviert werden. Einheitliche Funktionsauf¬ 
rufe in den verschiedenen Menüs erleichtern 
das Arbeiten mit Ist word plus. 


Rechtschreibkorrektur 


Nun zur zweiten Überraschung: Ist word 
plus besitzt ein eingebautes, beliebig erwei¬ 
terbares Rechtschreib-Korrekturprogramm 
mit etwa 30.000 implementierten deutschen 
Wörtern. Im Gegensatz zu Word 3.0 oder 
Framework, kann man auch während der 
Texteingabe auf das Wörterbuch zugreifen. 
Weitere mir bekannteProgramme, die ähn¬ 
liches leisten wie Ist wordplus, sind nur 
Witchpen und Lightning. 


Erweiterbares Wörterbuch 


Benutzt man die Rechtschreibkorrektur von 
Ist word plus während der Texteingabe, 
wird der Text sofort auf korrekte Schreib¬ 
weise überprüft. Alle Wörter, die Ist word 
plus unbekannt sind, stoppen die Recht¬ 
schreibkorrektur an der jeweiligen Textstelle 
mit einem »Beep«. 1 st word plus bietet nun 
einige Alternativen an: Durch Auswahl der 
»Weiter«-Taste bleibt das Wort unverändert 
im Text stehen und die Texteingabe kann 
fortgesetzt werden. Ist das Wort nicht im 
Wörterbuch enthalten, kann es neu aufge- 


nommen werden.Findet Ist word plus ein 
Wort, das es nicht kennt, schlägt es sogar 
eine Auswahl von Wörtern vor, die gemeint 
sein könnten. Mit Hilfe dieser Vorschläge 
kann man sich noch lästige Tipparbeit erspa¬ 
ren. Wie funktioniert das? Aus »mfg« könn¬ 
te Ist word plus »Mit freundlichen Grüßen« 
machen, aus »sdh« wird »Sehr geehrte Da¬ 
men und Herren«, aus »iba« wird »in bezug 
auf« usw.. Ein besonderer Vorzug des Wör¬ 
terbuches liegt noch in seiner beliebigen Er¬ 
weiterbarkei t. Obwohl das Wörterbuch in 
seiner Grundausstattung schon 30.000 Wör¬ 
ter beinhaltet, benötigt man öfters noch spe¬ 
zielle Fachausdrücke zur Erstellung eines 
Textes. Für diese Anwendungen kann man 
ganz einfach mehrere, speziell auf die indi¬ 
viduellen Bedürfnisse abgestimmte Zusatz¬ 
wörterbücher zu verschiedenen Zwecken er¬ 
stellen. Es besteht auch die Möglichkeit, 
mehrere Wörterbücher zu einem Wörter¬ 
buch zusammenzufassen. Besonders zuver¬ 
lässig ist die Trennhilfe von Ist word plus. 
Bei meinem Test tauchten nur sehr selten fal¬ 
sche Silbentrennungsvorschläge auf. 


WYSIWYG 

(What you see is what you get) 


Zu dem Ziel der 1:1 Darstellung auf dem 
Bildschirm entwickeln sich heute alle Text¬ 
verarbeitungsprogramme. Ist word plus er¬ 
scheint mir schon sehr fortgeschritten. Fett¬ 
schrift, Unterstreichen, Superscript, Kursiv¬ 
schrift usw. erscheinen sogar kombiniert auf 
dem Bildschirm. Weniger ausreichend ist die 
Anzahl der mitgelieferten Druckertreiber. 
Standardmäßig enthält Ist word plus ASCII-, 
Brother-, Diablo-, Epson- (FX, JX, LX, 
LQ), IBM- (Graph, Proprinter), Juki- und ei¬ 
nen Standard Druckertreiber. Vergleicht 
man die Anzahl der mitgelieferten Drucker¬ 
treiber zum Beispiel mit der von Word 3.0, 
schneidet Ist word plus weniger gut ab. Für 
versierte Computer-Anwender besteht natür¬ 
lich die Möglichkeit, weitere Drucker an das 
Programm anzupassen. Anpassungsmög¬ 
lichkeiten an Laserdrucker sind nicht vor¬ 
handen. 


Erstellung 

wissenschaftlicher Texte 


Besonders interessant erscheint mir auch die 
Möglichkeit, mit Ist word plus wissenschaft¬ 
liche Texte erstellen zu können, denn das 
Programm bietet eine augezeichnete Fußno¬ 
tenverwaltung an. Mangelhaft ist jedoch die 
Fußnotennumerierung. Beginnt man inner¬ 
halb des Fußnotentextes nicht in Spalte 1, 
sondern stellt einen linken Rand von einigen 
Zentimentem ein, druckt Ist word plus ent¬ 
gegen meinem Wunsch die Fußnotennum¬ 
mer in Spalte 1. Auch ist die Einstellung ei¬ 
ner anderen Schriftdichte wie zum Beispiel 
17 epi innerhalb des Fußnotentextes nicht 
möglich. Hier wäre eine Überarbeitung des 
Programms wünschenswert. 
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Standardfunktionen 


Zu einer guten Text Verarbeitung gehören 
Standardfunktionen wie Textstellen markie¬ 
ren, im Text nach Wörtern suchen, Text for- 
matiem usw.. 1 st word plus enthält natürlich 
alle diese Standardfunktionen. Erstaunlich 
erscheint hier die Geschwindigkeit, mit der 
1 st word plus alle Standardfunktionen durch¬ 
führt. Auch Schnell-Schreiber bemerken 
kaum eine Verzögerung. Erwähnenswert ist 
noch die ständig aufrufbare Hilfefunktion 
von Ist word plus. Zu allen Befehlen des 
Programms steht ein kurzer Hilfetext zur 
Verfügung. 


Programmierwerkzeug 


Auch Programmierer können Ist word plus 
einsetzen. Durch Ausschalten des WP-Mo- 
dus wird der Text in ASCH-Format erstellt. 
Das Programm eignet sich somit auch für die 
Erstellung von Quelltexten für Compiler 
oder Assembler. 


Disk-slaving 

Die maximale Größe eines mit Ist word plus 
zu bearbeitenden Dokumentes hängt von der 


Größe des RAM-Speichers (Random access 
memoiy) im PC ab. Die nachfolgende klei¬ 
ne Tabelle erläutert die maximal zu erstellen¬ 
den Textseiten innerhalb der beiden Betriebs¬ 
systeme des Schneider-PC mit 512 KB 
Hauptspeicher: 

ohne mit 

Wörterbuch Wörterbuch 

MS-DOS 59 16 

DOS Plus 16 0 

Hieraus wird ersichtlich, daß beim Laden des 
GEM-Desktop aus DOS Plus nur genügend 
Speicher vorhanden ist, um ein ca. 16 Seiten 
langes Dokument zu bearbeiten, und das nur 
ohne Rechtschreibkorrektur. 

Disk-slaving ermöglicht hier die Eingabe 
auch längerer Textdateien. Benutzt man bei 
dem Textnamen die Extension »slv«, befin¬ 
det sich jeweils nur ein Teil der Textdatei im 
Hauptspeicher. 

Der Rest, einschließlich eventueller Ände¬ 
rungen, wird in einem provisiorisehen »sla- 
ving file« auf Diskette oder Festplatte gespei¬ 
chert. Mit Hilfe von Disk-slaving kann man 
nun Texte in einer Größe erstellen, die nur 
durch das externe Speichermedium begrenzt 
sind. 

Zum weiteren Lieferumfang von Ist word 
plus gehört auch Ist mail. Wie der Name 
schon sagt, ist Ist mail ein Programm, das in 
Zusammenarbeit mit Ist word plus in der 
Lage ist, Serienbriefe zu erstellen. Mit Ist 


mail kann man natürlich nicht nur Serien¬ 
briefe erstellen. Das Programm bietet die 
Möglichkeit, sogenannte Formulare zu ent¬ 
wickeln, die beim Ausdruck mit individuel¬ 
len Daten versehen werden können. Die Er¬ 
stellung einer Serienbriefmaske kommt ei¬ 
nem kleinen Programmierkurs nahe. 

Erst nach dem studieren des Handbuches war 
es mir möglich, Serienbriefe zu erstellen. 
Die Entwicklung der Masken ist etwas an¬ 
ders als bei anderen Produkten, jedoch sehr 
leistungsstark. 


Resümee 


Dieser Bericht ist mit Sicherheit zu kurz, um 
den vollen Leistungsumfang von Ist word 
plus mit Ist mail zu beschreiben. Man kann 
jedoch erkennen, daß hier ein sehr leistungs¬ 
fähiges Textverarbeitungssystem vorliegt. 
Besonders hat mich der Preis des Programms 
beeindruckt. 

Schon für DM 298, — ist Ist word plus mit 
Ist mail erhältlich. Betrachtet man die Lei¬ 
stungsfähigkeit des Programms, stellt Ist 
word plus eine gelungene Alternative zu den 
bekannten TextVerarbeitungsprogrammen, 
besonders für den Schneider-PC, dar. 

(M. Müller) 


ARNOR erscheint in Deutschland! 


PROWORT Für den Schneider CPC 6128, Joyce PCW 8256/8512. 

Großbritanniens Nr. 1 Textverarbeitungssystem für den Amstrad - jetzt in Deutschland 
erhältlich, mit deutschem Handbuch. Äußerst leistungsstark, mit unglaublicher 
Geschwindigkeit und Flexibilität. Andere Besonderheiten: MailMerge, RechtSchreibekontrolle 
- auch mit deutschem Wörterbuch. D.M. 249,- inkl. Mwst. 

U.a. auch erhältlich- 


MAXAM II Z80 Makro Assembler 

Unter CP/M Plus; mit intelligentem 
Disassembler, Monitor und eigenem Editor. 
Deutsches Handbuch bald vorhanden. 

D.M. 249,- inkl. Mwst. 

(Maxam I auf Eprom erhältlich 
D.M. 129,- inkl. Mwst.) 

BCPL 

Schnelle Programmiersprache. 

Struktiert, compiliert, und typenlos. 

D.M. 149,- inkl Mwst. 

Sonderangebot 

MODEL UNIVERSE für CPC 464, 664, 6128. 

3-D Grafic-Software zum Sonderpreis von 
D.M. 39,- inkl. Mwst. 


ARNOR C 

Programmiersprache C unter CP/M Plus. 

Mit Compiler; entspricht den 
Ausführungen von Kernighan/Ritchie, 
und verarbeitet sogar Fließkommazahlen. 
Deutsches Handbuch bald vorhanden. 

D.M 249,- inkl. Mwst. 

UTOPIA für CPC 464, 664, 6128. 

Disketten- und Basic-Utilities auf Eprom. 
D.M. 99,- inkl. Mwst. 


Versand erfolgt : per Nachnahme, 
Verrechnungsscheck/Bargeld anbei. 
Auch bei Ihrem nächsten 
Schneider-Fachhändler erhältlich. 


Software für Kenner 

Amor (Deutschland), Hans-Henny-Jahnn-Weg 21,2000 Hamburg 76. 


tWW. 
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Able-One 

Das Allmund-Paket 

Tabellenkalkulation, Textverarbei¬ 
tung, Datenbank, Kommunikation 
und Grafik, vereint in einem Pro¬ 
grammpaket, das ist integrierte 
Software, wie sie Able-One bietet. 


Modular... 


aufgebaut ist jedes integrierte Pro¬ 
grammpaket. Das bedeutet für den An¬ 
wender, daß er mittels eines Eingangs¬ 
menüs in die verschiedenen Programm¬ 
teile gelangen kann. Bei dem Begriff In¬ 
tegration weichen die Meinungen jedoch 
voneinander ab. Integrierte Software 
sollte nach meiner Meinung möglichst 
die drei folgenden Anforderungen erfül¬ 
len: — Mehrere Programmodule bilden 
ein einziges Programmsystem. Die Be¬ 
nutzeroberfläche und die Bedienung des 
Programms sollte in allen Modulen ein¬ 
heitlich sein. Zwischen den einzelnen 
Modulen sollte ein einfach durchzufüh¬ 
render Datenaustausch stattfinden kön¬ 
nen. Able-One entspricht diesen Anfor¬ 
derungen und ist obendrein noch 
multitasking- und netzwerkfahig. An- 
wenderfreundlichkeit wird bei Able-One 
nur teilweise großgeschrieben. Die 
Funktionstaste 1 bringt zwar zu allen 
möglichen Operationen Hilfe, wird aber 
nur unzureichend durch das etwa 300 
Seiten umfassende Handbuch unter 
stützt. Auch eine »Maus« Unterstützung 
ist nicht vorhanden. Doch Anwender¬ 
freundlichkeit ist nicht alles. Im folgen¬ 
den werden nun die einzelnen Pro¬ 
grammelemente von Able-One be¬ 
schrieben. 


Textverarbeitung 


Die Textverarbeitung von Able-One ist 
zwar nicht die Beste, doch beinhaltet sie 
einige Funktionen die der Anwender zu 
schützen weiß, zum Beispiel das Wörter¬ 
buch. Able-One unterstützt eine Wörter¬ 
buchfunktion, die es dem Benutzer er¬ 
laubt, Abschnitte oder gesamte Doku¬ 
mente mit einer Liste von bekannten 
Wörtern abzugleichen. Derzeit liegt ein 
Wörterbuch nur in englischer Sprache 
vor, eine deutschsprachige Version ist 
geplant. 


What you see 
is not what you get 


Für den Layout des Textes sind bei Able- 
One einige Funktionen wie Formatieren 
des Textes, Blocksatz, verschiedene 
Schriftarten (Unterstreichen, Fettdruck) 
usw. vorhanden. Auf dem Bildschirm er¬ 
scheinen die ausgewählten Schriftarten 
je doch nur durch hervorgehobene Dar¬ 
stellung und nicht wie im Druckformat. 
Auch ist eine Trennhilfe nicht vorhan¬ 
den; hier wäre eine Überarbeitung wün¬ 
schenswert. Ein weiteres Problem ist die 
Druckerinitialisierung. Able-One bein¬ 
haltet nur einen Standard-Druckertrei¬ 
ber, der Funktionen wie Unterstreichen 
usw. nicht kennt. Zwar ermöglicht Able- 
One mit Hilfe eines gesonderten Menüs 
eine Einstellung der Druckersequenzen, 
doch erscheint mir diese Lösung nicht 
benutzerfreundlich. Auch die Geschwin¬ 
digkeit der Textverarbeitung ist nicht be¬ 
rauschend. Daß Serienbriefe über die 
Datenbank erstellt werden können, ver¬ 
steht sich von selbst. 


Datenbank 


Auf der Grundlage eines relationalen Da¬ 
tenbank-Konzepts kann Able- One ca. 


1 Million Datensätze verarbeiten. Die 
Aufteilung in Felder, ist durch eine Bild¬ 
schirmmaske begrenzt. Feldtypen kön¬ 
nen alphanumerisch und numerisch de¬ 
finiert werden. Zur Sortierung der ver¬ 
schiedenen Datenfelder stehen eine An¬ 
zahl von Paramenter zur Verfügung: 

P = Primärindex; alle Angaben inner¬ 
halb des Feldes werden sortiert in der 
Datenbank gespeichert S = Sekundärin¬ 
dex; wird zur Sortierung innerhalb des 
Primärindex benutzt. 

Eine Reihe anderer Möglichkeiten stehen 
noch zur Verfügung, sprengen jedoch 
den Rahmen eines kurzen Testberichtes. 
Insgesamt erscheint mir die Datenbank 
im Vergleich zu anderen integrierten 
Programmpaketen schwach. Eine spe¬ 
zielle Abfangsprache ist nach meinem 
Wissen nicht vorhanden. Es sollten vor 
allem die Sortiermöglichkeiten der Da¬ 
tenbank von Able-One vereinfacht und 
ergänzt werden. 


Kalkulation 


Tabellenkalkulation ist heutzutage ein 
Hilfsmittel, das auf keinem PC fehlen 
sollte. Able-One hat natürlich eine inte¬ 
griert. Innerhalb der Kalkulation stehen 
arithmetische und logische Funktionen 
zur Verfügung. 10.000 adressierbare 
Zellen können in jedem Kalkulationblatt 
definiert werden. Sehr schön ist die 
Möglichkeit, Grafik über ein Fenster in 
die Kalkulation einzubinden. Able-One 
unterstützt drei unterschiedliche Arten 
der Grafikdarstellung: Balkengrafik, 
Kuchen- und Liniendiagramme. Zur 
Darstellung von Kuchen- oder Linien¬ 
grafiken benötigt Able-One eine CGA- 
Karte (Color Graphics Adapter). Gestal¬ 
tungsmöglichkeiten der Grafik durch 
verschiedene Schraffuren sind nicht ge¬ 
geben. Auch eine Datenübernahme von 
Multiplan-Dateien in die Kalkulation ist 
ohne Schwierigkeiten nicht möglich. 


MftXLUL'«HTfeW* '-.-CK., u,rd verwende ~ 
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Kommunikation 

Able-One bietet eine Anzahl von ver¬ 
schiedenen Kommuni kationsmöglich- 
keiten an. Arbeiten mit einer Mailbox, 
DatexP, Telex. Datenübertragungsraten 
sind zwischen 75 und 9600 Baud mög¬ 
lich. Unterstützt werden Kommunika¬ 
tionseinheiten wie Datec, Hayes, Netz¬ 
werk und Omnireader. 


Besonderheiten 

Einige Besonderheiten bietet Able One 
noch. Das Programm ist multitaskingfä¬ 


hig, d.h. mehrere Funktionen können 
zur gleichen Zeit ausgeführt werden. 

Auch können bei Able-One verschiede¬ 
ne Dateien gleichzeitig durch den Einsatz 
von variabel gestaltbaren Fenstern ange¬ 
zeigt und bearbeitet werden. 

Das Programm bietet weiterhin die Mög¬ 
lichkeit, bestimmte Kommandos bezie¬ 
hungsweise mehrere Tastenkombinatio¬ 
nen einer einzigen Taste (Macro) zuzu¬ 
ordnen. 

Durch diese Vereinfachung kann man 
die etwas umständliche Art und Weise 
der Befehlseingabe von Able-One ver¬ 
einfachen. 


Resümee 

Beeindruckend ist der Preis von Able- 
One. Für DM 498, - erhält man ein in¬ 
tegriertes Programmpaket, welches sich 
für den Heimgebrauch oder für Lehr¬ 
zwecke besonders eignet. 

Eine Verbesserung einzelner Program- 
module ist jedoch wünschenswert. 

Doch wie hat ein kluger Kopf einmal so 
treffend formuliert: »Ein Amphibien¬ 
fahrzeug, das auch noch fliegen kamt, ist 
lustig, aber unpraktisch!« 

(M.Müller) 



rogramm befördert Ihre Facts von MSDOS 2 nach CP/M 1 

Funktionen: Kooie-cn von CP/M'-Dateien in das augenblicklich angemeldete Unterver- 
zeichnis. • Kopieren von MSDOS 2 -Dateien aus dem momentanen Unterverzeichnis auf eine 
CP/M -D skette. • Löschen von Dateien im momentanen Unterverzeichms. • Anzeigen des 
Innaltsve-ze cnmsses de- MSDOS 2 -Diskette • Ändern des Zugriffspfades auf die MSDOS 2 - 
Diskette. • Erzeugen eines reuen Unterverzeichnisses m aktuellen Unterverzeichnis. 
• Löschen eines Unterverzeichnisses im aktuellen Unterverzeichnis. • Anzeigen eines „Bau - 
mes“ (Trce) für das gewählte Unterverzeichnis. • Formatieren einer MSDOS* - D skette mit 
den Standard-IBM-Formaten. • Disketten-Konvertierung Atari ST Computer/MSDOS 2 - 
Rechner. 

Erforderliche Hardware: 

Computer: Schneider CPC 464/664/6128 

Floppy: vortex F1-S/D/X/XRS und M1-S/D/X/XRS mit VDOS 2.xx 

Betriebssystem: CP/M 1 2.2 


Das "Programm installiert Fremdformate unter 

CP/M’-Computern für * 

Funktionen; Auf ein- und demselben 5.25" Laufwerk körnen zwe Fremdformate installiert 
se n (z. B. Laufwerk E: und F: beziehen sich auf dasse'be physikalische Laufwerk, wobei abe- 
mit E: z. B. ein KAYPRO Il-Format und mit F: ein OSBORNE DD-Format unterstützt wird. 

• Automatische Analyse eines unbekannten Diskettenformates. • E nstellen der Disk-Para 
meter von Hand. • Überragen von Werten eines STAT DSK: Ausd-uckes. • Anlegen von 
Fo-mat-Bib lotheken mit je 255 Erträgen. • Laden und Speichern von Fo-mal-Einste.lur.gen, 

• Ausdrucc von Formaten und Ergebnissen der automatischen Analyse • Format.eren mit 
eingestelltem Format. • Datei-onentiertes Kopieren • Physikalisches Kopieren einer Dis¬ 
kette (1:1-Kopie) • Aufrufen von Programmen. • Erstellen einer Arbeitsversion mit „Lie- 
b ingsrormaten". • Unterstützt werden zusätzlich RAMDISK von vortex, 3"-Laufwei 
eheste- (WD 2000) von voitex, Typenrad- und Matrix-Drucker. 

Erforderliche Hardware: 

Computer: CPC 464/664/6128 

Floppy: vortex F1 -S/D/X/XRS und M1-S/D/X/XRS mit VDOS 2,xx 
Betriebssystem: CP/M 2.2 

Das ; ^^jProgramm befördert Ihre Facts von MSDOS 2 nach 

CP/M 1 und installiert Fremdformate unter CP/M’-Computern. 

Für PC * 


D e Funktionen von PARA PLUS sind die Summe derer von DOSCOPY und PARA 3.0 


... UND PLÖTZLICH LEISTET IHR COMPUTER MEHR 


VORTEX 


SOFTWARE 


• • 



FÜR DATEN- 
TRANSFER: 


OSCOPY 
PARA 3.0 


PARA PLUS 


vortex Computersysteme GmbH 

Falterstraße 51-53 ■ 7101 Flein 

Telefon (071 31) 52061-63 • Telex 728915 vortx d 
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LocoScript-Tips 

Der - genauer »die« - ’ Joyce’ hat vor gut einem Jahr die ComputerPalette 
der Bundesrepublik bereichert. Von Schneider als Textsystem heraus- 
gestellt, war die Zielgruppe dieses preiswerten Komplettsystems klar: 
Büroangestellte, Geschäftsleute, Handwerksbetriebe, Studenten und Dozen¬ 
ten - kurz: alle, die viel und oft schreiben müssen. Nur zu dumm, daß aus¬ 
gerechnet solche Menschen meistens nicht die Zeit finden, sich eingehend 
mit Handbüchern zu befassen oder durch zwangloses Herumprobieren das 
System ’LocoScript’ zu erforschen. Hier sollen die ’LocoScript-Tips’ den 
Einstieg erleichtern - ohne technische »Ballaststoffe«. 


Die Textverarbeitung LocoScript stellt 
dem ’Joyce’-Anwender eine große Funk¬ 
tionsvielfalt zur Verfügung. Trotz klei¬ 
ner Schwächen (Geschwindigkeit!), ist 
das Programm in hohem Maße benutzer¬ 
freundlich. Das Zusammenspiel mit dem 
Drucker ist gut gelöst und klappt rei¬ 
bungslos, die Disketten-Verwaltung, mit 
ihrem großflächigen, übersichtlichen 
Display (Anzeige), ist als herausragend 
und einmalig zu bezeichnen. 


Aktenordner im Computer 


Die Disk-Verwaltung von LocoScript 
bietet die Möglichkeit, Texte in acht (mit 
zwei Laufwerken sogar sechzehn) ver¬ 
schiedenen Gruppen abzulegen. Ähnlich 
wie bei einem Aktenordner-System, er¬ 
hält der Anwender die Möglichkeit, ein 
großes Maß an Ordnung und Übersicht¬ 
lichkeit unter seinen Texten einzu¬ 
richten. 

In jedem Laufwerk - übrigens auch im 
Laufwerk M, der RAM-Disk — sind 
acht »Aktenordner« untergebracht. Im 
Hauptteil der DiskVerwaltungsanzeige 
werden die Inhaltsverzeichnisse der Ord¬ 
ner in 16 bzw. 24 Spalten alphabetisch 
sortiert angezeigt. Jeweils vier davon 
passen gleichzeitig auf den Monitor. Das 
Bildschirm-»Fenster« kann mit den Cur¬ 
sor-Tasten horizontal verschoben wer¬ 
den, so daß auch die übrigen Spalten 
sichtbar werden. 

Mit den Cursor-Tasten kann ein Leucht¬ 
balken auf jede beliebige Stelle in diesem 
Gesamtinhaltsverzeichnis gelenkt wer¬ 
den — mit einer Ausnahme: solange eine 
Spalte, sprich Gruppe, leer ist, also noch 
keine Textdatei enthält, wird sie auf dem 
Bildschirm nicht angezeigt und kann mit 
den normalen Cursor-Tasten nicht er¬ 
reicht werden. Will man in einer solchen 
leeren Gruppe irgend etwas »erledigen« 
(einen neuen Text erstellen, Texte hin¬ 
einkopieren, versetzen usw.), muß man 
zum Sprung in diese Gruppe zusätzlich 
den normalen Cursor-Tasten die 
> SHIFT < -Taste heranziehen. 


Daß man sich mit dem Cursor in einer 
leeren Gruppe befindet, zeigt einem Lo¬ 
coScript durch einen senkrechten Dop¬ 
pelstrich an der entsprechenden Stelle; 
außerdem kann man dazu analog am 
CursorBalken im oberen Menü-Teil se¬ 
hen, in welchem Laufwerk und in wel¬ 
cher Gruppe sich der Zeiger gerade auf¬ 
hält. 

Die mitgelieferte LocoScript-Origi- 
nal-Diskette enthält außer den eigentli¬ 
chen Programm-Dateien eine Reihe von 
Beispiel-Texten. Würde man, wie im 
Handbuch angegeben, mit CP/M 
»DISCKIT« eine Kopie der Diskette ma¬ 
chen, würden alle Beispiel-Texte mitko¬ 
piert und müßten später mühsam einzeln 
gelöscht werden (um für eigene Texte 
Platz zu machen). Das Ganze geht we¬ 
sentlich einfacher und schneller mit der 
im folgenden beschriebenen Methode. 


Arbeitsdisketten 


Diese drei Dateien sind das eigentliche 
LocoScript-Programm: 

JXXG21GLOCO. EMS 
MATRIX .STD 
und SCRIPT JOY 

Die gilt es, auf eine leere, formatierte 
Diskette zu kopieren. Das geht am besten 
so: 

- »Joyce« anschalten, 

- eine Kopie (!) - oder arbeitet wirk¬ 
lich noch ein »PC-International«-Leser 
mit Original-Programmdisketten??? — 
der Seite 1 der mitgelieferten Systemdis¬ 
ketten in das Laufwerk legen. 


Wenn das Startmenü erscheint... 


— die Taste F8 ( < SHIFT > + < F7 >) 
drücken. Es rollt ein Pull-down-Menü 
herunter! 

— mit dem Cursor-Balken auf »Anzeigen 
von: versteckt« gehen und — die [+]- 
Taste links neben der großen Leertaste 
drücken. Es erscheint ein Häkchen neben 
dem Wort 'versteckt’. 


— <ENTER> drücken. 

In der ersten Spalte der Diskverwaltung 
sind nun vier weitere Dateien sichtbar 
geworden man erkennt sie an einem an¬ 
gehängten ’V’ ( = »versteckt«). Hierun¬ 
ter befinden sich auch die drei obenge¬ 
nannten Dateien. Diese müssen mit der 
Taste < F3 > ins Laufwerk M kopiert 
werden. Wie das geht, dürfte bekannt 
sein: < F3 > drücken und den Anwei¬ 
sungen in der Kommando-Zeile, ganz 
oben auf dem Bildschirm, folgen. 
Wenn sich die drei Dateien im Laufwerk 
M befinden, können sie auf beliebig viele 
formatierte Leerdisketten kopiert 
werden: 

— leere Diskette einlegen 

— mit <F1> Diskettenwechsel ankün¬ 
digen 

— mit < F3 > die Dateien von Laufwerk 

M auf »gruppeO« in Laufwerk A kopie¬ 
ren. Dabei, wie oben beschrieben, die 
Tastenkombination < SHIFT > + 

< Cursor-Taste> verwenden! (Es ist 
wichtig, daß vor allem SCRIPT.JOY 
und MATRIX. STD auch wirklich in 
»gruppeO« landen, sonst streikt 'Joyce’ 
beim Starten des Systems.) 

Die letzten drei Schritte können natürlich 
beliebig oft mit weiteren leeren Disket¬ 
ten wiederholt werden. 

Eine auf die eben beschriebene Art zu¬ 
standegekommene Arbeitsdiskette ist be¬ 
triebsbereit und läuft nach dem Einschal¬ 
ten oder einem Reset des Rechners von 
selbst an. Es erscheint dann eine zu¬ 
nächst leere Disk-Verwaltungs-Anzeige. 
Bei einer solchen, völlig neu erstellten, 
leeren Arbeitsdiskette, sind die Gruppen 
vom System mit »gruppeO« bis 
»gruppe7« bezeichnet. (Für Spezis: diese 
Unterteilung entspricht dem USER n von 
CP/M). Die »gruppe 0« ist nicht wirklich 
leer, hier befinden sich »versteckt« u.a. 
die drei kopierten LocoScript-Systemda- 
teien (LocoScript gibt einen entsprechen¬ 
den Hinweis). 


Namentlich ... 


Es empfiehlt sich, zunächst die einzelnen 
Gruppen sowie die Diskette mit (mög¬ 
lichst inhaltsbezogenen) Namen zu ver¬ 
sehen: 

— zuerst mittels Cursor-Taste bzw. 
< SHIFT > + < Cursor-Taste > in die 
Gruppe hineinfahren, dann <F5> 
drücken und das Gewünschte im Pull- 
down-Menü aus wählen! 

— den gewünschten Namen in das ein 
geblendete Fenster eintragen — fertig! — 
Bei der Benennung der Diskette ist es 
gleichgültig, in welcher Gruppe der Cur¬ 
sor gerade steht — natürlich muß er im zu 
benennenden Laufwerk sein. Dann über 
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< F5 > die gewünschte Funktion auf- 
rufen. 

Die Gruppennamen dürfen nicht mehr 
als acht Buchstaben lang sein. Die Dis¬ 
kette dagegen kann mit acht Buchstaben 
versehen werden, danach muß ein Punkt 
folgen, und es können weitere drei Buch¬ 
staben eingegeben werden. 

Hinweis: Verschiedene Satzzeichen so¬ 
wie deutsche Umlaute und einige Son¬ 
derzeichen dürfen bei der Namensge¬ 
bung — auch für einzelne Texte — nicht 
verwendet werden. Zahlen dagegen sind 
erlaubt. Aber keine Angst: ’Joyce’ 
piepst, wenn man ein unerlaubtes Zei¬ 
chen verwenden will. 

Mit der Tastenkombination < SHIFT > 
4- < Cursor-Taste > kann man übrigens 
innerhalb der Disk-Verwaltung schnell 
von Gruppe zu Gruppe bzw. von einem 
Laufwerk zum anderen springen. Mit 
diesem kleinen Kniff können ganz leicht 
wohlgeordnete Sicherheitskopien einzel¬ 
ner Dateien angelegt werden: man 
springt beim Kopieren (<F3>) oder 
Versetzen {< F4 >) immer in die gleiche 
Gruppe des Nachbarlaufwerks, wenn 
man den Cursor mit zweimal 

< SHIFT > + < Cursor rechts/links > 
bewegt. So erhalten die Sicherheitsko¬ 
pien immer die gleiche einheitliche 
Gruppen-Zuordnung wie die Dateien auf 
den Arbeitsdisketten. 

Im Gegensatz zu vielen anderen Textver¬ 
arbeitungsprogrammen (z.B. Wordstar) 
befindet sich LocoScript in seiner vollen 
Länge im Arbeitsspeicher. Das hat den 
Vorteil, daß die Diskette mit den 
Programm- bzw. Systemdateien sich 
nicht unbedingt in einem der Laufwerke 
befinden muß (es müssen nämlich keine 
Programmteile während der Sitzung 
nachgeladen werden). Vor allem dieje¬ 
nigen »Joyce«-Benutzer, die nur ein 
Laufwerk haben, werden dies begrüßen: 
man kann ruhig die Diskette mit dem 


Programm herausnehmen und mit einer 
reinen Datendiskette (auf der also nur die 
eigenen Texte sind) Weiterarbeiten. Nur 
beim erneuten Wiedereinschalten des 
Rechners muß selbstverständlich die 
Programmdiskette her. 


Dateien verschwunden? 


Wer schon einmal versucht hat, aus 
CP/M heraus das Inhaltsverzeichnis ei¬ 
ner LocoScript-Diskette mit ’DIR’ anzu¬ 
schauen, wird sich nicht schlecht gewun¬ 
dert haben: der größte Teil der Textda¬ 
teien wird gar nicht aufgeführt. Wer 
ganz genau aufgepaßt hat, hat bemerkt, 
daß nur die Dateien in der ersten Spalte 
(»gruppeö«) der LocoScript-Disk-Ver¬ 
waltung gezeigt werden. Außerdem 
kommt wahrscheinlich der Hinweis: 
»SYSTEM FILE(S) EXIST« (= »Sy¬ 


stemdateien vorhanden«). Letztere Mel¬ 
dung bezieht sich auf die »versteckten« 
LocoScript-Systemdateien, sie sind näm¬ 
lich mit dem Attribut »SYS« versehen 
und werden bei einem normalen ’DIR’ 
nicht aufgelistet. 

Aber wo sind die restlichen Texte und 
Schablonen von Gruppe 1 bis 7? Diese 
werden sichtbar, wenn man mit ’USER 
n’ (n steht, in diesem Fall, für eine Zahl 
zwischen 1 und 7) den Benutzerbereich 
ändert und dann sein Glück mit ’DIR’ 
noch einmal versucht. Und siehe da, die 
Dateien werden Gruppe für Gruppe 
sichtbar! 

Wer noch mehr über die Funktion 
’USER’ wissen will, sollte im Handbuch 
oder einschlägiger CP/M + Literatur 
nachlesen. Mit ’USER 0’ kann man wie¬ 
der in den Normalbereich zurück¬ 
schalten. 

(H. Langbein) 




Hochstraße 11 
8500 Nürnberg 80 
Tel.: 09 11 / 28 90 28 


PC-ZUBEHOR: 

PC 1640 aA 

PC 1512 MM/SD 

mil 20 MByte Harddisc 2240 - 

AnschWerlig lu> PC 151211640 
Harddisc 2Ö MByte 736 

Filecard 20 MByte 998- 

PC RAM Erwe.lerung 540K 59, - 

Ztvetalweik PC ab 249,- 

TURBOPASCAL PC i>3087.BCD) 249, - 

UTAH Co bol (deulscb) 149.- 

UTAH Forlran 149,- 

PlIBUC DOMAINIMS DOS 
Auswahl 1/2(je 10Disk) ie 85- 
Auswahl 1+1 (20 Disk) 140. 

0RUCKER: 

MFC P6 (deutsch) 1198. 

STAR NL 10 (deulsch/OEM) 595. 

Typenraddr SD 151i 698—1748.— 

Druckerkabel 29,- 



CPC-ZUBEHOR: 

CPC 464 mH Grünmonilor 396,- 

laufwerk OD11 446- 

Pakel CPC 464IGiün+DD11 796- 

CPC 464 Konsole 279,- 

Grünmonilor ST 65 179, - 

Modulator MP 2 99, - 

Controller DD11+ Handb i-CPfM 89.— 

Aulrüsl lür VORTEX um 256K 75,- 

Aulrusl lür dk'Ironics auf 256K 96- 

TIJRBC PASCAL/Grafik 259- 

CPC/JOYCE-ZUBEHÖR: 

MousePack CPC'JOYCE 228,-/246, 

Maxell 3 Disketten 10 Sl 69- 

TUfißO PASCAL 199 

MEVADA Fortran (deutsch! 109 

Nwada Cobol (deutsch) 109,- 

JOYCE-ZUBEH0R: 

RAM En/veilerung 512K 80,- 

Nachrüslsalz (RAM+laulw.i 598— 


Wir führen zu den Original-SCHNEIDER-Produkten Artikel verschiedener Firmen wie 
DATA BECKER, VORTEX, STAR-DIVISION, CUMANA, GERDES, PR0FIS0FT, ARI0LA, 
RUSH-WARE, MARKT & TECHNIK, SYBEX, STAR, SCHNEIDER-DÄTA usw.! 


SIND *\£XIBEL 



Software für alle CPC’s und Joyce 


, <D • Auftragsbearbeitung 
c-g • Finanzbuchhaltung 
E O • Vereinsverwaltung 
^ • Adressverwaltung 


DM 248,- 
DM 198,- 
DM 148,- 
DM 98,- 


Wir führen für Sie gegen Aufpreis auf der Basis unserer Grundmodule jede Änderung 
oder Anpassung durch. 

(Auch kompl. Neuentwicklungen gegen Vorlage eines Pflichtenheftes). 

Fragen Sie auch nach unserer Software für PC’s 

“BVTE mE" CDmPUTERSVSTEfTlE 

Wilhelmstr. 7 • 5240 Betzdorf • Tel. (02741)23537 u. 23107 


8’87 PC 103 












































r~Professional Computing 



Was für die einen die alleinige 
Richtlinie für ihre seelische, geistige 
und körperliche Verfassung ist, ist 
für die anderen bloßer Nonsens. Die 
Rede ist vom Biorhythmus. Den Be¬ 
fürwortern der Biorhythmus-Theo¬ 
rie wird dieses Programm große 
Freude bereiten, den Gegnern wird 
es Material in die Hand geben, 
ihren Standpunkt zu untermauern. 

Das Programm ist durch Auswahlme¬ 
nüs, Funktionstasten und Absicherung 
gegen fehlerhafte Eingaben äußerst be¬ 
dienerfreundlich. Im Hauptmenü können 
mittels Cursortasten und Bestätigung 
durch < ENTER > die Auswertungsart 
(Einzelauswertung oder Partnerver¬ 
gleich), das Ausgabegerät (Bildschirm 
oder Drucker) sowie die akustische Un¬ 


termalung (ein oder aus) gewählt wer¬ 
den. Entschließt man sich für die Ausga¬ 
be am Drucker, stehen noch die Papier¬ 
art (Einzelblatt oder Endlospapier) und 
die Schriftqualität (Entwurf oder Korre¬ 
spondenz) zur Auswahl. Ein Neustart ist 
mit <CAN> möglich. Durch <EXIT> 
wird das Programm beendet.Im zweiten 
Menü werden die Geburtsdaten sowie 
der Abfragezeitraum eingegeben. Feh¬ 
lerhafte Eingaben (z. B. ein kalendermä¬ 
ßig nicht mögliches Datum) werden nicht 
angenommen und müssen wiederholt 
werden. Durch Eingabe von »0« und 
< ENTER > kann die Datumseingabe 
vollkommen neu gestartet werden, durch 
eine nochmalige »0« erfolgt eine Rück¬ 
kehr ins Hauptmenü. Mit »9« wird das 
Programm beendet. Hat man die Bild¬ 
schirmausgabe gewählt, erscheint die 


Auswertung für je sieben Tage am Bild¬ 
schirm. Mit < ENTER > kann weiter 
geblättert, mit < CAN > abgebrochen 
und mit < EXIT > das Programm been¬ 
det werden. Wird eine Ausgabe am 
Drucker gewünscht, erscheint noch ein 
kurzes Druckmenü, das nochmals die ge¬ 
wählten Optionen, die Geburtsdaten so¬ 
wie den Abfragezeitraum zeigt. Ist alles 
in Ordnung, kann der Ausdruck mit 
< ENTER> gestartet werden. Stimmt 
etwas nicht, erfolgt durch < CAN > ein 
Rücksprung ins vorangehende Menü. 
Hat man eine Ausgabe am Drucker vor, 
sollte man bereits im Betriebssystem die 
Zeilenanzahl des verwendeten Papiers 
festlegen (z. B. PAPER F72). 


Anpassungen und Ergänzungen 

In der vorliegenden Version können 
Auswertungen bis zu einem Zeitraum 
von einem Jahr problemlos durchgeführt 
werden. Bei längeren Zeiträumen kann 
es zu der Meldung »memory full« kom¬ 
men. Diesem Problem begegnet man 
durch Erhöhung der Stack-Größe in Zei¬ 
le 110. Wenn das Programm fertig ein¬ 
getippt und lauffähig ist, kann in Zeile 
350 das REM-Zeichen vor dem Befehl 
»OPTION RUN« entfernt werden, um 
das Programm durch unbeabsichtigtes 
Drücken der < STOP > -Taste nicht zu 
unterbrechen.Als Ergänzung des Pro¬ 
grammes kann eine Grafik-Auswertung 
empfohlen werden. Ich habe bisher lei¬ 
der noch keine taugliche Lösung gefun¬ 
den. Vielleicht hat dazu jemand Vor¬ 
schläge. Die REM-Zeilen beim Listing 
brauchen nicht eingetippt zu werden, da 
diese vom Programm nicht angespro¬ 
chen werden. (Stefan Brunner) 



BIOItHVTHMUS 

VOM W, E.1387 bis 20. $. 1987 
13.11.r 


Ceburtsdatu* Fl: 

' 2 : 


_1960 

P2: 2.12.1961 


seelisch 


geistig 


Fl = Partner 1 P2 = Partner 2 



körperlich 


P2 

PI 

P2 

PI 

P2 

-43 X 

12 X 

18 X 

78 /. 

95 X 

-29 X 

24 X 

6 X 

64 X 

71 X 

-isx 

36 X 

-7 X 

43 X 

60 X 

4 X 

46 X 

-19 X 

26 X 

43 X 

14 X 

6« X 

-31 X 

8 X 

26 X 

28 X 

72 X 

-43 X 

-9 X 

8 X 

42 X 

64 X 

-55 X 

-27 X 

-9 X 


Bild 1: Der Biorhythmus im Partnervergleich 


LISTING >BI01 


c, REMARK = >'<. 


< 1 ) 
<32> 
<94> 
<23> 
<35> 
<16> 
<37> 
< 8 > 
<49> 
<18> 

< 3 4 > 

< 6 > 

<79> 

<45> 

<31> 

<55> 

<72> 

<36> 

<16> 

<52> 


10 ' 

20 ' 

30 ' 

40 ' 

50 ' 

60 1 

70 ' 

80 1 

90 1 

100 

110 

120 

+"E‘ 

130 

140 

150 

160 

170 

n 

180 

190 

200 


************************* 

* .BIORHYTHMUS. * 

* . für JOYCE. * 

************************* 

* (c) 1987 St. Brunner. * 
************************* 

****** Initialisierung 

CLEAR,,2048 

esc$=CHR$(27):horae$=esc$+"H":clear$=home$+esc$ 
'Bildschirm löschen-Crs. rechts oben 
f£$=CHR$(12) ‘Seitenvorschub 
con$=esc$+"e" 'Crs. ein 
coff$=esc$+"f" ‘Crs. aus 
crsave$=esc$+"j" 'Crs.-Position speichern 
crload$=esc$+"k" 'Crs. an gespeicherte Positio 

invers$=escS+"p" 'invers ein 

normal$=esc$+"q" 'invers aus 
elite$=esc$+"M" 'Schriftart Elite 
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<84> 210 retpicaS=esc$+"P" ' Rückkehr 2 u Pica 
<10> 220 fettdruck$=esc§+"E" 'Fettdruck 
<91> 230 normdruck$=escS+"F" ‘Normaldruck 
<21) 240 entwurf$=esc$+"m"+"0" 'Entwurfsqualität 

< 2> 250 korresp$=esc$+"m"+"l" 'Korrespondenzqualität 
<82> 260 breitanS=esc$+CHRS(14) 'Breitdruck an 

<12> 270 breitaus$=esc$+CHR$(20)'Breitdruck aus 
<47> 280 einzelS=esc$+"$" 'Einzelblatt 
<44) 290 endlos$=escS+"c" 'Endlospapier 
<75> 300 f£$=CHR$<12) 'Seitenvorschub 
<14> 310 staton$=esc$+"l” 'Statuszeile ein 
<73> 320 statoff$=esc$+"0" 'Statuszeile aus 
<74> 330 DEF FNlocate$(yp,xp)=esc$+”Y"+CHRS(yp+31)+CHR$ 
(xp+31) 

<94> 340 DEF FNwindowS(yp,xp,h,b)=escS+"X"+CHR$(yp+31)+ 
CHRS(xp+31)+CHRS(h+31)+CHR$(b+31) 'Window def. (Ze 
ile,Spalte,Höhe,Breite) 

<17> 350 DIM m(12):' OPTION RUN 
<32> 360 ' 

<73> 370 ******* Programmstart 
<36> 380 ' 

< 6> 390 PRINT statoff$;coff$;clear$;esc$+"y" 

<21> 400 ebene=2 

<36> 410 GOSUB 1470 
<25> 420 ' 

<61> 430 ******* Programmende 
<29> 440 ' 

< 9 6 > 450 PRINT clear$:PRINT FNlocateS(10,20)+"E »DE. 

DES. PROGRAMMS" 

< 38 > 460 END 
<35> 470 ' 

<55> 480 '****** UP Optionenlänge feststellen ****** 
<39> 490 ’ 

< 8> 500 maxlang=0:E0R i=l TO optionen:lang=LEN(option$ 

(i)) 

<47) 510 IF lang)maxlang THEN maxlang=lang 
<42> 520 NEXT 

<77) 530 RETURN 

<30> 540 ' 

< 7) 550 ******* UP Menutechnik ****** 

<34> 560 ’ 

<22) 570 zeile=yp:aa$="" 

<37> 580 FOR i=l TO Optionen 

<47> 590 yp=zeile+i*2 

<22> 600 xp=INT(mitte-maxlang/2) 

<48> 610 PRINT FNlocate$(yp,xp);option$(i) 

<94) 620 NEXT i 

<17) 630 q=l:PRINT cof£$;:GOTO 700 
<20> 640 z=ASC(INPUTS(1)) 

<94> 650 IF z=30 THEN q=q+l:IF q=optionen+l THEN q=l ’C 
rs. abw. 

<23> 660 IF z=31 THEN q=q-l:IF q=0 THEN q=optionen.. 'C 
rs. aufw. 

<86> 670 IF z=27 THEN PRINT con$;:GOTO 450 ' EXIT 
<41) 680 IF z=8 THEN RETURN ’CAN 

< 7> 690 IF z=13 THEN PRINT con$;:RETURN 
<44> 700 yp=zeile+q*2 

<83> 710 PRINT erload$;aa$:PRINT FNlocate$(yp,INT(mitte 
-maxlang/2));crsave$;invers$+option$ <q)+SPACE$(max 
lang-LEN(option$(q)))+normalS:aa$=option$(q)+SPACE 
5(maxlang-LEN(optionS(q))) 

<96> 720 GOTO 640 
<30> 730 ' 

<20> 740 ******* UP Bildschirmumrahraung 
<34) 750 ' 

<61> 760 PRINT FNlocateS(1,5);CHR$(134)+STRINGS(79,138) 
+CHRS(140) 

<81> 770 FOR x=2 TO 30:PRINT FNlocate$(x,5)+CHR$!133)+S 
PACES(79)+CHR$(133):NEXT 

< 5> 780 PRINT FNlocate$(31,5)CHR$(131)+STRING$(79,138) 

+CHRS<137) 

<91> 790 RETURN 
<25> 800 ' 

<28> 810 ****** UP Berechnung Biorhythmus 
<29> 820 ’ 

<69> 830 GOSUB 1050 
<27> 840 a(x)=tage 
<49> 850 REST0RE 
<75> 860 GOSUB 1050 
<67> 870 b=tage 
<65> 880 1=28 
<35> 890 GOSUB 990 


<13> 900 s=INT(n) 

<19> 910 1=33 
<22> 920 GOSUB 990 
<58> 930 g=INT(n) 

<18> 940 1=23 
<28> 950 GOSUB 990 
<10> 960 p=INT(n) 

<68) 970 z=0 

<91> 980 RETURN 

<39) 990 r={b-a(x))MOD 1 

<91> 1000 IF r<= 1/4 THEN n=r/(1/4)*100:GOTO 1040 

< 3> 1010 IF r<=1/2 THEN n=(1/4-(r-1/4))*100/(1/4):GOTO 

1040 

<88> 1020 IF r<=3*l/4 THEN n=(r-1/2)/(1/4)*-100:GOTO 10 
40 

<85> 1030 n= <1/4-(r-3*l/4))*-100/(1/4) 

<90> 1040 RETURN 
<21> 1050 z=0 

<19) 1060 IF j/4 <> INT(j/4) THEN 1090 
<66> 1070 IF m<=2 THEN 1090 
<38> 1080 z=l 

<35> 1090 z=z+(j-1)*365+INT((j-1)/4) 

<14> 1100 RESTORE 
<14) 1110 FOR k=l TO 12 
<87> 1120 READ m(k) 

< 6) 1130 NEXT k 

<52> 1140 tage=z+m(m)+t 
<95> 1150 RETURN 

< 3) 1160 DATA 0,31,59,90,120,151,181,212,243,273,304,3 

34 

< 7) 1170 ' 

<76> 1180 ’****** UP Einzelauswertung auf Monitor 
<13 > 1190 ' 

<23> 1200 PRINT FNlocateS(6,29)" vom "USING"|#”;beginnt 

<12> 1210 PRINT FNlocateS(6,36)USING"##";beginnm; 
<49> 1220 PRINT FNlocateS(6,39)".";USING"####";beginnj 
<24> 1230 PRINT FNlocateS(6,45)"bis. "USING"f#";endt; 

<92> 1240 PRINT FNlocateS(6,52)"."USING"##";endm; 

<71> 1250 PRINT FNlocateS(6,55)"."USING"»#|f";endj 
<11> 1260 PRINT FNlocateS (7,29)" Geburtsdatum 
<71> 1270 IF art=2 THEN PRINT "PI"; 

< 9> 1280 PRINT FNlocateS(7,50)USING"##";gebdatt; 
<61> 1290 PRINT FNlocateS(7,52)".";USING''f #";gebdatra; 

<46> 1300 PRINT FNlocateS(7,55)".";USING"###i";gebdatj 
<29> 1310 xl=23:x2=44:x3=64 
<63> 1320 IF art=l THEN 1410 

<79> 1330 PRINT FNlocateS(8,29)SPACES(33);FNlocateS(8,4 
3)"P2:";FNlocateS(8,50)USING"##";gebdat 11; 

< 6> 1340 PRINT FNlocateS(8,52)".";USING"##";gebdatml; 
<58> 1350 PRINT FNlocate$(8,55)".";USING"###*";gebdatjl 
<59> 1360 PRINT FNlocateS(29,6)STRINGS(35,154) 

<63> 1370 PRINT FNlocate$(30,8)"PI = Partner 1.. P2 = P 
artner 2 "+CHR$(133) 

<71> 1380 ON ausgabe GOTO 1390,2360 

<35) 1390 PRINT FNlocateS(12,25)"PI" FNlocateS(12,35)"P 
2" FNlocateS(12,46)"PI" FNlocateS(12,56)"P2" FNloc 
ate$(12,67)"PI" FNlocateS(12,77)"P2" 

<48> 1400 xl=28:x2=49:x3=68 

< 6> 1410 ON ausgabe GOTO 1420,2360 

<25> 1420 PRINT FNlocateS(10,10)"Datum" FNlocateS(10,xl 
)"seelisch"FNlocate$(10,x2)"geistig"FNlocate$(10,x 
3)"körperlich" 

<91> 1430 GOTO 3500 

< 4> 1440 ' 

<67) 1450 ******* Hauptprogramm 
<10> 1460 ' 

<85> 1470 GOSUB 760 

<83> 1480 PRINT FNlocateS(2,6)invers$+SPACES(79)+normal 
$ 

< 7> 1490 PRINT FNlocateS(3,6)inversS+SPACES(23)+normal 

S+SPACES(33)+invers$+SPACE$(23)+normalS 
<46) 1500 PRINT FNlocate$(4,6)inversS+SPACES(23) +norma 

1S+". BIORHYTHMUS . "+invers$+SPA 

CE$(23)+normal$ 

<29> 1510 PRINT FNlocate$(5,6)inversS+SPACES(23)+normal 
S+SPACES(33)+invers$+SPACES(23)+nornal$ 

<75> 1520 PRINT FNlocateS(6,6)inversS+SPACES(23)+normal 
$+".. V 1.1/1987.. by St. Brunner.. "+invers$+SPAC 
ES(23)+normal$ 

<79> 1530 PRINT FNlocate$(7,6)inversS+SPACES(23)+normal 
S+SPACE$(33)+invers$+SPACE$(23)+normal$ 
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< 7> 1540 PRINT FNlocateS(8,6)invers$+SPACE$(79)+normal 

$ 

<12> 1550 PRINT FNlocateS(9,6)STRINGS(79,138) 

<74> 1560 FOR i=10 TO 30 

< 9> 1570 PRINT FNlocateS(i,45)+CHR$(133) 

<17> 1580 NEXT 

<15) 1590 PRINT FNlocateS(20,6)+STRINGS (79,138) 

<69> 1600 PRINT FNlocateS(32,6)+invers$" Mit Cursor wäh 

len und mit ENTER bestätigen. CAN = Abbruch — 

. EXIT = Ende "normalS;:PRINT FNlocateS<12,7)" " 
<82> 1610 PRINT FNwindowS(14,7,5,35);clear$;FNwindowS(1 
4,46,5,33);clear$;FNwindowS(21,6,9,39);clear$;FNwi 
ndowS(21,46,9,39);clearS;escS + "y" 

<82> 1620 yp=12:mitte=25 

<31> 1630 optionen=2:option$(1)=" Einzelauswertung ":op 
tionS(2)=" Partnervergleich " 

<32> 1640 GOSUB 500:GOSUB 570 

<18> 1650 IF z=8 THEN 1610 

<17> 1660 IF q=l THEN art=l:art$=optionS(l) 

<90> 1670 IF q=2 THEN art=2:art$=option$(2) 

<54> 1680 yp=12:mitte=64 

< 7> 1690 optionen=2:optionS(l)=" Bildschirmausgabe ":o 

ption$(2)=" Druckerausgabe " 

<22 > 1700 GOSUB 500:GOSUB 570 

< 8> 1710 IF z=8 THEN 1610 

<62> 1720 IF q=l THEN ausgabe=l:ausgabe$=option$(l) 

<54> 1730 IF q=2 THEN ausgabe=2:ausgabe$=" Drucker " 

<47> 1740 IF ausgabe=l THEN 1880 
<17> 1750 PRINT FNlocateS(25,6)STRINGS(39,154) 

<85> 1760 yp=20:mitte=25 

< 2> 1770 optionen=2:option$(l)=" Einzelblatt ":option$ 

(2)=" Endlospapier " 

<46> 1780 GOSUB 500:GOSUB 570 
<32> 1790 IF z=8 THEN 1610 

<31> 1800 IF q=l THEN paper$=einzel$:paperlS=option$(1) 

<62> 1810 IF q=2 THEN paper$=endlos$:paperlS=option$(2) 
<26> 1820 yp=25:mitte=25 

<71> 1830 optionen=2:option$(1)=" Entwurf ":optionS(2)= 
" Korrespondenz " 

<36> 1840 GOSUB 500:GOSUB 570 
<22> 1850 IF z=8 THEN 1610 

<30> 1860 IF q=l THEN qual$=entwur£S:quall$=option$(1) 
<54> 1870 IF q=2 THEN qual$=korresp$:quallS=option$(2) 
<67) 1880 yp=22:mitte=64 

<56> 1890 optionen=2:option$(1)=" Sound ein ":option$(2 
)=" Sound aus " 

<26) 1900 GOSUB 500:GOSUB 570 
<12> 1910 IF z=8 THEN 1610 

<75> 1920 IF q=l THEN beep$=CHR$(7):sound$=option$(1) 
<79> 1930 IF q=2 THEN beep$="":sound$=option$(2) 

<14> 1940 ’ 

<25> 1950 ******* Eingabemaske für Datum ****** 

<20> 1960 1 

<32> 1970 PRINT FNwindowS(10,6,21,79)clear$;esc$+"y":PR 
INT FNlocateS(32,6)esc$+"j";FNlocateS(32,61)invers 
$" 0 = Abbruch.. 9 = Ende "normalS;:PRINT FNlocate 
$( 11 , 6 )" " 

<83> 1980 PRINT FNlocateS(10,6)invers$+artS+norraal$+" " 
+invers$+sound$+normalS+" "+invers$+ausgabe$+norma 
IS; 

<58> 1990 IF ausgabe=l THEN PRINT " ":G0T0 2010 
<24> 2000 PRINT " "+invers$+paperl$+norroal$+" "+invers$ 
+quall$+normal$ 

<18> 2010 PRINT FNlocateS(11,6)STRINGS(79,154) 

<24> 2020 PRINT FNlocateS(15,19) inversS" Bitte Geburts 
datum eingeben.. (JJJJMMTT) "normalS 
<85> 2030 IF art=l THEN 2050 

<45> 2040 PRINT FNlocateS(17,13)inversS " Partner 1 "no 
rmal$;FNlocateS(17,45)inversS" Partner 2 "normalS 
<87> 2050 fehler=0:PRINT beepS:PRINT FNlocateS(17,30);: 
INPUT " ",in$:in#=VAL(in$):GOSUB 2270:gebdat=in#:s 
chleife=0:GOSUB 3280 
<53> 2060 ebene=ebene+l 

<75> 2070 IF fehler=l THEN fehler=0:GOTO 2050 
<55> 2080 gebdatj=jahr:gebdatm=monat:gebdatt=tag 
<80> 2090 IF art=l THEN 2130 

<28> 2100 fehler=0:PRINT beep$:PRINT FNlocateS(17,60);: 
INPUT " ",in$:in#=VAL(in$)-.GOSUB 2270:gebdatl=in#: 
schleife=0:GOSUB 3280 

< 1> 2110 IF fehler=l THEN fehler=0:GOTO 2100 

<31> 2120 gebdatjl=jahr:gebdatml=monat:gebdattl=tag 
<64> 2130 PRINT FNlocateS<20,19) inversS" Bitte gewünsc 


hten Zeitraum eingeben. (JJJJMMTT) "normalS 
<69> 2140 PRINT FNlocateS(22,19)inversS " Beginn "norma 
l$;FNlocate$(24,19)inversS " Ende.. "normalS 
<39> 2150 fehler=0:PRINT beep$:PRINT FNlocate${22,30);: 
INPUT " ",inS:in#=VAL(in$):GOSUB 2270:beginn=in#:s 
chleife=l:GOSUB 3280:IF fehler=l THEN fehler=0:GOT 
O 2150 

<96> 2160 beginnj=jahr-.beginnm=raonat:beginnt=tag 
<69> 2170 fehler=0:PRINT beep$:PRINT FNlocateS(24,30);: 
INPUT " *',in$:in#=VAL(in$):GOSUB 2270:ende=in#:sch 
lei£e=2:GOSUB 3280:IF fehler=l THEN fehler=0:GOTO 
2170 

< 5> 2180 endj=jahr:endm=monat:endt=tag 

<64> 2190 PRINT FNwindowS(12,6,19,79);clear$resc$+"y" 

<58> 2200 IF ausgabe=2 THEN 2220 

<18> 2210 PRINT FNlocateS(10,6)SPACES(79) 

<62> 2220 PRINT FNlocateS(32,6)esc$+"J"; 

<30> 2230 GOTO 1200 

< 1> 2240 ’ 

<29> 2250 ******* Tastaturabfrage ****** 

< 7> 2260 * 

<34> 2270 IF in$="0" THEN 2300 
<43> 2280 IF in$="9" THEN 450 
<11> 2290 RETURN 
<75> 2300 ebene=ebene-l 

< 3> 2310 IF ebene>2 THEN ebene=2 
<46> 2320 ON ebene GOTO. 390,1970 

< 0> 2330 ' 

<11> 2340 ******* UP Auswertung auf Drucker 

< 6> 2350 ’ 

<79> 2360 PRINT beep$:PRINT FNlocateS(16,28)inversS" Au 
sdruck = ENTER.. Abbruch = CAN "normalS; 

<34> 2370 weiterS=INKEY$:IF weiter$="*‘ THEN 2370 
<85> 2380 IF weiter$=CHR$(8) THEN 1970 
<38> 2390 IF weiter$=CHR$(27) THEN 450 
<20> 2400 IF weiterS=CHRS(13) THEN 2410 ELSE 2370 
<13> 2410 PRINT FNlocateS(20,34)inversS" DRUCK.. L 
Ä U F T "normalS; 

<46> 2420 PRINT FNlocateS(32,6)escS+"J”;coff$; 

<95> 2430 LPRINT paper$;qualS;elite$; 

<47> 2440 x=l:seite=l:LPRINT:LPRINT:LPRINT 
<61> 2450 LPRINT TAB(27)escS+"Wl"+fettdruck$+"B I O R H 
Y T H M U S"+normdruck$+escS+"W0" 

<24> 2460 LPRINT TAB(27)esc$+"Wl"+fettdruck$+"========= 

============"+normdruck$+esc$+"W0” 


<72> 

2470 

LPRINT: 

: LPRINT 


<49> 

2480 

LPRINT 

TAB(33) 

"vom "USING"##",• beginnt; 

<71> 

2490 

LPRINT 

TAB(39) 

’*. "USING"##”; beginnm; 

<33> 

2500 

LPRINT 

TAB(42) 

"."USING"####";beginnj; 

<83> 

2510 

LPRINT 

TAB(48) 

"bis "USING"##",-endt; 

<38> 

2520 

LPRINT 

TAB(54) 

"."USING"##";endm; 

<39) 

2530 

LPRINT 

TAB(57) 

"."USING"####";endj 

<44> 

2540 

LPRINT 



<37> 

2550 

LPRINT 

TAB(33) 

"Geburtsdatum"; 

<77> 

2560 

IF art= 

=1 THEN 

2580 

<64> 

2570 

LPRINT 

TAB(46) 

"PI"; 

<15> 

2580 

LPRINT 

TAB(52) 

USING”##";gebdatt; 

< 69 > 

2590 

LPRINT 

TAB(54) 

**. "USING"##" ;gebdatm; 

<68> 

2600 

LPRINT 

TAB(57) 

"."USING"####";gebdatj 

< 19 > 

2610 

IF art= 

=1 THEN 

2650 

< 2> 

2620 

LPRINT 

TAB(46) 

"P2" TAB(52)USING"##";gebdattl; 

<92> 

2630 

LPRINT 

TAB(54) 

"."USING"##”;gebdatml; 

< 59> 

2640 

LPRINT 

TAB(57) 

"."USING"####”;gebdatjl 

<43> 

2650 

tabl=4 

:tab2=2 


< 1> 

2660 

IF art ; 

=1 THEN 

2680 

<68> 

2670 

tabl=0 

:tab2=0 


<93> 

2680 

LPRINT 

:LPRINT: 

LPRINT TAB(28)fettdruck$+"seeli 


sch"TAB(54)"geistig"TA8(77)"körperlich"+normdruck$ 
:LPRINT 

<97> 2690 IF art=l THEN 2720 

< 6> 2700 LPRINT TAB(27)"P1"TAB(35)"P2"TAB(52)"P1"TAB(6 

0)"P2"TAB(76)"P1"TAB(84)"P2" 

<60> 2710 LPRINT:LPRINT 

<88> 2720 anzahl=0:j=gebdatj:m=gebdatm:t=gebdatt:x=l:GO 
SUB 830 

<48> 2730 IF art=l THEN 2750 

<69> 2740 j=gebdatjl:m=gebdatml:t=gebdattl:x=2:GOSUB 83 
0 

<24> 2750 j=beginnj:m=beginnm:t=beginnt 

< 8> 2760 GOSUB 3900 

<57> 2770 x=l:GOSUB 860:s(1)=s:g(1)=g:p(1)=p 
<73> 2780 IF art=l THEN 2800 
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<59> 2790 x=2:GOSUB 860:s(2)=s:g(2)=g:p(2)=p 

<97> 2800 anzahl=anzahl+l 

<17> 2810 LPRINT TAB(10)USING"##";t; 

<50> 2820 LPRINT TAB(12)"."USING"##";m; 

<56) 2830 LPRINT TAB{15)"."USING"####";j; 

< 6> 2840 LPRINT TAB(25+tabl)USING"####";s (1); 

<21> 2850 LPRINT TAB(30+tabl)"%"; 

<69> 2860 IF art=l THEN 2890 

<27> 2870 LPRINT TAB(33)USING"####";s(2); 

<92> 2880 LPRINT TAB(38)"%"TAB (45) f ettdruckS+"r'+nornidr 
uck$; 

<92> 2890 LPRINT TAB(52+tab2)USING"####";g(l); 

<92> 2900 LPRINT TAB(57+tab2)"%"; 

<66> 2910 IF art=l THEN 2940 

<23> 2920 LPRINT TÄB{60>USING"####";g(2) ; 

<45> 2930 LPRINT TAB(65)"%"TAB(71)fettdruckS+"I"+nornidr 
uck$; 

<48> 2940 LPRINT TAB(78)USING"####";p(l); 

<85> 2950 LPRINT TAB(83)"%"; 

<92> 2960 IF art=l THEN 2990 

<72> 2970 LPRINT TAB(86)USING"####";p(2); 

< 5> 2980 LPRINT TAB(91)"%" 

<34> 2990 w=0 

<49> 3000 w=w+l 

<29> 3010 IF w<100 THEN 3000 

< 8) 3020 IF t=endt AND m=endm ÄND j=endj THEN 3220 
<46> 3030 IF seite=l AND anzahl=40 THEN GOSUB 3060 
<10> 3040 IF seite>l AND anzahl=45 THEN GOSUB 3060 
<52> 3050 GOSUB 3950:GOTO 2760 

<82> 3060 IF art=l THEN 3080 

<31> 3070 LPRINT:LPRINT:LPRINT:LPRINT TAB(10)”P1 = Part 
ner 1.. P2 = Partner 2 " 

<49> 3080 LPRINT ff$;:anzahl=0:seite=seite+l 
<41> 3090 LPRINT:LPRINT:LPRINT TAB(10)esc$+"xl"+"B I O 
1HYTHKU S"+esc$+"x0"; 

<68> 3100 LPRINT TAB(45)"Geburtsdatum"; 

<79> 3110 IF art=l THEN 3130 
<95> 3120 LPRINT TAB (58) "PI";' 

<31> 3130 LPRINT TAB(64)USING' 1 ##";gebdatt;:LPRINT TAB(6 
6)"."USING"##";gebdatm;:LPRINT TAB(69)"."USING"### 
#”;gebdatj;:LPRINT TAB(82)"Seite "USING"###";seite 

<77> 3140 IF art=l THEN 3170 
<54) 3150 LPRINT TAB(54)"P2"; 

<47> 3160 LPRINT TAB(60)USING"##";gebdattl;:LPRINT TAB{ 
62)"."USING"##";gebdatml;:LPRINT TAB(65)"."USING"# 
###";gebdatjl 

<59> 3170 LPRINT-.LPRINT: LPRINT TAB (28) +f ettdruckS+"seel 
isch"TÄB{54)"geistig"TAB(77)"körperlich"+normdruck 
5:LPRINT 

<55> 3180 IF art=l THEN 3200 

<22> 3190 LPRINT TAB(27)"P1"TAB(35)"P2"TAB(52)"P1"TAB(6 
0)"P2"TAB(76)"P1"TAB(84)"P2" 

<24> 3200 LPRINT:LPRINT:LPRINT 

<87> 3210 RETURN 

<28> 3220 IF art=»l THEN 3240 

<33> 3230 LPRINT:LPRINT:LPRINT TAB(10)"PI = Partner 1.. 
P2 = Partner 2" 

<94> 3240 PRINT beep$:LPRINT retpica$;ff$; .-GOTO 370 

< 5> 3250 1 

<63> 3260 ******* UP Datumkontrolle 
<11> 3270 ' 

<64) 3280 jahr=INT(in#/10000):monat=INT((in#-jahr*10000 
)/ 100 ):tag=in#-jahr* 10000 -monat *100 

<76> 3290 IF jahr<l OR jahr>9999 THEN fehler=l:PRINT be 
ep$;:in#=0:RETURN 

<77> 3300 IF monat<l OR monat>12 THEN fehler=l:PRINT be 
epS;:in#=0:RETURN 

<85> 3310 0N monat GOTO 3320,3380,3320,3350,3320,3350,3 
320,3320,3350,3320,3350,3320 
<62> 3320 IF tag<l OR tag>31 THEN fehler=l:PRINT beepS; 

:in#=0:RETURN 

<84> 3330 IF schleife=0 THEN RETURN 
<15> 3340 IF scbleife=l THEN 3430 ELSE GOTO 3450 
<48> 3350 IF tag<l OR tag>30 THEN fehler=l:PRINT beepS; 
:in#=0:RETURN 

<93> 3360 IF schleife=0 THEN RETURN 

<24> 3370 IF schleife=l THEN 3430 ELSE GOTO 3450 

<98> 3380 IF tag<l OR tag>28 THEN 3410 

< 3> 3390 IF schleife=0 THEN RETURN 

< 5> 3400 IF schleife=l THEN 3430 ELSE GOTO 3450 

<87> 3410 IF jahr/4<>INT(jahr/4) THEN £ehler=l:PRINT be 


epS;:in#=0:RETURN 

<83> 3420 IF tag<l OR tag>29 THEN fehler=l:PRINT beep$: 
in#=0:RETURN 

<90> 3430 IF beginn<gebdat OR beginn<gebdatl THEN fehle 
r=l:PRINT beep$;:in#=0:RETURN 

< 1> 3440 RETURN 

<80) 3450 IF ende<beginn THEN fehler=l:PRINT beep$;:RET 
URN 

< 7> 3460 RETURN 
<15> 3470 ' 

<31> 3480 ******* UP Zeitspannenschleife 
<21> 3490 ' 

<29> 3500 anzahl=0:PRINT coff$;:PRINT FNwindow$(14,6,16 
,78) 

<63> 3510 j=gebdatj:m=gebdatm:t=gebdatt:x=l:GOSUB 830 
<97> 3520 IF art=l THEN 3540 

<63> 3530 j=gebdatjl:m=gebdatml:t=gebdattl:x=2:GOSUB 83 
0 

<18> 3540 j=beginnj:m=beginnm:t=beginnt 

< 2> 3550 GOSUB 3900 

<51> 3560 x=l:GOSUB 860:s(l)=s:g(l)=g:p(l)=p 
<24> 3570 IF art=l THEN 3590 
<53> 3580 x=2:GOSUB 860:s(2)=s:g(2)=g:p(2)=p 
<20> 3590 anzahl=anzahl+l 

<27> 3600 PRINT FNlocate$<anzahl*2,3)USING"##";t; 

<91> 3610 PRINT FNlocateS(anzahl*2,5)"."USING"##";m; 
<17) 3620 PRINT FNlocateS(anzahl*2,8)"."USING"####";j; 
<77> 3630 PRINT FNlocate$(anzahl*2,18)USING"####";s(l); 
<90> 3640 PRINT FNlocate$(anzahl*2,23) 

<19> 3650 IF art=l THEN 3680 

<66> 3660 PRINT FNlocate$(anzahl*2,28)USING"####";s(2); 
<31> 3670 PRINT FNlocate$(anzahl*2,33)"%"; 

<30> 3680 PRINT FNlocate$(anzahl*2,39)USING"####";g(l); 

< 1) 3690 PRINT FNlocateS(anzahl*2,44)"%"; 

<16> 3700 IF art=l THEN 3730 

<90> 3710 PRINT FNlocate${anzahl*2,49)USING"####";g(2); 
<13> 3720 PRINT FNlocate$(anzahl*2,54)"%"; 

<38> 3730 PRINT FNlocate$(anzahl*2,60)USING"####”;p(l); 
<82> 3740 PRINT FNlocate$(anzahl*2,65)"%"; 

<42> 3750 IF art=l THEN 3780 

<47> 3760 PRINT FNlocate$(anzahl*2,70)USING"####";p(2) 
<18> 3770 PRINT FNlocateS(anzahl*2,75)"%" 

<53> 3780 IF j=endj AND m=endm AND t=endt THEN GOSUB 38 
10:RETURN 

<50> 3790 IF anzahl/7=INT(anzahl/7) THEN GOSUB 3810 

< 7> 3800 GOTO 3950 

<53> 3810 anzahl=0:PRINT beepS; 

<31> 3820 PRINT FNxindow$(l,l,32,90); 

<78> 3830 PRINT FNlocateS(32,31)inversS" ENTER = Weiter 
blättern.. CAN = Abbruch.. EXIT = Ende “normalS; 
<56> 3840 weiter$=INKEY$:IF weiter$="" THEN 3840 
<90> 3850 IF weiter$=CHRS(8) THEN in$="0":PRINT con$;:G 
OTO 2270 

<40> 3860 IF weiter$=CHR$(27) THEN 450 

<67> 3870 IF weiterS=CHR$(13) THEN 3880 ELSE 3840 

<95> 3880 PRINT FNwindow$(14,6,15,78); 

<42> 3890 PRINT clearS;:RETURN 

<87> 3900 ON m GOTO 3910,3930,3910,3920,3910,3920,3910, 
3910,3920,3910,3920,3910 
<30> 3910 ultimo=31:RETURN 
<19> 3920 ultimo=30:RETURN 

<23> 3930 IF j/4=INT(j/4) THEN ultimo=29 ELSE ultimo=28 
<11> 3940 RETURN 
<40> 3950 t=t+l 

<84> 3960 IF t>ultimo THEN 3980 
<43> 3970 ON ausgabe GOTO 3560,2770 

< 7> 3980 t=l:m=m+l 

<27> 3990 IF m>12 THEN 4000 ELSE GOSUB 3900:GOTO 3970 

<10> 4000 m=l:j=j+l:GOSUB 3900:GOTO 3970 

<14> 4010 weiter$=INKEYS:IF weiter$="" THEN 4010 

<97> 4020 IF vreiter$=CHR$ (8) THEN 390 

<69> 4030 IF weiter$=CHR$(13) THEN RETURN ELSE 4010 

<93> 4040 RETURN 
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Textverarbeitung 

einmal anders 


Wenn von Textverarbeitung die 
Rede ist, verbindet man meistens 
die Erstellung und Editierung von 
fortlaufenden Texten mit diesem 
Begriff. Die dazu genutzten 
Textverarbeitungsprogramme, wie 
WORDSTAR, LocoScript etc, sind 
hinreichend bekannt und haben be¬ 
stimmte Eigenschaften, die man be¬ 
rücksichtigen muß, wenn man Texte 
weiter »verarbeiten« 
möchte, indem man diese Texte auf 
Worthäufigkeiten etc. untersucht. 

Der folgende Artikel beschreibt einige 
Möglichkeiten der fortgeschrittenen 
»Textverarbeitung« auf dem JOYCE mit 
LocoScript, CP/M und Mallard-BASIC. 
Vorgestellt werden einige (Sub-)Pro- 
gramme, mit der man eine Datenbank 
unter Mallard-BASIC effektiv betreiben 
kann, die Möglichkeiten der rechnerge¬ 
stützten Wortschatzerstellung und Wort¬ 
schatzanalyse sowie ein kleines Hilfspro¬ 
gramm, mit dem LocoScript-Texte nach 
ihrer Umwandlung in das ASCII-Format 
auch unter CP/M abgedruckt werden 
können. Es soll auch gezeigt werden, daß 
man mit der beim JOYCE mitgelieferten 
Software durchaus die angedeuteten 
Aufgaben lösen kann, ohne auf Program¬ 
me wie WORDSTAR oder dBASE an¬ 
gewiesen zu sein (wobei der Komfort, 
den diese Programme bieten, nicht be¬ 
stritten werden soll!). 

An der FU Berlin entsteht zur Zeit unter 
Leitung von K. Stermann ein Grund¬ 
wortschatz der chinesischen Sprache, bei 
dessen Aufbereitung die im Verlaufe die¬ 
ses Artikels ausgeführten Überlegungen 
in die Praxis umgesetzt werden. Die hier 
gewählten Beispiele werden anschaulich¬ 
keitshalber anhand der englischen und 
deutschen Sprache vorgeführt. Die Da¬ 
tenbank stützt sich auf das Adreßverwal- 
tungsprogramm von Dr. J. Fiedler, vor¬ 
gestellt in dieser Zeitschrift, Ausgabe 
5/1986. 

1. Wortschatzanalyse 

1.1 Erzeugung eines geeigneten Files 

1.2 Umwandlung des Files in die Datei 
einer Datenbank 

1.3 Erzeugung eines Wörterbuches 


2. Morphemanalyse 

2.1 Erzeugung von Morphemen 

2.2 Morphemorientierte Darstellung 

3. Leistungsmerkmale 

des Datenbankprogrammes 

3.1 Eingabemasken und Überschriften 

3.2 Scrolling der Datei auf dem Bild¬ 
schirm 

3.3 Indizierung fertiger Dateien 

3.4 Betrieb einer parallelen Datenbank 

3.5 Ausdruck von ASCII-Dateien, die 
unter LocoScript erzeugt worden 
sind, im Rahmen der Datenbankbe¬ 
nutzung 

3.6 Morphemorientierter Ausdruck 


1. Wortschatzanalyse 


Für verschiedene Zwecke möchte man 
wissen, welche Vokabeln ein Text ent¬ 
hält. Entweder soll festgestellt werden, 
welche Wörter überhaupt Vorkommen, 
daß z.B. ein Lehrbuchtext nur bestimmte 
Vokabeln enthalten soll, oder aber es be¬ 
steht — wie gelegentlich in der Literatur¬ 
wissenschaft — die Notwendigkeit, die 
Urheberschaft (»Vaterschaftsnachweis«) 
eines gegebenen Textes festzustellen. 
Auch dazu bedient man sich der Wort¬ 
schatzanalyse, mit der man feststellen 
kann, ob und wie häufig ein Autor be¬ 
stimmte Wörter verwendet, und ob die 
Verteilung der Wörter im untersuchten 
Text mit der Verteilung der Wörter in 
anderen Texten des fraglichen Autors 
übereinstimmt. 

Zunächst muß jedoch von einem gegebe¬ 
nen Text ein für die Weiterverarbeitung 


auf einer Datenbank geeignetes File er¬ 
zeugt werden. 

1.1 Erzeugung eines geeigneten Files 

Unter LocoScript wird ein Text erstellt, 
der untersucht werden soll. Als Muster¬ 
text dienen hier die ersten 400 Wörter 
des vorliegenden Artikels. Man fahrt auf 
den Anfang des zu bearbeitenden Textes 
und betätigt die »Suche/Ersetze«-Funk- 
tion. Gesucht wird die Leerstelle » «, die 
durch »RETURN« ersetzt wird. 

Diese Prozedur wird auf den gesamten 
Text angewandt; wir erhalten so einen 
File, bei dem jede Zeile nur ein Wort 
(= einen String) enthält. Für die ersten 
zehn Wörter dieses Aufsatzes sähe die¬ 
ses File (N.B.: Tabulatoren und Anfüh¬ 
rungszeichen wurden von Hand entfernt) 
so aus: 

TEXTVERARBEITUNG 

EINMAL 

ANDERS 

Wenn 

von 

Textverarbeitung 

die 

Rede 

ist, 

verbindet 

Nachdem der Text in dieses Format um¬ 
gewandelt ist, wird er von LocoScript 
in eine ASCII-Datei (unformatiert) um¬ 
gewandelt und erhält den Dateinamen 
»entry.dat«. Dies ist wichtig, da alle 
nachfolgenden Programme immer die¬ 
sen Dateinamen abfragen. Der erste Be¬ 
arbeitungsschritt ist beendet, wir haben 
ein File vor uns, das in idealer Weise 
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— Das ist die Software zum PC Magazin — 
— Jeden Monat neu — 


DATABOX: 

— mehr als der übliche Soft¬ 
wareservice 

— bringt ergänzend sämtli¬ 
che Listings der jeweiligen 
Zeitschrift und alle Pro¬ 
grammbeispiele auf Kas¬ 
sette oder auf 3’Diskette. 

— Programme sind, soweit 
systembedingt möglich, 
auf allen drei CPC- 
Modellen lauffähig. Einzel¬ 
heiten entnehmen Sie bit¬ 
te der nebenstehenden 
Aufstellung. 

— erscheint jeden Monat 
und trägt das Titelbild des 
gleichzeitig erscheinen¬ 
den Heftes. 

— der Datenträger zum PC 
Schneider International 
enthält außerdem jedes¬ 
mal ein zusätzliches Bo¬ 
nusprogramm, das nicht 
im Heft abgedruckt ist. 



Für alle CPC’s als Kassette und 
3" Diskette. 

Auch als Abonnement mit Preis¬ 
vorteil erhältlich. 

Inhalt der Databox zu Heft 8/87: 

Programm 464 664 6128 

Tashelp 
CHRSPAR 
GLIDER 
Hektik 

Profi RSX, Teil 3 
SMILER 

SPS auf dem CPC 
■Spieleprogrammierung 
in Assembler 
RAMDISK 
CHAR (Dev Pac)* 

ELLIPSE (Dev Pac)' 

Easy Phpter* 

Helpdesigner* 

Bonusprogr* 

(World - eine Version des 
bekannten Risiko-Spieles) • • 

* Auf Disk Seitö.2 

Am Ende der Cassette befinden sich 
noch »Iiesmich«-Fites 


H 


Einzelbezug: 

Einzelbezugspreise für DATABOX: 

Diskette 3" 24— DM zuzüglich 3,— DM Porto/Ver¬ 
packung (im Ausland zuzüglich 5,— DM Porto/Ver¬ 
packung). 


Kassette 14,— DM zuzüglich Porto/Verpackung (im 
Ausland zuzüglich 5,— DM Porto/Verpackung). 

Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr (in das Ausland ist Nachnahme 
nicht möglich). 

Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann ab sofort 
auch im Abonnement bezogen werden. Dadurch 
sparen Sie Mühe und haben außerdem noch ei¬ 
nen Preisvorteil gegenüber dem Einzelbezug 


Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.90— DM 

Im europäischen Ausland.100,—DM 

Im außereuropäischen Ausland.120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150,— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.......180,— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland.240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und Westberlin.300,— DM 

Im europäischen Ausland.320— DM 

Im außereuropäischen Ausland.360,— DM 

In den vorgenannten Preisen sind die Versand- 
und Verpackungskosten enthalten. Bitte benutzen 
Sie für Ihre Bestellung die Abo-Karte. 


PC Schneider international 

Postfach 250, 3440 Eschwege 


Bitte Bestell karte benutzen 
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als sequentielle Datei unter BASIC wei¬ 
terverarbeitet werden kann. 

1.2 Umwandlung des Files in die Da¬ 
tei einer Datenbank 

Um aus diesem File nun eine Daten¬ 
sammlung zu machen, muß eine indizier¬ 
te Datei erzeugt werden. Dies leistet das 
Subprogramm »Dateien werden automa¬ 
tisch indiziert«. Dazu ist die Datenbank 
mit einer Schnittstelle versehen, die vom 
File »entry.dat« einen String abruft, ihn 
der Datenbank übergibt, dort indiziert, 
um sich dann den nächsten String aus 
»entry.dat« zu holen. Der ganze Vorgang 
kann entweder vollautomatisch für die 
ganze Datei erfolgen, oder aus den 
Strings können festgelegte Teilstrings 
ausgewählt werden, umz.B. für Reim¬ 
untersuchungen nach dem zweiten Buch¬ 
staben zu sortieren, der in vielen Spra¬ 
chen mit großer Wahrscheinlichkeit ein 
Vokal ist; man kann den String auch 
kommentieren, indem man noch einen 
zweiten String hinzufügt, der ein Äqui¬ 
valent dieses Wortes in einer anderen 
Sprache enthalten könnte und ebenfalls 
indiziert wird. Die detaillierten Pro¬ 
grammschritte werden im dritten Teil 
dieses Artikels erläutert. 

Sollen die Wörter nun gezählt werden, so 
bedient man sich eines Unterprogram¬ 
mes (»Zählung durchführen«). Die sech¬ 
zehn häufigsten Wörter unter den ersteh 
400 dieses Artikels sind: 

der 19 mal 

die 16 mal 

man 10 mal 

und 9 mal 

werden 7 mal 

von 7 mal 

mit 7 mal 

ein 7 mal 

auf 7 mal 

in 

unter 

Datenbank 
Wörter 

Wortschatzanalyse 
Text 

LOCOSCRIPT 

Da diese Wörter insgesamt 
121 mal Vorkommen, bestrei¬ 
ten sie bereits 30,25% des 
Mustertextes, der insgesamt 
ca. 230 verschiedene Wörter 
enthält. 

1.3 Erzeugung eines 
Wörterbuches 

Eine ideale Anwendung der 
Datenbanken ist die Wort¬ 
schatzverwaltung eines Wör¬ 


terbuches, das entweder spezialisiert auf 
einen bestimmten Text bezogen (s.o.) 
oder durch eine allgemeine Wortschatz¬ 
sammlung angelegt wird. Hierfür legt 
man mehrere Felder pro Datensatz an, 
eines für das fremdsprachliche Wort, ei¬ 
nes für das deutsche Äquivalent, sowie 
ein oder mehrere Felder für Zusatzinfor¬ 
mationen wie Wortart und Fundstelle im 
Quelltext (z.B. Lektionsnummer). Bei 
der Eingabe der Wörterbucheinträge 
sind mehrere Dinge zu berücksichtigen. 
Nicht immer ist die Zuordnung von 
Wörtern in beide Richtungen eindeutig, 
man muß u.U. für ein Wort einer Spra¬ 
che mehrere Datensätze anlegen, wie für 
das englische Wort »to put«, das deutsch 
mit »setzen, stellen, legen« wiedergege¬ 
ben werden kann. Weiterhin muß der 
Eintrag so beschaffen sein, daß die Da¬ 
tenbank ihn an die Stelle rückt, wo er 
vermutet wird. Verben wird im Engli¬ 
schen ein »to« im Infinitiv vorangestellt, 
das bei der Einordnung und Erzeugung 
des Indexstringes nur irritiert. Nun sind 
aber im Englischen viele Wörter poly¬ 
funktional, sie können als Verb und als 
Substantiv gebraucht werden. Beispiels¬ 
weise kann das Wort »test« sowohl »te¬ 
sten« (dann eigentlich »to test“) oder 
»(ein) Test« heißen. In diesem Fall muß 
das Wort unter zwei Wortarten einsor¬ 
tiert werden. Auf Deutsch kann man bei 
reflexiven Verben beobachten, daß erst 
»sich waschen« den gewünschten Sinn 
ergibt, der aus dem Wort »waschen« al¬ 
lein nicht erschlossen werden kann. Da 
nun aber das Wort »waschen« in seiner 
Kembedeutung viel logischer unter »w« 
und nicht unter »s« (wie »sich waschen“) 
zu vermuten ist, bieten sich zwei Wege 
an. Der erste ist der der Umstellung des 
Ausdrucks, und statt »to test« und »sich 
waschen« nur »test (to)« und »waschen 


(sich)« zu schreiben. Der elegantere Weg 
sieht jedoch mehrere Datenfelder pro 
Datensatz vor, die wie folgt angeordnet 
werden können: 

dat.feld$(0) Fremdsprachliches Wort 
(Indexfeld) 

dat.feld$(l) Fremdsprachl. Wort 
(Druckfeld, nicht indiziert) 
dat.feld$(2) (Wortart; indiziert) 
dat.feld$(3) Deutsches Wort (Indexfeld) 
dat.feld$(4) Deutsches Wort (Druckfeld, 
nicht indiziert) 

So würde der Inhalt für das Beispiel »wa¬ 
schen« aussehen: 
dat.feld$(0): wash 
dat.feld$(l): to wash 
dat,feld$(2): Verb 
dat.feld$(3): waschen 
dat.feld$(4): sich waschen 

Die beschriebene Anordnung hat den 
Vorteil, daß das Druckfeld frei belegt 
werden kann, ohne daß der Sortierpro¬ 
zeß gestört wird; auch veränderte Schrei¬ 
bungen, wie Groß- und Kleinschreibung 
(gesetzt den Fall, daß nicht sowieso die 
Indexstrings mit UPPER — erzeugt wer¬ 
den) können verwendet werden, die 
Stichwörter lassen sich trotzdem leicht 
aufrufen. Bei der Datensammlung kann 
dann mit Hilfe der Druckfelder innerhalb 
weiter Grenzen bereits das zukünftige 
Erscheinungsbild des Ausdrucks be¬ 
stimmt werden, wobei vermieden wird, 
daß sich das Lexikon dem Computer an¬ 
paßt. Es ist wünschenswerter und er¬ 
zeugt insgesamt ein lesefreundlicheres 
Druckbild, wenn sich der Computer dem 
Benutzer anpaßt. 


2. Morphemanalyse 


Morpheme sind die kleinsten isolierba¬ 
ren Bestandteile einer Spra¬ 
che, die einen Sinn tragen. Sie 
können mit Wörtern identisch 
sein, können aber auch Be¬ 
standteile von Wörtern sein. 
Das Wort »Wort« enthält nur 
ein einziges Morphem, näm¬ 
lich »Wort«, während ein 
Wort wie »Datenverarbei¬ 
tung« die Morpheme »Daten«, 
»ver-« (kennzeichnet Prozes¬ 
se mit Verwandlungscharak¬ 
ter, tritt nie isoliert auf), »ar- 
beit« (kann isoliert und gebun¬ 
den auftreten) und »-ung« (nur 
gebunden; kennzeichnet sub¬ 
stantivierte Verben) enthält. 
Durch systematisierte Darstel¬ 
lung aller Morpheme einer 
Sprache (innerhalb eines ge¬ 
gebenen Textes (z.B. eines 


6 mal 
5 mal 
5 mal 
4 mal 
4 mal 
4 mal 
4 mal 


LISTING >SILBEN <, REMARK = >'<. 

<18> 100 ' ** Leere Datei einrichten ** 

<16> 110 : 

<42> 120 IF FIND?("daten%")<>"" AND FINDS("wort%")<>"" 
THEN GOTO 200 

<58> 130 IF FIND$ ("daten%") < >"" AND FIND$ ("wort%")=""TJ 
EN GOTO 170 

<23> 140 PRINT:PRINT"Leere Datei wird erstellt - bitte 
warten” 

<41> 150 CREATE #1,"daten%","index%",2,satzgr+2 
<28> 160 G0SUB 1550:LSET satz$=”":GOTO 290 
<96> 170 CREATE #2, "wort%", "schloss%'', 2,42 
<71> 180 GOSUB 1580:LSET satz$="":GOTO 290 
<32> 190 : 

<19> 200 1 ** Datei öffnen ** 

<17> 210 : 

<46> 220 OPEN "K",#1,"daten%","index%",2 
<12> 230 OPEN "K",#2,"wort%","schloss%",2 
<73> 240 GOSUB 1550:FIELD #l,satzgr AS satz$ 

<54> 250 GOSUB 1580:FIELD #2,40 AS satzS 


Bild 2: SILBEN. BAS, Auszug 1 
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Lehrbuchtextes oder eines Wörterbu¬ 
ches)) lassen sich die Wortbildungsre¬ 
geln einer Sprache veranschaulichen. 
Dem Sprachlemenden wird so ein funk- 
tionalisiertes Verständnis der Sprache 
nahegelegt, das höher als das reine Aus¬ 
wendiglernen einzuordnen ist. Dem Lin¬ 
guisten wird durch das konzentriert prä¬ 
sentierte Datenmaterial ein tieferer Ein¬ 
blick in die Sprachstrukturen ermöglicht. 

2.1 Erzeugung von Morphemen 

Da der Computer nicht a priori weiß, wo 
innerhalb eines Wortes die Morphem¬ 
grenzen liegen, muß der Mensch diese 
eingeben. Dazu dient das Subprogramm 
»String auswählen und übernehmen«, bei 
dem von jedem String aus »entry.dat« ein 
oder mehrere Teilstrings ausgewählt 
werden können, die indiziert und abge¬ 
speichert werden. Beim morphemorien¬ 
tierten Durchlauf wird nach der alphabe¬ 
tischen Ordnung der Morphemstrings 
sortiert, so daß das Wort »Datenverar¬ 
beitung« insgesamt viermal unter 

arbeit Datenverarbeitung 

Daten Datenverarbeitung 

ver Datenverarbeitung 

ung Datenverarbeitung 

neu eingeordnet wird. 

2.2 Morphemorientierte Darstellung 

Der Nutzen einer Auflistung nach Mor¬ 
phemen ist mit nur einem Beispiel 


schlecht zu erklären. Man muß mehre¬ 
re Wörter nehmen, die alle das gleiche 
Morphem in verschiedenen Positionen 
enthalten, z.B. das Morphem »Herz«: 

herzig 

kaltherzig 

warmherzig 

herzlich 

herzhaft 

herzkrank 

beherzt 

Herzstück. 

Die zu dieser Darstellung nötige Druck¬ 
routine ist ebenfalls im dritten Abschnitt 
näher beschrieben. 

3.1 Eingabemasken 

Da der Benutzer der Datenbank mögli¬ 
cherweise verschiedene Dateien bearbei¬ 
ten möchte, die unterschiedliche Satz- 
und Feldgrößen aufweisen, stellt eine au¬ 
tomatische Eingabemaske, die die Feld¬ 
größen festlegt und entsprechende Über¬ 
schriften speichert, eine sinnvolle Ergän¬ 
zung dar. Das folgende Subprogramm 
fragt, ob eine solche Maske (unter dem 
Namen »satz.dat«) bereits vorhanden ist, 
übernimmt bei Vorhandensein die Daten 
der Maske und bietet bei Nichtvorhan- 
densein der Maske die bequeme Mög¬ 
lichkeit der Erstellung einer neuen Mas¬ 
ke. Vorhandene Masken können geän¬ 
dert werden, wobei allerdings die Feld¬ 


größe beibehalten werden muß, sonst 
sind vorhandene index%- und daten%- 
Dateien nicht mehr benutzbar. 

Wann immer Eingaben in die Datenbank 
vorgenommen werden müssen, so benö¬ 
tigt man nur noch die Variablen aus 
SATZ.DAT, um zu wissen, welches 
Feld eingegeben wird. Folgender Auf¬ 
bau ist typisch: 

20foix= Otofz 

30 PRINT nenn$(x);: INPUT feld$(x) 

40 NEXT 

wobei fz die Feldzahl minus eins ist, da 
die Reihen bei Null anfangen zu zählen, 
und nenn$(x) die von SATZ.DAT vor¬ 
gegebene Bezeichnung des Datenfeldes 
ist, dem eine Stellenzahl s(x) zugeordnet 
sein kann (s.a. Listingbeispiel »Eingabe¬ 
routine«, Z. 1620-1660). Eine Beson¬ 
derheit ist die Abfrage von z(x), was 
»Zahlenfeld« bedeutet. Wenn nach Zah¬ 
len in numerischer Reihenfolge gefragt 
werden soll (z(x) = l), versagt die zei¬ 
chenkettenorientierte Datenbankverwal¬ 
tung. Ganze Zahlen werden daher als 
Strings rechtsbündig dargestellt, die 
links mit Nullen aufgeführt werden 
(Bsp.: »Wertzuweisung an Zahlenfeld«, 
Z. 1770). 

Es ergibt sich, daß die Datenbank auf 
diese Weise sehr flexibel und einfach zu 
handhaben wird, da man auf den Disket¬ 
ten mit den Datenbeständen nur noch die 


<29> 1550 '*** Routine: Feldformat der Datei definieren 
*** 

<27> 1560 : 

<84> 1570 FIELD #1, s(0) AS dat.feldS (0),s (1) AS dat.fe 
IdS(1),s(2) AS dat.feld$(2),s(3) ÄS dat.feld$(3),s 
(4) AS dat.feld$(4), s{5) AS dat.feldS(5), s(6)AS 
dat.feld${6), s{7) AS dat.feld$(7):RETURN 
<85> 1580 FIELD #2, 30 AS spezfeldS(0),5 AS spezfeld$(l 
),5 AS spezfeldS(2):RETURN 
<36> 1590 : 

<86> 1600 ’*** Routine: Satz hinzufügen/ändern *** 

<14 > 1610 : 

<29> 1620 PRINT'Bitte eingeben'':PRINT 
<14> 1630 FOR x = 0 TO fz 

<96> 1640 PRINT "Feld Nr.";x+1;" ";nenn$<x);" max.";s(x 
);" Zeichen.":WIDTH s(x)+2:INPUT feldS (x) :PRINT:VI 
DTH 90 

<71> 1650 IF LEN(feld$(x>)>s(x) THEN PRINT "Achtung! Te 
xt zu lang! Möchten Sie noch einmal eingeben?”: GO 
TO 1640 
<13> 1660 NEXT 
<41> 1670 VIDTH 90 
<13 > 1680 GOTO 1700 

<88> 1690 PRINT"Eingegebener Text zu lang. Bitte kürzen 
":RETURN 

<26> 1700 reihe$=”JjMn":wahl$="Eingabe in Ordnung?_ J 

= > weiter. N => Eingabekorrektur" 

<69> 1710 GOSUB 3210:IF ziff>2 THEN 1600 
<19> 1720 : 

<33> 1730 ■* Routine: Wertzuweisung an die Feldnamen * 
<25> 1740 : 

<35> 1750 FOR x=0 TO fz:LSET dat.feld$(x)=feld$<x):NEXT 
<79> 1760 FOR x=0 TO fz 

<21> 1770 IF z(x) =1 THEN a=s(x)-LEN(feld$(x)):feld$(x 
)=STRING$(a,"0")+feldS(x):PRINT CHRS(7) 


Bild 3: SILBEN. BAS, Auszug 2 


<57> 2490 ************ Routine: Datei als Liste auf den 
Bildschirm scrollen* 

<53> 2500 PRINT cls$: 

<13> 2510 : 

<16> 2520 : 

<78> 2530 FOR x= 1 TO 2:PRINT esc$+"A";:NEXT.. 

<11> 2540 ergebnis=SEEKNEXT(#l,0):IF ergebnis <>0 AND e 
rgebnis <>101 THEN GOTO 2640 
<84> 2550 satznum=FETCHREC(#1):GET #l,satznum: 

<68> 2560 FOR x = 0 TO fz:IF reihe=x THEN PRINT inv$;da 
t.feldSIx);wht$;" ELSE PRINT dat.feldS(x) 

<31> 2570 NEXT:PRINT:IF INKEYS 55 "" THEN GOTO 2540 ELSE P 
RINT TAB(25),-"Weiter mit iLeertastek - rückwärts m 
it 1'k - Aussteigen mit 1Zk";:reihe$=" “Zz":GOSUB 
3210 

<66> 2580 ON ziff GOTO 2530,2590,1060,1060 
<98> 2590 FOR x= 1 TO 3:PRINT esc$+"A";:NEXT... 

<28> 2600 ergebnis=SEEKPREV(#l,0):IF ergebnis >102 THEN 
GOTO 2640:ELSE SATZNUH=FETCHREC(#1):GET l!l,satznu 
m: 

<47> 2610 PRINT:FOR x = 1 TO 2:PRINT esc$+"I";:NEXT:FOR 
x- 0 TO fz:IF reihe=x THEN PRINT inv$;dat.feld$(x 
);wht$;" ";:ELSE PRINT dat.feldS(x);" 

<50> 2620 NEXT:IF INKEYS='”’ THEN GOTO 2600 ELSE PRINT T 
AB(25)"Weiter mit JLLeertaste - Rückwärts mit 1* k - 
Aussteigen mit 1Zk";:reihe$=" ‘Zz":GOSUB 3210 
<55> 2630 ON ziff GOTO 2530,2590,290,290 
<17> 2640 PRINT "Suchmeldung ",-ergebnis;" Bitte umkehre 
n! - Vorwärts -> ^Leertastek - Rückwärts => k - 
Aussteigen => JLZk":reihe$=" "Zz":G0SUB 3210:ON zif 
f GOTO 2530,2590,1060,1060 
<27> 2650 : 


Bild 4: SILBEN. BAS, Auszug 3 
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jeweilige SATZ.DAT-Datei unterbrin¬ 
gen muß, um jede Datensammlung so¬ 
fort benutzungsfähig zu haben. 

3.2 Scrolling der Datei 
auf dem Bildschirm 

Für den hier beschriebenen Anwen¬ 
dungszweck ist eine satzweise Darstel¬ 
lung aller Datensätze, wie sie im Origi¬ 
nalprogramm von »jetsam.bas« verwen¬ 
det wird, nicht genügend schnell und 
übersichtlich, da immer der ganze Bild¬ 
schirm neu aufgebaut wird, um einen 
einzelnen Satz zu zeigen. Die Scroll- 
Funktion funktioniert in beiden Richtun¬ 
gen und kann mit jeder Taste unterbro¬ 
chen werden. Alle Sätze erscheinen auf 
dem Bildschirm, die gewünschten Felder 
stehen nebeneinander, wobei das Feld, 
nachdem gerade sortiert wird, durch in¬ 
verse Darstellung hervorgehoben wird. 
Beim Scrolling rückwärts wird die Da¬ 
tei mit SEEKPREV durchsucht. Mit ei¬ 
nem zusätzlichen »d$« und »e$« kann 
zwischen Deutsch und Amerikanisch 
umgeschaltet werden, wenn das BASIC- 
Programm unter LANGUAGE 2 ge¬ 
schrieben ist, was der Normalfall sein 
dürfte, die Daten aber unter LOCO- 
SCRIPT erzeugt worden sind (Beispiel 
»Scrolling auf dem Bildschirm«, Z. 
2490-2650). In Zukunft ist noch eine 
Editiermöglichkeit im Scrolling-Modus 
vorgesehen, damit auffällige Eingaben 
sofort geändert werden können. 

3.3 Indizierung fertiger Dateien 
Das Programm bietet hierzu mehrere 
Möglichkeiten. Eine Datei kann vollau¬ 
tomatisch neu indiziert werden (Z. 4550 
— 4700), wobei der Benutzer die zu in¬ 
dizierenden Felder (='Teilstrings) vor 
dem Start menügesteuert festlegt. Da¬ 
nach werden alle Strings von ENT- 
RY.DAT in der gleichen Weise aufge¬ 
teilt und indiziert. Darüberhinaus hat er 
die Möglichkeit, feste Strings zu über¬ 
nehmen, sie evtl, zu markieren und in 
weitere Datenfelder seine Kommentare 
( = Übersetzungen etc.) zuzufügen (Z. 
4170 — 4530). Die letzte Möglichkeit 
besteht darin, jeden String variabel zu 
definieren, um z.B. Morpheme zu isolie¬ 
ren. Der Benutzer gibt hierzu die Start¬ 
position und die Länge sowie ggf. seinen 
Kommentarstring ein (Z. 4550 — 4970). 
Nach Betätigen der RETURN-Taste 
werden alle gegebenen Felder indiziert 
und der Benutzer hat die Möglichkeit, 
mit der Leertaste denselben ENT- 
RY.DAT-String noch einmal zu bearbei¬ 
ten, um z.B. ein anderes Morphem zu 
isolieren, oder einen neuen String abzu¬ 
rufen. Bei allen hier vorgestellten Va¬ 
rianten werden dem Benutzer diese 
Strings sequentiell angeboten, so daß er 


nur der Reihe nach ENTRY.DAT abzu¬ 
arbeiten braucht, um zum Ziel zu gelan¬ 
gen. Für den Fall, daß die Arbeit unter¬ 
brochen wird oder der Benutzer mitten 
in ENTRY.DAT hineingehen möchte, 
ist eine Abfrage für den Startstring ein¬ 
gebaut. 

3.4 Betrieb einer parallelen Datenbank 

Es ist ohne weiteres möglich, parallel zur 
ersten Datenbank eine zweite Bank ein¬ 
zurichten, die vom selben Programm 
verwaltet wird. Für die erste Bank sind 
die Dateinamen »daten%« und »index%« 
beibehalten worden, während die zwei¬ 
te Datenbank die Dateien »wort%« und 
»schloss %« verwaltet. Diese Möglich¬ 
keit ist nützlich, wenn man Daten, die 
man aus der Hauptdatei gewinnt, sofort 
in einer weiteren Datei mit anderen Zu¬ 
ordnungen ablegen möchte, wie dies 
beim Erstellen einer Häufigkeitsliste der 
Fall ist. Das Listing (»Errichten der Pa¬ 
ralleldatei«, Z. 100 — 250; sowie »Feld¬ 
formate definieren«, Z. 1550 — 1580) 
zeigt, daß die zweite Bank völlig paral¬ 
lel zur ersten errichtet und eröffnet wird. 
Da die Bank hauptsächlich internen 
Zwecken dient, verfügt sie nur über eine 
Menüsteuerung mit reduziertem Kom¬ 
fort. Sie wird von einem Untermenü 
(»Komplexe Sortierfunktionen«) ange¬ 
sprochen; unter dem Titel »Paralleldatei 
erzeugen« kann man Einträge vorneh¬ 
men oder die Ergebnisse einer Häufig- 
keitszählung abfragen. 

Die Häufigkeitszählung arbeitet mit der 
Funktion SEEKNEXT. Wenn SEEK- 
NEXT als Ergebnis den Wert 101 über¬ 
gibt, liegt ein neues Wort vor, der Zäh¬ 
ler für dieses Wort wird zurückgesetzt, 
und jedesmal, wenn das gleiche Wort er¬ 
neut eingegeben wird (Listing »Zählung 
nach Häufigkeit durchführen«, Z. 5940 
- 6000), dann übergibt SEEKNEXT 
den Wert 0, worauf der Zähler für die¬ 
ses Wort um eins weitergeschaltet wird 
(count = count +1 sowie gesamt = 
gesamt+1). Findet SEEKNEXT ein 
neues Wort (ergebnis=101), dann wird 
das alte Wort mit seinem Zählerwert an 
die Paralleldatei (Z. 6070 — 6080 sowie 
5680 ff.) übergeben. 

Diese speichert dann einen numerisch 
orientierten String für count, wodurch 
nach Häufigkeit sortiert werden kann. 
Die Abfrage erfolgt über das [?] (»Su¬ 
chen«) der Betriebsfunktionen der Paral¬ 
leldatei. Es darf nicht vergessen werden, 
für »reihe« eine 1 einzugeben, sonst wird 
nur nach dem Wort, nicht aber nach der 
Häufigkeit sortiert. Im Demonstrations- 
listing sind keine Berechnungsmöglich¬ 
keiten für Prozentwerte enthalten, diese 
können jedoch bei Bedarf leicht hinzuge¬ 


fügt werden. Wer die Angaben aus 
»count« und »gesamt« speichern möchte, 
kann sie einfach als letzten Wert an die 
Zähldatei geben, evtl, mit einem auffäl¬ 
ligen Kennwort gekoppelt. 

3.5 Ausdruck von ASCII-Dateien, die 
unter LocoScript erzeugt worden 
sind, im Rahmen der Datenbank¬ 
benutzung 

Da das Textverarbeitungsprogramm Lo¬ 
coScript unter einem eigenen Betriebs¬ 
system läuft, sind leider die ASCü-Num- 
mem der Umlaute außerhalb des norma¬ 
len Bereichs. Wenn ein LOCOSCRIPT- 
Text in eine ASCH-Datei umgewandelt 
wird, erscheinen daher auf dem Bild¬ 
schirm statt der Umlaute und »ß« die 
Sonderzeichen (ä ö ü ß). Durch Um¬ 
schalten der Betriebssprache mit LAN¬ 
GUAGE 0 unter CP/M oder 
chr$(27);»2«;»0« (bzw. »e$« im Pro¬ 
gramm; das Gegenstück ist »d$«) unter 
BASIC werden die Sonderzeichen auf 
dem Bildschirm wieder durch die rich¬ 
tigen Umlaute ersetzt; leider funktioniert 
diese Methode nicht für den Drucker, da 
die von LocoScript bereitgestellten Co¬ 
des außerhalb des normalen ASCII-Be- 
reiches liegen. 

Der Drucker druckt für CHR$(186) statt 
»ß« einen kursiven Doppelpunkt und für 
»Ä Ö Ü« bzw. »ä ö ü« die Zeichen »p s t« 
(kursiv) etc. Im Drucker ist im Bereich 
chr$(241) bis chr$(244) ein Teil des kur¬ 
siven Zeichensatzes abgelegt. Auch die 
Funktion STRIPS (Abstreifen des 7. 
Bits) hilft nicht weiter, da der Drucker 
dann »p«, »s« und »t« (nicht kursiv) 
druckt. 

Das Problem ist dennoch zu lösen, wie 
das Listing des Programms »umlaut.bas« 
zeigt. Eine eingegebene Zeichenkette 
wird auf das Vorhandensein der Sonder¬ 
zeichen durchsucht. Gegebenenfalls 
wird dieses Sonderzeichen durch den 
entsprechenden Umlaut im normalen 
ASCII-Bereich ersetzt. Das Verfahren 
wird so oft wiederholt, bis alle Sonder¬ 
zeichen eliminiert sind; daraufhin wird 
der String für den Drucker freigegeben. 

Es sind zwei alternative Listings (»UM¬ 
LAUT.BAS« und »BUMLAUT. BAS«) 
angegeben. Auf den ersten Blick er¬ 
scheint dies überflüssig, da die Program¬ 
mierung mit DATA/READ sehr einfach 
erscheint. Die darauffolgende FOR ... 
NEXT-Schleife überprüft jeden eingege¬ 
benen String und verfährt wie oben be¬ 
schrieben. Nur ist jedoch das primitivere 
»Holzhacker«-Listing »UMLAUT.BAS« 
im Vergleich zu »BUMLAUT.BAS« 
mehr als doppelt so schnell. Das liegt 
hier am Fehlen einer (zeitaufwendigen) 
FOR ... NEXT-Schleife. 
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3.6 Ausdruck des Wortschatzes 

Möchte man, wenn man einen nicht vor¬ 
gezählten Wortschatz eines Textes er¬ 
stellt hat, alle Wörter nur einmal darstel¬ 
len, ohne daß gleiche Wörter wiederholt 
werden, so muß man im Scrolling-Un¬ 
terprogramm die Funktion SEEKNEXT 
durch SEEKSET ersetzen. 

Im Prinzip kann man SEEKSET simulie¬ 
ren, indem man nach SEEKNEXT die 
Weiterverarbeitung nur nach Übergabe 
eines Ergebnis = 101 duldet, aber warum 
soll man den Befehl nicht nutzen, wenn 
man ihn denn hat? Einträge mit gleichem 
Indexstring werden übersprungen, so 
daß sofort der echte Wortschatz des Un¬ 
tersuchungstextes erzeugt wird. 

Die morphemorientierte Ausgabe (Z. 
5540 — 5570) vergleicht den String, der 
das ganze Wort enthält, mit dem String, 
der das gesuchte Morphem (kern$) ent¬ 
hält. Die gefundene Position des Mor¬ 
phems steuert den Tabulator und die 
Umschaltung zwischen inverser und nor¬ 
maler Darstellung, so daß alle Einträge 
um eine feste Achse herumpendeln, auf 
der die Morpheme enthalten sind, nach 
denen sortiert wird. 


Für alle anderen Druckerausgaben sind 
keine besonderen Menüs vorgesehen, da 
im vorliegenden Anwendungsfall die 
Druckerausgabe nur selten benötigt 
wird. Meistens werden mit PRINT X se¬ 
quentielle Dateien zur Weiterverabei- 
tung erzeugt, oder die Inhalte werden nur 
auf dem Bildschirm dargestellt. 


SCHLUSSWORT 


Mit dem vorliegenden Artikel werden 
zwei Absichten verfolgt: Es soll gezeigt 
werden, daß die Rechentechnik auch 
Einzug in Gebiete hält, die bisher eine 
Domäne der rechnerfreien Existenz wa¬ 
ren, die sich aber förmlich dazu anbie¬ 
ten, mit dem Computer bearbeitet zu 
werden. 

Zum anderen sollen die wichtigen Pro¬ 
grammschritte zur Lösung von Einzel¬ 
problemen der linguistischen »Textver¬ 
arbeitung« exemplarisch vorgeführt wer¬ 
den, wobei auf den Abdruck eines gan¬ 
zen Listings verzichtet wird, da die hier 
nicht dargestellten Programmteile zu 
spezialisiert (siehe ganz oben) oder zu 


unverbindlich-allgemein (Menüführung, 
etc.) sind. Nicht verschwiegen werden 
soll, daß sich der Autor mit einem Ge¬ 
samtprogramm noch im Experimentier¬ 
stadium befindet und das hier Geschrie¬ 
bene Workshop-Charakter hat. Deswe¬ 
gen zum Schluß noch einige Hinweise: 
Da das ganze Programm großzügig mit 
Stringvariablen umgeht, ist es mehrfach 
passiert, daß wegen Speicherüberlauf 
das Programm abgebrochen wurde. Die 
direkteste Methode, mit Erfolg ange¬ 
wandt, besteht darin, die jeweils nicht 
benötigten Programmteile zu DELE- 
TEn, oder die Unterprogramme bei Be¬ 
darf zu MERGEn. Außerdem »vertut« 
sich die Datenbankverwaltung gelegent¬ 
lich mit der Dateinummer, wenn zwei 
Datenbanken parallel verwaltet werden 
sollen. Beim Aufruf des ersten Suchbe¬ 
fehls erscheint dann die Meldung »File 
number Error in ...«. In solchen Fällen 
hilft nur ein erneutes »RUN«. Meistens 
klappt es beim zweiten Anlauf ohne 
Schwierigkeiten. Auch empfiehlt es sich 
grundsätzlich alle Operationen auf M: 
vorzunehmen, weil bei großen Dateien 
der Zugriff sonst zu lange dauert. 

(O.Corff) 


<65> 4170 '****Eingabe aus anderer Datei****“******** 
<28> 4180 : 

<33> 4190 PRINT cls$;FNkop£$("Festlegen der Übernahmen^ 
ske und Eingabe des Suchbegriffs">:PRINT:PRINT"In 
wieviele Felder teilen Sie den übernommenen Satz a 
uf ";: INPUT nehroz 

<71> 4200 FOR x=0 TO nehmz-1:PRINT 

<58> 4210 PRINT" Das Feld Nr." ;x;" (";nenn$(x);") ist” 
;s(x};" Stellen lang. An welcher Position des Eing 
abefeldes soll es anfangen";:INPUT platz(x) 

<95> 4220 NEXT 

<12> 4230 PRINT:PRINT "Sie müssen wenigstens einen Buch 
staben eingeben!" 

<63> 4240 PRINT:PRINT"Ab wo möchten Sie arbeiten";:INPU 
T such$ 

<88> 4250 IF such$="" THEN GOTO 4230 
<10> 4260 merk$=LEFT$(such$,5):a=5-LEN(merk$):merk$=mer 
k$+SPACE$(a) 

<47> 4270 OPEN "I",3,"A:entry.dat" 

<73> 4280 VHILE NOT merk$=LEFT$(wort$,5) AND NOT E0F(3) 
<26> 4290 IF NOT EOF(3) THEN INPUT #3,wort$:ELSE PRINT" 
Suchbegriff nicht gefunden!":CLOSE #3:GOTO 4240 
<20> 4300 VEND 

<85> 4310 PRINT:PRINT"Hier fangen Sie an: ";wort$:G0T0 
4350 

<14> 4320 : 

<45> 4330 IF NOT EOF(3) THEN INPUT #3,wort$:ELSE PRINT: 
PRINT"Datei abgearbeitet!. -. in wenigen Augenblic 
ken geht es zur Hauptauswahl!”:CLOSE #3:FOR x=l To 
8000:NEXT:GOTO 290 

< 2 5 > 4340 PRINT cls$;FN köpf $("Nächster Eintrag"):PRINT 
:PRINT "Ihr nächstes Wort: ";wort$ 

<72> 4350 PRINT:PRINT "Sie möchten - die nächste Eingab 
e abrufen?. => dann Uk":PRINT:PRINT " - diesen Ei 
ntrag übernehmen?. => dann JI-Leer taste t":PRINT:PRIN 
T" - diesen Eintrag markieren und übernehmen? => d 
ann IF k":PRINT:PRINT " - aussteigen? => dann JlZ l" 
<69> 4360 PRINT:reihe$=”Jj FfZz":vahl$=”Bitte drücken S 
ie die gewünschte Taste - Danke!":G0SUB 3210 
<28> 4370 ON ziff GOTO 4320,4320,4410,4390,4390,4380,43 
80 

<24> 4380 CLOSE #3:PRINT "Eingabedatei geschlossen":F0R 
X = 1 TO 8000: NEXT-.GOTO 290 

<92> 4390 FOR x=0 TO nehmz-1:feld$(x)=MID$(wort$,platz( 
x),s(x)):NEXT 

Bild 5: SILBEN. BAS, Auszug 4 


<73> 4400 FOR x=0 TO 1:a=INSTR(feld$<x)," "):mark?(x)=L 
EFT$(feld$(x),a-l)+CHR$<179):feld$(x)=mark$(x):PRI 
NT a-l,feld$(x):NEXT:GOTO 4430 
<70> 4410 FOR x=0 TO nehmz-1:feldS(x)=MID$(vort$,platz( 
x),s(x)):NEXT 
<16> 4420 : 

<94> 4430 '*** Routine: Satz hinzufügen/ändern *** 

<22> 4440 : 

<19> 4450 FOR x = nehraz TO fz 

< 2> 4460 PRINT "Feld Nr.";x+1;" ";nenn$(x);" max.";s(x 

);" Zeichen.":WIDTH s(x)+2:INPUT feld$(x):PRINT:VI 
DTH 90 

<93> 4470 IF LEN(feld$(x))>s(x) THEN PRINT "Achtung! Te 
xt zu lang! Möchten Sie noch einmal eingeben?": GO 
TO 4460 
<18> 4480 NEXT 
<46> 4490 WIDTH 90 
<12> 4500 : 

<28> 4510 reihe$="JjNn":wahl$="Eingabe in Ordnung?— J 
=> weiter.N => Eingabekorrektur" 

< 5> 4520 GOSUB 3210:IF ziff>2 THEN 4430 

<87> 4530 GOSUB 1730:GOTO 4340:'->Wertzuwei 

sung, Satz schreiben, neuer Eintrag 
<24> 4540 : 

<24> 4550 '“‘Dateien werden automatisch indiziert***“ 
************************************************** 

<30> 4560 : 

<20> 4570 PRINT cls$;FNkop£S("Indexdatei anlegen") 

<57> 4580 PRINT:FOR x= 0 TO fz:PRINT "Das Datenfeld ";x 
+1;” heißt ";nenn$(x>es ist ";s(x);" Stellen g 
roß“:PRINT:NEXT 

< 2> 4590 PRINT:PRINT "... Ihre Übernahmemaske hat folg 

ende Struktur:”:PRINT 
<75> 4600 FOR x=0 TO fz: 

<57> 4610 PRINT" Das Feld Nr." ;x;" (”;nenn$(x)) ist 
”;s(x);" Stellen lang. An welcher Position des Ein 
gabefeldes soll es anfangen";:INPUT platz(x) 

<93> 4620 PRINT:NEXT 

<43> 4630 OPEN "I",3,"A:entrY.dat" 

<12> 4640 WHILE NOT EOF(3> 

<65> 4650 INPUT #3,wortS 
<65> 4660 IF wort$="" THEN GOTO 4650 
<79> 4670 FOR x=0 TO £z:feld$(x)=MIDS(wort$,platz(x),s( 
x)):NEXT 
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<24> 4680 GOSUB 1730'—>Einträge indizieren 
<53> 4690 WEND 
<50> 4700 GOTO 290 
<19> 4710 : 

<60> 4720 ’******»***********Eitigabe aus anderer Datei 
mit wechselndem F6ld***************************** 

<25> 4730 : 

<10> 4740 PRINT cls$;FNkopf$("Steuern der Übernahmemask 
e und Eingabe des Suchbegriffs"):PRINT:PRINT" 

<28> 4750 PRINT:PRINT "Sie müssen wenigstens einen Buch 
staben eingeben!” 

<79> 4760 PRINT:PRINT"Ab wo möchten Sie arbeiten";:INPU 
T such$ 

<12> 4770 IF such$="" THEN GOTO 4750 
<26> 4780 merk$=LEFTS(such$,5):a=5-LEN (merk$):merk$=raer 
k$+SPACE$(a) 

<63> 4790 OPEN "I",3,"A:entry.dat” 

<61> 4800 WHILE NOT merk$-LEFT$(wortS,5) AND NOT EOF(3) 
<87> 4810 IF NOT EOF(3) THEN INPUT #3,wortS:ELSE PRINT" 
Suchbegriff nicht gefunden!":CLOSE #3:GOTO 4760 
<36> 4820 WEND 

<77> 4830 PRINT LEFT$(". 1...5-10. 

..15... 20... 25... 30... 35... 40... 45... 50... 55... 60. 

..65",20+s(0)) 

<77> 4840 PRINT"Hier fangen Sie an: ";wort$:GOTO 4880 
(61) 4850 IF NOT EOF(3} THEN INPUT #3,wort$:ELSE PRINT: 
PRINT"Datei abgearbeitet!. in wenigen Augenblic 
ken geht es zur Hauptauswahl!":CLOSE #3:FOR x=l TO 
8000:NEXT:GOTO 290 

< 4> 4860 PRINT cls$;FN köpf $ ("Nächster Eintrag")-.PRINT 

: PRINT LEFT$ (". 1...5-10... 

15...20...25...30...35...40...45...50...55...60... 
65",22+s(0)) 

<65> 4870 PRINT "Ihr nächster Eintrag: ";wort$ 

<5l) 4880 PRINT:PRINT "Sie möchten - die nächste Eingab 

e abrufen?. => dann Ut":PRINT:PRINT ". 

- in diesem Eintrag einen String auswählen?. => da 

nn ALeertaste L":PRINT: PRINT ". - ausstei 

gen? => dann AZ 1" 

<42> 4890 PRINT:reihe$="Jj Zz":wahl$="Bitte drücken Sie 
die gewünschte Taste - Danke!":GOSUB 3210 
<52> 4900 ON ziff GOTO 4850,4850,4910,4380,4380 
<87> 4910 feld$(0)=LEFTS(wortS,s(0)) 

<34> 4920 FOR X = 1 TO fz 

<90> 4930 PRINT "Für ’’;nenn$(x):PRINT "Ihre Startpositi 
on, Stringlänge und Markierung sind”;:INPUT Start, 
lang,markier$ 

<53> 4940 feld$(x)=MID$(wortS,Start,lang)+markier$ 

<63> 4950 NEXT:GOSUB 1730‘->Einträge indizieren 

<40> 4960 GOTO 4860 
<41> 4970 : 

<22> 4980 '***********Ausgabe des Indexwertes********** 
<96> 4990 FOR x = 1000000! TO 5555555! 

<89> 5000 index$=STR$(x):a=INSTR(indexS,”0") 

<81> 5010 IF a<>0 THEN index$=LEFT$(index$,a-1) 

<90> 5020 FOR p = 2 TO 8:IF VAL(MID$(indexS,p,1))>5 THE 
N GOTO 5050 

<66> 5030 NEXT:neu$=index$:IF neu$=alt$ GOTO 5050 
<53> 5040 alt$=index$:PRINT indexS 

< 2> 5050 NEXT 
<88> 5060 END 
<24> 5070 : 

<34> 5080 '************‘Vernetzte automatische Suche*** 
••**•**••*******• 

<62> 5090 PRINT cls$;FNkopf$("Automatische Auflistung”) 
-.PRINT: PRINT 

<52> 5100 PRINT "Bitte Diskette mit Datei aller gesucht 
en Strings einlegen 

<85> 5110 PRINT:PRINT "Der Name der Datei mit den gesuc 
hten Strings muß ’entry.dat’ lauten.":PRINT:PRINT 
"Sobald Sie bereit sind, drücken Sie bitte die Lee 
rtaste - Danke!" 

<24> 5120 IF INPUT$(1)=" " THEN 5130 
<34> 5130 OPEN "I”,3,"A:entry.dat" 

<18> 5140 IF NOT EOF(3) THEN INPUT #3,indexS: ELSE PRIN 
T "Ende der Bearbeitung":FOR x = 1 TO 1000:NEXT:CL 
OSE #3:GOTO 290 

<35> 5150 index$=LEFT$(indexS,7) 

<23> 5160 : 

<26> 5170 : 

<29> 5180 : 

< 9> 5190 •****************£rsten Schlüssel suchen***** 

************************************************** 

<68> 5200, FOR reihe = 1 TO fz 

<28> 5210 ergebnis=SEEKKEY(#1,0,reihe,indexS) 


<89> 

< 8 4 > 
<78> 

< 7 5 > 
<93 > 
<42> 
<15> 
<80> 
< 68 > 
< 11 > 

< 49 > 
<90> 

< 21 > 

<72> 

<27> 

< 13 > 
<64> 


<36> 

<36> 

<14> 

<92> 


< 20 > 
< 21 > 
<26> 
<38 > 
<15> 
< 96 > 
<44> 
<92> 
<34> 


<98> 
<33> 
< 91 > 
<95> 

< 66 > 


< 14 > 
<50> 

<40> 

<62> 

< 59 > 

<94> 

< 6 5 > 
<64> 
<38> 
<72> 
<36> 
< 86 > 
<42> 
<14> 
<57> 
< 20 > 

<85> 

< 13 > 
<60> 
<89> 
<33> 

< 86 > 

<24> 

< 19 > 
<55> 
<25> 
< 86 > 


5220 IF ergebnis=0 THEN GOSUB 5370:GOTO 5230:ELSE 
GOTO 5280 

5230 satznum=FETCHREC(#1):GET #l:GOSUB 5400 
5240 ergebnis=SEEKNEXT(#1,0) 

5250 IF ergebnisOO THEN GOTO 5280 
5260 satznum=FETCHREC(#1):GET #l:GOSUB 5400 
5270 GOTO 5240 
5280 NEXT 

5290 LPRINT:GOTO 5140 
5300 ergebnis=SEEKNEXT(#1,0) 

5310 satznum=FETCBREC(#1):GET #1 
5320 GOSUB 5400 

5330 IF ergebnis = 101 THEN reihe=reihe+l:GOTO 521 
0:ELSE GOTO 5280 
5340 : 

5350 '*******Druckausgabe/Bildschirmausgabe 


5360 : 

5370 '-Zwischentitel 

5380 LPRINT:LPRINT:LPRINT TAB(IO) "Graphem. ";inde 
x$;". in ";reihe;".. Position":LPRINT:RETURN 


'->Ansprung aus "Graphem und/oder Reihe ä 

ndern 
5390 -. 

5400 ’*************»Ausgabe*********************** 
***** 

5410 : 

5420 LPRINT TAB(15) dat.feld$(0);"... /";dat.feldS 
(1);"/";dat.feld$(2)r"/";dat.feldS(3);’7";dat.feld 

$(4);;dat.feldS(5);RETURN *->Ansprun 

g aus "Vernetzt suchen” 

5430 : 

5440 '********Ausdruck der Morpheme*********** 

5450 : 

5460 PRINT "Wo möchten Sie anfangen";:INPUT startS 
5470 index$=LEFT$(UPPERS(startS),7) 

5480 ergebnis=SEEKKEY(#1,0,1,indexS):GOTO 5500 
5490 ergebnis=SEEKRANK(#1,0,1) 

5500 satznum=FETCHREC(#1):GET #1:G0SUB 5540 
5510 ergebnis=SEEKNEXT(#1,0):IF ergebnis <> 0 AND 
ergebnis <> 101 THEN reihe$="JjNn":wahlS="Keine Ei 
nträge mehr vorhanden - weitermachen Aj t= oder AN L 
?”:GOSUB 3210:ON ziff GOTO 3740,3740,290,290 
5520 satznum=FETCHREC(#1):GET #l:GOSUB 5540 
5530 GOTO 5510 

5540 b=INSTR(dat.feld$(1)," ")-l:IF b<l THEN b=6 
5550 kernS=LEFT$(dat.feld$(1),b):a=INSTR(dat.£eld$ 
(0),kern$): IF a=0 THEN a=10 

5560 PRINT TÄB(30-a) LEFT$(dat.feld$(0),a-l);esc$+ 
"p";MID$(dat.feld$(0),a,b);escS+"q";MID$(dat.feldS 
(0),a+b,16-a-b): 

5570 RETURN 

5580 ’****** Eingabe in die Mitläuferdatei zu Zähl 
zwecken******* 

5590 : 

5600 PRINT clsS;FNkopf$("Eingabe in die mitlaufend 
e Datei"):PRINT 

5610 PRINT".. Eingabe =>.. A-Leertaste l. Suche=>. 1 
?k... Zurück zum Zwischenmenü => AZ l" 

5620 reihe$=" ?Zz":GOSUB 3210 
5630 ON ziff GOTO 5640,5830,3750,3750 
5640 FOR x=0 TO 2 
5650 INPUT feldS(x) 

5660 NEXT:GOSUB 5680:GOTO 5610 
5670 : 

5680 '****Wertzuweisung***** 

5690 : 

5700 FOR x=0 TO 2:LSET spezfeld$(x)=feld$(x):NEXT 
5710 FOR x=0 TO 2 

5720 IF x= 1 THEN a=5-LEN(feld$(1)):feld$£1)=STRIN 
G${a,”0")+feld$(l) 

5730 indexS£x)=UPPERS(LEFT$(feldS(x),5)):a=5-LEN(i 
ndexS(x)):indexS(x)=index$(x)+SPACE$(a): 

5740 NEXT 

5750 ergebnis=ADDREC(#2,2,0,indexS(0)) 

5760 wortnum=FETCHREC(#2) 

5770 FOR x=l TO 2:ergebnis=ADDKEY(#2,0,x,indexS(x) 
,wortnum):NEXT 

5780 ergebnis=CONSOLIDATE(#2):PRINT "Neue Einträge 
gespeichert":PRINT 
5790 RETURN 
5800 : 

5810 ’***********Ausgabe der Paralleldatei******** 
5820 : 

5830 PRINT cls$;FNkopf$("Ausdruck der Paralleldate 
i") :PRINT 
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<71> 5840 PRINT"Nach welcher Reihe suchen Sie’’;:INPUT r 
eihe 

<12> 5850 ergebnis=SEEKRANK(#2,0,reihe) 

< 6> 5860 IF ergebnisOO THEN PRINT "Nichts gefunden ! 

- Zurück zur Zwischenauswahl!":F0R x = 0 TO 2000:N 
EXT:GOTO 5580:ELSE GOTO 5880 

< 2> 5870 ergebnis=SEEKNEXT(#2,0):IF ergebnis <>0 ÄND e 

rgebnis <>101 THEN PRINT "Datei beendet!. Mit Ä-Lee 
rtastet zum Zwischenmenü!":reihe$=" ":G0SUB 3210:0 
N ziff GOTO 5580 

<89> 5880 wortnum=FETCHREC(#2):GET #2,wortnum:GOSUB 589 
OrGOTO 5870 

<31> 5890 IF INKEYS="" THEN GOTO 5900 ELSE PRINT TAB{25 
)"Weiter mit iLeertasteL. Aussteigen mit 1Zk" 
; :reihe$=” Zz":GOSUB 3210:ON ziff GOTO 5900,5580,5 
580 

<58> 5900 FOR x=0 TO 2 

<67) 5910 IF reihe=x THEN PRINT invS;spezfeld$(x) ,-wht$; 

" ELSE PRINT spezfeldS(x);” 

<16> 5920 NEXT:PRINT:RETURN 
<30> 5930 : 

<64> 5940 '‘““‘Zählung nach Häufigkeit durchführen*“ 
********************************* ******** ********* 


<36> 5950 : 

<21> 5960 total=l:ergebnis=SEEKRANK(#1,0,0) 

<49> 5970 IF ergebnis=0 THEN satznum=FETCHREC(#1):GET # 
1,satznum:count=l 

<22> 5980 gesamt=gesamt+l:ergebnis=SEEKNEXT(#l,0):IF er 
gebnis=0 THEN count=count+l:GOTO 5980 

<44> 5990 IF ergebnis=101 THEN GOSUB 6020:ELSE PRINT "D 
er gezählte Wortschatz von ";gesamt;" enthält";tot 
al," verschiedene Wörter":FOR x= 1 TO 20000:NEXT:G 
OTO 290 

<61> 6000 satznum=FETCHREC(#1):GET #l,satznum 

<11> 6010 count=l:GOTO 5980 

<82> 6020 total=total+l 

<38> 6030 '********«*Druckausgabe“““““““““““ 

<10> 6040 FOR x = 0 TO fz 

<20> 6050 PRINT dat.feld$(x);" ";count; 

< 9> 6060 NEXT-.PRINT 

<69> 6070 feld$(0)=dat.feld$(0):feld$(1)=MID$(STR$(coun 

t),2) 

<30) 6080 GOSUB 5680:'““Eingabe in Paralleldatei““ 


LISTING >BUMLAUT<, REMARK = >’<. 

<18) 10 DIM alt(14) 

<93> 20 DATA 240,243,244,186,208,211,212,123,124,125,12 
6,91,92,93 

<85> 30 FOR X = 1 TO 14 
<61> 40 READ alt(x) 

<38> 50 NEXT 

<80> 55 OPEN "I",l,"A:entry.dat 
<76> 60 INPUT #1,wort$ 

<28> 70 FOR x= 1 TO 7 

<41> 80 platz=INSTR(wort$,CHR${alt (x))) 

<55> 90 IF platz <>0 THEN wort$=L£FT$(wort$,platz-l)+CH 
R$(alt(x+7))+MID$(wortS,platz+1) 

<34> 100 NEXT 
< 8> 110 PRINT wortS 
<64> 120 GOTO 60 


LISTING >UMLAUT<, REMARK = >’<. 

<93> 10 OPEN "I",l,’ , A:entry.dat" 
<72> 20 INPUT #1,wortS 
<91> 30 a=INSTR(wortS,CHRS(240)) 
<72> 40 b=INSTR(wort$,CHR$(243)) 
< 3> 50 c=INSTR(wort$,CHR$(244)) 
<32> 60 d=INSTR(wortS,CHR$(186)) 


<17> 70 e=INSTR(wort$,CHR$(208)) 

<69> 80 f=INSTR(wortS,CHR$(211)) 

< 0> 90 g=INSTR(wort$,CHR$(212)) 

<84> 100 IF a=0 AND b=0 AND c=0 AND d=0 AND e=0 AND f=0 
AND g=0 THEN GOTO 190 

<80> 110 IF aoO THEN wort$=LEFTS(wortS,a-1) +CHRS(123) + 
MIDS(wortS,a+1) 

<38> 120 IF b<>0 THEN wort$=LEFT$(wortS,b-l)+CHR$(124) + 
MID$(wortS,b+1) 

<95> 130 IF co0 THEN wort$=LEFT$(wortS,c-1)+CHR$(125)+ 
MIDS(wort$,c+l) 

<53> 140 IF d<)0 THEN wort$=LEFT$(wort$,d-l)+CHRS(126) + 
MID$(wortS,d+l> 

< 5> 150 IF eOO THEN wortS=LEFTS (wortS ,e-l) +CHRS (91) +M 

IDS(wort$,e+1) 

<60> 160 IF f<>0 THEN wort$=LEFT$(wortS,f-l)+CHR$(92)+M 
ID$<wort$,f+l> 

<16> 170 IF g<)0 THEN wortS=LEFTS(wortS,g-l>+CHRS(93)+M 
ID$(wort$,g+l) 

<46> 180 GOTO 30 
<42> 190 LPRINT wortS 
<21> 200 GOTO 20 
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I—Nutzware 


Die Auswertung 
des 

Fragebogens 
zur NUTZWARE 

Die Resonanz auf unseren Fragebo¬ 
gen im Maiheft war größer, als wir 
erwartet und auch befürchtet hat¬ 
ten. Die Präsentation des Fragebo¬ 
gens war vielleicht ein wenig un¬ 
glücklich, z.B. war das Finden des 
Fragebogens vom aufmerksamen 
Durchblättern der Zeitschrift ab¬ 
hängig, denn im Inhaltsverzeichnis 
ließ sich kein Hinweis auf unsere 
Fragebogenaktion finden. Trotzdem 
gab’s einen Haufen Post und man¬ 
chen »Aha-Effekt« bei der Auswer¬ 
tung. 

Zur Auswertung wurden nur die Frage¬ 
bögen herangezogen, deren Einsender 
ihre Computer offensichtlich auch pro¬ 
fessionell einsetzten. An der Verlosung 
nahmen fairerweise natürlich alle Ein¬ 
sender teil. 

Der Anteil der PC-Besitzer an den Ein¬ 
sendungen betrug nur 15 Prozent. 60% 
der PC-Besitzer haben ihre Geräte mit 
zwei Diskettenlaufwerken bzw. mit ei¬ 
ner Festplatte ausgerüstet. Weiterhin wa¬ 
ren 80 % der Schneider PCs auf 640 KB 
aufgerüstet. Die Firma Schneider hat auf 
den Wunsch der Kunden nach mehr 
Hauptspeicherplatz mit dem neuen PC 
1640 reagiert, wie Sie an anderer Stelle 
im Heft nachlesen können... 

Ein wenig verwundert hat, daß immer¬ 
hin 36% der gewerblichen Joyce-An¬ 
wender mit der kleinen Version des Jo¬ 
yce arbeiten. In Anbetracht der Tatsache, 
daß umfangreichere Anwendungen mit 
dem kleinen Joyce reichlich unkomfor¬ 
tabel bzw. bei verschiedenen Program¬ 
men überhaupt nicht zu realisieren sind, 
scheint es, daß viele den Joyce nur als 
Einstiegsgerät betrachten und sich des¬ 
halb mit der Mindestkonfiguration behel¬ 
fen, weil sie in Kürze zum PC wechseln 
wollen. 

Fast 15 % der Joyce-Besitzer haben trotz 
aller Widrigkeiten mit Konvertierungs¬ 
programmen etc. einen Typenrad- 
drucker an ihr Gerät angeschlossen. Ob¬ 
wohl die z.Zt. für den Joyce angebote¬ 
nen Festplatten nun wirklich nicht billig 
sind, sind beachtliche 4% aller Geräte 
mit einer Festplatte ausgerüstet. 

Da der Anteil der PC-Besitzer so gering 
ist, wird in der gesamten weiteren Aus¬ 



wertung darauf verzichtet, zwischen Be¬ 
nutzern von Joyce und PC zu differen¬ 
zieren. 

Die Hitliste der verschiedenen Anwen¬ 
dungen wird — wie nicht anders zu er¬ 
warten — von der Textverarbeitung an¬ 
geführt. Doch immerhin haben 8% aller 
Anwender nichts mit Textverarbeitung 
im Sinn. Die anderen Anwendungen ver¬ 
teilen sich, wie nachstehend aufgelistet. 
Dabei ist zu beachten, daß durch die 
Vielfachnennungen die 100%-Grenze 


keine Gültigkeit hat. 

Dateiverwaltung 62% 

Grafik 42% 

Kundenverwaltung 40% 

betriebliche Statistik 34% 

Finanzbuchführung 3 2 % 

Tabellenkalkulation 32% 

Einnahmeüberschußrechnung 17% 

Fakturierung/Lager/Kunden 15% 


Eigentlich hatten wir hier eine ganz an¬ 
dere Verteilung erwartet. Insbesondere 
verwundert der hohe Anteil der grafi¬ 
schen Anwendungen. 

35% der verwendeten Programme wur¬ 
den »selbstgestrickt«! Davon ausgehend, 
daß nicht alle Anwender die Program¬ 
miererei zu ihrem liebsten Hobby ge¬ 
macht haben, ziehen wir daraus den 
Schluß, daß die angebotene Standard¬ 
software vielfach den Ansprüchen der 
Anwender nicht gerecht wird und diese 
gezwungenermaßen eigene Problemlö¬ 
sungen entwickelt haben. 

Die Anwender nach einzelnen Branchen 
zu differenzieren, hätte wenig Aussage¬ 
kraft. Auffallend ist hier der mit 11 % au¬ 
ßerordentlich hohe Anteil von Ärzten. 
Erwartungsgemäß arbeiten über 53% 
der Anwender ohne Mitarbeiter, 26% 
verfügen über bis zu 5 Mitarbeitern und 
immerhin 9% arbeiten mit mehr als 7 
Mitarbeitern. 


Die Liste der verwendeten Programme 
führt LocoScript an. Ansonsten geht es 
quer und auch recht gleichmäßig durch 
den Garten der verfügbaren Anwender¬ 
software. Nennenswerte Häufungen 
tauchten lediglich bei Datenbanken und 
Finanzbuchhaltungsprogrammen auf. 
Obwohl es äußerst reizvoll wäre, hier 
nun die Hitliste der nicht mehr verwen¬ 
deten Programme zu veröffentlichen, 
muß aus rechtlichen Gründen darauf ver¬ 
zichtet werden. Relativ häufig wurden 
Programme ausgemustert, die das Aus¬ 
drucken von LocoScript Dateien mit ei¬ 
nem Fremddrucker ermöglichen sollen. 
Unser Tip: testen Sie diese Konvertie¬ 
rungsprogramme vor dem Kauf. Abge¬ 
sehen davon, daß die Konvertierung von 
LocoScript-Dateien grundsätzlich nicht 
komfortabel sein kann, gibt es bei den 
entsprechenden Programmen gewaltige 
Qualitätsunterschiede. 

Relativ häufig taucht als Begründung für 
die Ausmusterung von Programmen ein 
schlechtes oder fehlerhaftes Benutzer¬ 
handbuch auf. Manche Softwareherstel¬ 
ler scheinen immer noch nicht begreifen 
zu wollen, daß ein gutes Programm auch 
nur dann gut ist, wenn dazu ein verständ¬ 
liches und übersichtliches Handbuch ge¬ 
liefert wird. 

Die Antworten auf die Frage, auf wes¬ 
sen Empfehlung hin Programme gekauft 
werden, sorgten wieder für eine kleine 
Überraschung. 45% der Programme 
wurden aufgrund von positiven Softwa¬ 
rereviews in Fachzeitschriften hin ange¬ 
schafft, 33 % wurden aufgrund von An¬ 
zeigen der Softwarehäuser gekauft und 
nur 23 % aller Programme wurden auf 
Empfehlung des Fachhändlers hin er¬ 
worben. 

Der Fachhandel schneidet bei unseren 
Lesern allgemein nicht gut ab. Doch sol¬ 
len Sie nun nicht noch seitenlang mit 


116 PC 8’87 









Nutzware i 


Zahlen bombardiert werden. Der ganze 
Fragenkomplex, der sich auf den Fach¬ 
handel bezieht, läßt sich in wenigen Sät¬ 
zen zusammenfassen. 

Auf einen Händler, der ein Anwender¬ 
programm vorführen kann, kommen 3 
Händler, die dies nicht können. Bei der 
Frage, ob der Händler Stärken und 
Schwächen von verschiedenen Program¬ 
men nennen konnte, wird diese Kluft 
noch größer. 

Bevor Sie jedoch nun voreilige Schlüs¬ 
se ziehen, sei zur Ehrenrettung des Fach¬ 
handels gesagt, daß 54% der Anwender 
feststellten, daß ihr Händler helfen konn¬ 
te, wenn sie nach dem Kauf eines Pro¬ 
grammes Probleme hatten. 

Dies dürfte beweisen, daß der Fachhan¬ 
del sehr wohl willens und in der Lage ist, 
bei konkreten Problemstellungen zu hel¬ 
fen. Wozu er aufgrund permanent sin¬ 
kender Margen nicht in der Lage sein 
dürfte, ist sich einen vergleichenden 
Überblick über Anwendersoftware zu 
verschaffen. Dies jedoch müßte er leisten 
können, um durch gezielte Anwenderbe¬ 


ratung zu erreichen, daß ein Kunde auf 
Anhieb das für ihn richtige Programm 
kauft. 

Hier werden schon bald Lösungen ge¬ 
funden werden müssen. Wir halten den 
Fachhändler — trotz der Kritik an seinem 
Leistungsvermögen — für einen notwen¬ 
digen Mittler zwischen Herstellern und 
Konsumenten. 

Um diese Mittlerfunktion wahmehmen 
zu können, dürfen Preisverfall und low 
cost Euphorie nicht ausschließlich auf 
dem Rücken des Fachhandels ausgetra¬ 
gen werden. 

Wenn Hard- und Software nur noch ohne 
Beratung durch Discounter und Versand¬ 
häuser vertrieben wird, dürfte die ge¬ 
samte Branche mittelfristig drastische 
Umsatzeinbußen hinnehmen müssen. 
Dieser kleine Exkurs führte zwar ein we¬ 
nig vom Fragebogen weg, doch war er 
notwendig, um die aus dem Fragebogen 
resultierende Kritik am Fachhandel im 
richtigen Licht zu sehen. 

Doch nun zurück zu Fragebogen. 8 % der 
Anwender belegten Seminare bei EDV- 


Schulen, 4% erhielten eine Schulung 
durch den Fachhandel, 85% erlernten 
den Umgang mit der Software mittels des 
Handbuches, während 53 % zusätzliche 
Literatur zu Rate zogen (aufgrund der 
Mehrfachnennungen ergibt die Summe 
auch hier über 100%). 

Ihre Antworten zur NUTZWARE gaben 
wertvolle Anregungen für die weitere 
Gestaltung dieser Serie. 

Die meisten Leser interessieren Softwa¬ 
rereviews, Branchenlösungen und allge¬ 
meine Informationen zum Einsatz des 
Computers in kleinen Betrieben. Ge¬ 
wünscht wurde auch die Besprechung 
von Literatur zum Thema Computer in 
Kleinbetrieben. 

Wir werden uns bemühen, all diesen 
Wünschen im Laufe der Zeit gerecht zu 
werden. 

Wir bedanken uns für Ihre Mitarbeit an 
der Fragebogenaktion und freuen uns, 
wenn Sie auch nach dieser Aktion Wün¬ 
sche und Anregungen an uns heran¬ 
tragen. 

(W.Huske) 
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Joyce Programmsammlung Vol. 1 


Hochwertige Software zu Niedrigpreisen finden Joyce-Anwender jetzt im Rahmen einer Programmsammlung 

in der Angebotspalette des DMV-Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen Anwedungsgebieten kom¬ 
men. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als komplettes Programmpaket mit 3“ -Diskette und 

Bedienungsanleitung ausgeliefert. 


1. Der Character Designer 

Funktion: Komfortable Erstellung eigener Zeichensätze aut 
PCW8256/8512 und deren Darstellung am Bildschirm! Ausdruck 
von ASCII-Files in diesem Zeichensatz unter CP/M Plus 




2. MGX 

Funktion: Graphische Darstellung von mathematischen Funk¬ 
tionen und beliebiger Meßreihen auf Bildschirm oder im Groß¬ 
format auf dem Drucker. 


Neu! 

Ab 01.09. erhältlich: 
Joyce- 

Programmsammlung 
Vol. 2: 

SUPERdat 
eine universelle 
Datei- Verwaltung. 

Bitte beachten Sie 
unsere Anzeige in 
diesem Heft! 


Die JOYCE-Programmsammlung VOL 1 ist im Fachhandel 

oder beim Verlag zum Preis von DM 59*- erhältlich. 


' unverb Preisempfehlung 


Bitte Bestellkarte benutzen! 


DMV-Verlag, Fuldaer Str. 6, Postfach 250, 3440 Eschwege 
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Keine Angst vor ComPacIc 

Wissen Sie* was eine eierlegende Wollmilchsau ist? 


Das ist in diesem Fall ein Pro¬ 
gramm, das theoretisch in der Lage 
ist, fast alle Vorgänge in einem Un¬ 
ternehmen zu erledigen, die auch 
nur im entferntesten etwas mit 
Buchhaltung zu tun haben. Norma¬ 
lerweise haben diese eierlegenden 
Wollmilchsäue aufgrund der Tatsa¬ 
che, daß sie einfach zu vielen An¬ 
sprüchen genügen müssen, den 
Nachteil, an entscheidenden Stellen 
nicht oder nur unvollkommen zu 
funktionieren. 

Der Vorteil von ComPack besteht darin, 
daß es wirklich funktioniert. Jedoch ha¬ 
ben sowohl die Ersteller des Programm¬ 
pakets, als auch die Autoren der beiden 
Handbücher vor die Arbeit mit diesem 
Programmpaket Hürden gesetzt, die es 
zu überwinden gilt. 

Doch erst einmal zum Programm selbst. 
Es besteht aus verschiedenen Modulen, 
die jeweils eine ganze Diskette beanspru¬ 
chen und deren Daten über die Sortier¬ 
routinen der eigentlichen Systemdiskette 
austauschbar sind. Das hat den unschätz¬ 
baren Vorteil, daß Sie prinzipiell in ei¬ 
nem Arbeitsgang Aufträge schreiben 
können, die entsprechenden Artikel fak¬ 
turieren, sowie gleichzeitig den Lager¬ 
bestand korrigieren und die Debitoren 
mit dem Auftrag belasten können. 
Selbstverständlich besteht dabei auch 
eine entsprechende Verbindung zwi¬ 
schen Debitorenverwaltung und dem 
Sachkontenmodul. 

Die einzelnen Module finden Sie in der 
Abbildung 1 dargestellt. Die Sachkon¬ 
tenverwaltung entspricht dem, was Ihnen 
als Finanzbuchhaltung bekannt ist und 
bietet alle dazu notwendigen Möglich¬ 
keiten. Aus der Sachkontenverwaltung 
heraus läßt sich alles an Übersichten und 
Auswertungen drucken und/oder anzei- 
gen, was sich an Zahlen aus einer Fi¬ 
nanzbuchhaltung herauslesen läßt. Mir 
ist keine sinnvolle Übersicht geläufig, 
die das Programm nicht erstellt, wenn 
Sie es richtig eingerichtet haben. 

Da die Verbindung zwischen den ver¬ 
schiedenen Modulen jeweils über die 
Sortierroutmen der eigentlichen System¬ 
diskette abgewickelt wird und Sie dem¬ 


entsprechend oft die Disketten wechseln 
müssen, ist cs empfehlenswert, nur dann 
mit dem Programm zu arbeiten, wenn 
man mehrere Arbeitsgänge zusammen 
zu erledigen hat. Der Einsatz einer Fest¬ 
platte (siehe Bericht in Heft 6/86) dürf¬ 
te das Handling von ComPack wesent¬ 
lich beschleunigen und vereinfachen, 
doch läßt sich auch mit zwei Disketten¬ 
laufwerken akzeptabel arbeiten. 

Ich wage jedoch zu behaupten , daß die 
Arbeit mit ComPack wesentlich elegan¬ 
ter und weniger umständlich wäre, wenn 
man das Programm auch wirklich auf 
den Joyce zugeschnitten hätte. Denn 
ComPack wurde ursprünglich einmal für 
den CPC 464 geschrieben, dann für den 
6128 umgeschrieben und nach Erschei¬ 
nen des Joyce auch für diese Maschine 


lauffähig gemacht. Neuesten Informatio¬ 
nen aus dem Hause Schneider zufolge 
wird zur Zeit daran gearbeitet, das Paket 
für den Schneider- PC »umzustricken«. 
Ich denke, daß dieses permanente Um¬ 
arbeiten des grundsätzlich guten Pro¬ 
gramms einige Nachteile mit sich bringt. 
Zur Joyce-Version läßt sich sagen, daß 
man die RAM-Disk besser in die Pro¬ 
grammabläufe hätte einbauen können. 

Doch zurück zum Programm. Nach dem 
Auspacken von 7 (!) Disketten und 2 
Handbüchern mit insgesamt ca. 500 Sei¬ 
ten müssen Sie sich darauf gefaßt ma¬ 
chen, daß noch eine Menge Arbeit auf 
Sie wartet, bevor Sie das Programm ein¬ 
gerichtet haben. Zudem müssen Sie ei¬ 
nige Leerdisketten formatieren, um die 
erforderliche Anzahl von Programm- 


Hierunter sind alle Haupt funktionen mit ihrer Integration in ComPack 
schematisch dargeBtellt. 
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kopiedisketten, Datendisketten und Da¬ 
tensicherheitsdisketten hersteilen zu kön¬ 
nen. Die Angaben des Handbuches sind 
in dieser Richtung nicht ganz eindeutig, 
doch wenn ich es richtig verstanden 
habe, benötigen Sie mindestens 11 lee¬ 
re Disketten, bevor Sie das erste Mal in 
das Programm einsteigen. 

Weiterhin benötigen Sie sehr viel Zeit, 
Ruhe und Planung, um das Programm¬ 
paket einzurichten und zu installieren. 
Da Ihnen das Handbuch wenig bis keine 
Hilfen dazu bietet, werden Sie einige 
Wochenenden mit ComPack und dem 
Computer verbringen müssen. Doch las¬ 
sen Sie sich von diesen Widrigkeiten 
nicht entmutigen: am Ende dieser unwir¬ 
schen Arbeiten haben Sie sich ein alltags¬ 
taugliches Programm installiert, das 
kaum mehr Wünsche offenläßt. 

Was die Arbeit mit dem fertig installier¬ 
ten Programm so angenehm, die Instal¬ 
lation jedoch zum Nervenkrieg werden 
läßt, ist die Tatsache, daß die Designer 
von ComPack Ihnen eine Gestaltungs¬ 
freiheit einräumen, die Ihresgleichen 
sucht. Sie können weitestgehend die 
Verknüpfungen innerhalb des Pro¬ 
gramms bestimmen. 

Sie müssen genau festlegen, mit welchen 
Modulen Sie arbeiten wollen, wie wel¬ 
che Konten im Kontenrahmen verknüpft 
sind und wie die Listen aussehen sollen, 
die das Programm druckt. 


Ich muß gestehen, daß ich hier gepaßt 
habe. Ich wollte das Programm für Test¬ 
buchungen einrichten, habe aber nach ei¬ 
nem halben Tag das Handbuch geworfen 
und mir das fertig installierte Programm 
bei einem Kunden angesehen. 

In der Sachkontenverwaltung II existiert 
ein angelegter Kontenplan nach dem In¬ 
dustriekontenrahmen, der zwar für Ihre 
eigenen Bedürfnisse nicht ausreichen 
wird, anhand dessen Sie jedoch zumin¬ 
dest in Ansätzen die Struktur Ihrer zu¬ 
künftigen Finanzbuphftaltung erahnen 
können. 

Trotz dieser Hilfe reichen normale Buch- 
haltungskenntnisse kaum aus, um das 
völlig nackte Programm einzurichten. 
Um die mir vorliegende Version einzu¬ 
richten, muß man zwar kein Finanzbuch¬ 
halter sein, sollte aber zumindest einen 
kennen, um das Programm bzw. die 
Sachkontenverwaltung einzurichten. 

Ähnlich sieht es bei den anderen Modu¬ 
len aus. Es ist sehr schön, wenn man sich 
ein Programm auf die eigene Untemeh- 
mensstruktur zuschneiden kann, doch 
sollte man die Gestaltungsmöglichkeiten 
bei ComPack entweder ein wenig ein¬ 
schränken oder aber anhand eines aussa¬ 
gefähigen Handbuches, einer angelegten 
Demo-Firma und/oder eines Tutors zei¬ 
gen, wie ein fertig eingerichtetes Pro¬ 
gramm aussehen kann. 


Das Handbuch zu ComPack ist leider 
recht unbrauchbar; hier ist es nicht ge¬ 
lungen, komplizierte Zusammenhänge 
anschaulich zu vermitteln. 

Bleibt für alle PC-Anwender zu hoffen, 
daß Schneider in dieser Hinsicht aktiv 
wird und zu einem guten ComPack-PC 
auch ein gutes Handbuch erstellt. 

Wenn Sie an einer — im Buchhaltungs¬ 
bereich — allumfassenden Geschäfts¬ 
software interessiert sind, kann ich Ihnen 
ComPack unter folgenden Vorausset¬ 
zungen empfehlen: 

1) Sie oder einer Ihrer Mitarbeiter sind 
in der Lage, mindestens 30 Std. Ar¬ 
beit in die Installation und Anpassung 
des Programmpaketes an Ihr Unter¬ 
nehmen zu investieren. 

2) Sie verfügen über umfassende Buch¬ 
führungskenntnisse, bzw. können 
sich bei Bedarf kurzfristig fachkun¬ 
dige Hilfe verschaffen. 

Wenn Sie bereit und in der Lage sind, 
diesen Aufwand zu betreiben, steht Ihnen 
mit ComPack eine gute Software zur 
Verfügung, die sich innerhalb einer kur¬ 
zen Zeit bezahlt machen wird. 

ComPack ist zum Preis von 798, — DM 
bei Ihrem Fachhändler erhältlich. 

(W.Huske) 
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3“ u. 5,25“ Doppellaufwerk f. CPC 464 incl. 
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Ihr Spezialist für Schneider PC und CPCU 
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- Imme* aktuelle Sp*ete und Programme - 

Zweitlaufwerk für CPC: 
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Ein komplettes Computersystem beinhaltet auch einen 
Drucker. Doch meist fristet der Printer sein Dasein als 
Listingmaschine. Zwar gibt es noch eine ganze Reihe an¬ 
derer Einsatzmöglichkeiten, aber zumeist erfordern die¬ 
se erst einmal die Anschaffung teurer Software. Mit 
Easy Printer erhalten Sie ein leistungsstarkes Pro¬ 
gramm, das die Erstellung und den Druck selbst gestal¬ 
teter Seiten ermöglicht. 


'I 


Die Easy Printer Anwendung umfaßt ein Paket von vier ver¬ 
schiedenen Programmen, die zusammen das Easy Printer Pa¬ 
ket ausmachen. 

Das Paket beinhaltet je einen Editor für Rand, Bild und Zei¬ 
chen. Das vierte Programm, der Designer dient zum Zusam¬ 
menfugen, Lay outen und Drucken der mittels der Editoren er¬ 
stellten Komponenten. Anzumerken wäre noch daß die Pro¬ 
gramme eigentlich alle auch im Cassettenbetrieb verwendet 
werden können. Allerdings ist das, in Anbetracht der immen¬ 
sen Ladezeiten (Easy Printer lädt permanent nach), sehr auf¬ 
wendig, sowohl von der aufzuwendenden Zeit als auch wegen 
des zu befürchtenden FileChaos. 


DESIGNER.BAS 
BEDITOR .BAS 
ZEDITOR .BAS 
REDITOR .BAS 


GH6 .BIN 
SIGNO .BIN 
SIGN2 .BIN 
BORDER.O 


Diese Programme bilden dann die HAUPTDISKETTE. Auf 
welchen Disketten die Files für Zeichensätze und Bilder vor¬ 
handen sind, bleibt Ihnen überlassen. Sollten auf der Haupt¬ 
diskette noch mehr als 72K frei sein, so können ZEICHEN.0 
und BILD.O auch auf die Hauptdiskette. (24K für Backup von 
BORDER.O, je 24K für Original und Backup von ZEICHEN.0 
und BILD.O) 


Speicherbelegung des CPCs bei Benutzung von 
Easy Printer 

&FFFF 

> Bildschirmspeicher 

&COOO 

> SystemRAM 

8cA67c 

> Hardcopyroutine 

&AOOO 

> SIGN2.BIN / SIGNO.BIN 

8c9FOO 

- Zeichensatz Nr.X 

99 

_ 

&7022 

— Zeichensatz Nr. 1 

— Zeichensatz Nr.O 

— Tabelle Startadresse 

8c6f80 

Zeichensdtze 
- Bild Nr. X 

&40a2 

- Bild Nr.3 

- Bild Nr. 1 

- Bild Nr.O 

- Tabelle Startadresse Bilder 

&4000 

- Variable etc. 

&017c 

- Basic Programme (Designer, Reditor, 
Zeditor, Beditor) 

- System Ram 

&0000 

Diese Speicherbelegung dient zum leichteren Verständnis der 

Bedienungsanleitung. 


Zur Diskettenverwaltung 


Es muß mindestens eine Diskette vorhanden sein. Auf dieser 
Diskette müssen dann zumindest folgende Programme vorhan¬ 
den sein: 


Bedienungsanleitung zu Easy Printer 


Um das Programmpaket EASY PRINTER im vollen Umfang 
nutzen zu können, muß ein kleiner Einblick in die Arbeitsweise 
der einzelnen Programme verschafft werden. Hierzu dient auch 
die beiliegende Speicherübersicht. Folgende Bereiche werden 
von den Programmen genutzt: 

1. Bereich &170 bis &3fff: 

Hier liegen die BASIC PROGRAMME und die von diesen be¬ 
nutzten Variablen. 

2. Bereich &4000 bis 6f7f: 

Hier liegen die Zeichensätze. In einem kleinen Bereich liegt zu¬ 
dem noch eine Tabelle, die auf die Startadresse der Zeichen¬ 
sätze zeigt, da Zeichensätze frei definierte Größen (in Gren¬ 
zen) haben können. 

Diese 12K, die meist durch mehrere Zeichensätze belegt sind, 
werden auf Diskette als Binärfile mit einheitlicher Länge ab¬ 
gespeichert (z.B. ZEICHEN.0). Jeder Zeichensatz in diesen 
12K erhält eine Nummer, beginnend mit 0. Jeder Zeichensatz 
enthält 59 Zeichen (chr$(32) bis chr$(90)), die aus einer frei 
wählbaren Matrix zusammengesetzt sind. Diese Matrix muß 
innerhalb eines Zeichensatzes aber gleich sein. Beispiel: Ein 
FILE mit Namen ZEICHEN.X enthält zwei Zeichensätze. Die 
Matrix des ersten sei 16 x 16 Punkte, die Matrix des zweiten 
sei 8 x 6 Punkte pro Zeichen. In der Tabelle findet man nun als 
erstes Byte eine 2 (2 Z-sätze) danach zweimal eine zwei Byte 
lange Adresse, wo die Zeichensätze beginnen. Der erste Zei¬ 
chensatz eines Files beginnt immer bei &40A3. Ab Adresse 
&40A3 liegt dann der erste Z-satz (Satz Nr.O). Er benötigt 
59 X16 x 16/8 Bytes (59 Zeichen, 16 X16 Bits = 16 X16/8 By¬ 
tes) plus 2 Datenbytes, in der die Matrixgröße liegt. Insgesamt 
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benötigt Satz Nr.O also 7554 Bytes. Der nächste Zeichensatz 
wird dahinter abgelegt. (Hier ab Adresse &8E25) usw. Die An¬ 
zahl der Zeichensätze pro File hängt also von der Matrix ab. 
Neue Zeichensätze können mit dem ZEDITOR geschaffen 
werden. 

3. Bereich &6F80 bis 9EFF 

Diese 12K ähneln dem vorhergehenden. Hier werden jedoch 
Bilder abgelegt. Ebenso wie der zweite Bereich wird auch die¬ 
ser auf Disk als Binärfile abgelegt. Hier können ebenso meh¬ 
rere Bilder gespeichert sein. Die Anzahl der maximal abgespei¬ 
cherten Bilder pro File hängt von der Größe der einzelnen Bil¬ 
der ab. Jedes Bild kann eine beliebig wählbare Größe haben. 
Neue Bilder können mit dem BEDITOR geschaffen werden. 
Eine Ausnahme in der Belegung von Bereich 2 und 3 besteht 
darin, wenn mit dem REDITOR (Rahmen EDITOR) gearbeitet 
wird. Die Bereiche werden dann zu einem 24K großen Bereich 
zusammengelegt wodurch dann 45 Rahmen abgespeichert wer¬ 
den können. 

Jeder Rahmen besitzt eine einheitliche Größe von 528 Bytes. 
Er besteht aus 8 Teilstücken (Nr.O bis Nr.7), deren Lage hier 
schematisch auf der Skizze zu sehen ist. Jedes Teilstück besteht 
aus 22x24 Punkten (Bits) wodurch 66 Bytes belegt werden. 
66 x 8 Teilstücke ergeben 528 Bytes pro Rahmen. Die etwas 
seltsame Reihenfolge der Teilstücke ist programmtechnisch be¬ 
dingt, worauf einzugehen hier unnötig wäre. 

4. Bereich &9FOO bis &A000 

Hier liegt ein M-Programm, welches Bilder, definierte Zeichen 
und Rahmen auf den Schirm zaubert. 

5. Bereich &A000 bis &A67b 

Hier liegt die Grafikhardcopyroutine. 

Die restlichen Bereiche werden vom System belegt. 

Hier sei noch erklärt, wie unter DESIGNER erstellte Grafiken 
zu Papier gebracht werden: Zunächst wird der obere Rahmen 
ausgedruckt. Dann wird die Grafik in drei große und einen klei¬ 
nen Bereich aufgeteilt. Die drei großen Bereiche entsprechen 
drei Bildschirmseiten, der kleine Bereich etwa einem drittel 
Bildschirm. Es werden dann die in den entsprechenden Bereich 
gehörenden Bilder oder Zeichen auf den Bildschirm geschrie¬ 
ben und (umgeben von einem Rahmen) vom Bildschirm ko¬ 
piert. Einer dieser drei großen Bereiche kann auch von Diskette 
geholt werden. Das entsprechende File muß 16K lang sein und 
eine Kopie des Bildschirms sein (z.B. ein Bild, welches mit ei¬ 
nem CAD-System erstellt wurde). 

Hier nun detaillierte Anleitungen zu den BASIC Programmen 
von EASY PRINTER: 


Beditor 


Dies ist der Bild-Editor. Mit Hilfe dieses Editors können neue 
Bilder hergestellt, alte verändert und neu abgespeichert wer¬ 
den. Nach dem Start des Programmes wird der Bildschirm neu 
aufgebaut, BILD.O geladen und das erste Bild aus diesem File 
(bei mir ein Weihnachtsbaum) auf der Arbeitsfläche mit ma¬ 
ximaler Vergrößerung dargestellt. Über das Bild wird evtl, eine 
Rastermaske gelegt (hängt von Bildgröße ab). Links oben auf 
der Arbeitsfläche blinkt der CURSOR. Er wird mit 
Joystick-!-Feuer oder Cursor-Tasten und Copy bewegt. Punkte 
werden nach dem Flip-Flop Prinzip an- oder ausgeschaltet. 
Wird der CURSOR links aus der Arbeitsfläche heraus bewegt, 
wird er zum KommandoCURSOR. (< =) So können die links 
stehenden Kommandos aufgerufen werden. Direkt über der Ar¬ 
beitsfläche ist die Statuszeile, auf der die wichtigsten Informa¬ 
tionen stehen. Hier nun die Funktionen im einzelnen: 



LOAD: 

Ein neues File mit Bildern kann geladen werden. Dieses File 
kann auch auf anderen Disketten liegen. Bitte sichergehen, daß 
das entsprechende File auch wirklich existiert und mit BEDI¬ 
TOR erstellt wurde. 

SAVE: 

Ein neues File mit Bildern kann gespeichert werden. 
EDITNr.: 

Unter Eingabe einer Nummer können verschiedene Bilder in¬ 
nerhalb des Files (12K) editiert werden. 

INITNr.: 

Will man ein völlig neues Bild in einem File erstellen, so muß 
ein Speicherbereich reserviert werden. 

CLEAR: 

Mit CLEAR können alle Punkte eines Bildes gelöscht werden. 
CONVERT: 

Mit Hilfe von CONVERT kann ein Bild in ein anderes kopiert 
werden. Dieser Vorgang verläuft innerhalb des Files. Es muß 
die Nummer des Bildes, welches kopiert werden soll, eingege¬ 
ben werden. Es wird dann in das gerade gewählte kopiert. Höhe 
und Breite müssen aber übereinstimmen. 

PRINT: 

Das Bild wird auf dem Bildschirm 1:1 dargestellt 
TRANSFER: 

Wie CONVERT, jedoch wird ein Bild aus einem fremden File 
kopiert. Es muß der Filename des zu kopierenden Bildes ein¬ 
gegeben werden. Auch hier müssen Breite und Höhe gleich 
sein, sonst wird die Anweisung nicht ausgeführt und eine Feh¬ 
lermeldung ausgegeben. 

BREITE: 

Die Breite des letzten Bildes im File kann verändert werden. 
Unbedingt beachten, daß alle anderen Bilder nicht in Breite und 
Höhe verändert werden können. Die Breite wird in Bytes an¬ 
gegeben, d.h. eine Breite von 1 entspricht 8 Punkten in der 
Breite. 

HÖHE: 

Die Höhe des letzten Bildes kann verändert werden. Hier ent¬ 
spricht eine Höhe von 1 wirklich einer Höhe von 1 Punkt. 
RASTER: 

Die Rastermaske eines Bildes wird ein- oder ausgeschaltet. 
EXIT: 

Das Programm kann verlassen werden. Ein Überspringen zu 
den anderen Editoren oder DESIGNER ist ebenfalls gegeben. 
NEW: 

Das ganze File im Speicher wird gelöscht. Hier ist eine zeit¬ 
abhängige Bestätigung erforderlich (j + ENTER). 
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Zeditor 


Dieser Editor ist dem Bild Editor sehr ähnlich. Dieser Editor 
ist jedoch für das Erstellen neuer Zeichensätze zuständig. Nach 
dem Start wird das File ZEICHEN.0 von Disk geladen. Der 
Bildschirm wird, dem des BEDITOR gleich, aufgebaut. Cur¬ 
sor und Kommandos werden gleich gehandhabt. Trotzdem 
nochmal eine kurze Zusammenfassung der Kommandos: 

LOAD: Laden eines Files mit Zeichensätzen 

SAVE: Speichern des Files auf Disk 
EDIT Nr.: Ein Zeichen innerhalb eines Zeichensatzes kann 
zum Editieren angewählt werden. Zeichen Nr. 0 entspricht 
“ “, die Reihenfolge ist der im CPC Handbuch angegebenen 
gleich. Zusätzlich wird in der Statuszeile neben der Zeichen¬ 
nummer auch das entsprechende Zeichen angezeigt. 

EDIT Zs.: Ein Zeichensatz kann zum Editieren angewählt wer¬ 
den. Danach steht immer das 1. Zeichen des Satzes (“ “) zum 
Bearbeiten zur Verfügung. 

INIT Zs.: Neuen Speicherbereich für neuen Zeichensatz reser¬ 
vieren. 

CLEAR: Die Punkte des gerade dargestellten Zeichens wer¬ 
den gelöscht. 


CONVERT: ähnlich zu CONVERT im BEDITOR. Jedoch 
muß hier noch zusätzlich zur Satznummer auch die Zeichen¬ 
nummer angegeben werden. 

PRINT: Das Zeichen wird 1:1 auf dem Bildschirm dargestellt, 
bis eine Taste gedrückt wird. 

TRANSFER: wie TRANSFER unter BEDITOR, jedoch muß 
zusätzlich die Zeichenmimmer eingegeben werden. 
BREITE: Die Breite aller Zeichen des letzten Zeichensatzes 
kann verändert werden. Auch hier wird die Breite in Byteschrit¬ 
ten angegeben. 

HÖHE: Die Höhe aller Zeichen des letzten Zeichensatzes kann 
verändert werden. Hier wird die Höhe in Punkten angegeben. 
RASTER: Rastermaske über einem Zeichen an/aus 
EXIT: Verlassen des ZEDITORs 

NEW: gesamtes File im Speicher löschen. Zeitabhängige Be¬ 
stätigung. 


Reditor 


Der einfachste der drei Editoren. Die Bedienung entspricht den 
vorhergehenden. Jedoch entfallen hier einige Kommandos 
LOAD: Ohne Eingabe eines Dateinamens wird immer BOR- 
DER.O geladen, da 45 Rahmen ohnehin mehr als ausreichend 
sind. BORDER.O muß auf der Hauptdiskette liegen. 

SAVE: Alle Rahmen werden auf Diskette gespeichert. 
PRINT: Der gesamte Rahmen wird auf der Arbeitsfläche 1:1 
dargestellt. Teilstücke Nummer 4,5,6 und 7 werden mehrmals 
hintereinander, später beim Drucken, gesetzt. 

EDIT Nr.: Ein Teilstück innerhalb eines Rahmens kann edi¬ 
tiert werden. Zur Hilfe wird links oben in der Arbeitsfläche der 
Rahmen mit seinen Teilstücken mit Hilfe von Nummern dar¬ 
gestellt. Das gerade bearbeitete Teilstück wird hier invers dar¬ 
gestellt. 

EDIT Rd.: Ein neuer Rahmen kann erarbeitet werden. 
CLEAR: Ein Teilstück kann gelöscht werden. 

TRANSFER: Ein Teilstück kann in ein anderes kopiert werden. 
EXIT: Aussteigen aus dem REDITOR. 

NEW: Löschen aller Rahmen im Speicher. Zeitabhängige Be¬ 
stätigung. 


Designer 


Das umfangreichste und in der Bedienung anspruchsvollste 
Programm der vier BASIC Programme. Nach dem Start wird 
der Bildschirm aufgebaut, Files von Diskette geladen und die 
Ausführung im Teil »Rahmen eingeben« fortgeführt. Wenn 
Aufforderungen wie »Bitte Hauptdiskette« oder »Bitte Diskette 
mit...« erscheinen, legen Sie bitte die gewünschten Disketten 
ins Laufwerk und drücken eine Taste. Der Rechner fragt auch, 
wenn die entsprechende Diskette noch/schon im Laufwerk 
liegt. Nun können Sie einen Rahmen wählen, der später Ihr Bild 
umgeben wird. 

Geben Sie die entsprechende Nummer ein, und der Rechner 
malt Ihnen schematisch das Aussehen des Rahmens links un¬ 
ten auf den Schirm. Wollten Sie einen anderen Rahmen, ver¬ 
neinen Sie die Bestätigung mit »n« (nur drücken), und können 
einen neuen Rahmen wählen. Ist Ihre Entscheidung positiv, 
drücken Sie bitte »j« und der Rechner überträgt einen kleinen 
Speicherbereich. Danach befinden Sie sich im Hauptmenue. 
Das links aufgemalte Rechteck mit seinen drei Markierungen 
am rechten Rand, Bedeutung später, stellt das Blatt Papier dar. 
Links oben auf dem Blatt ist der Bilder-CURSOR. Er wird wie 
üblich mit Joystick oder Tastatur innerhalb des Rechtecks be¬ 
wegt. Rechts unten ist ein kleines Bild dargestellt (nach einem 
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Neustart Bild Nr.O, ein Tannenbaum, aus File BILD.O). Die¬ 
ses Bild kann, im CURSOR gedacht, auf dem ganzen Blatt be¬ 
wegt werden. Wie es an einer Stelle abgelegt wird kommt spä¬ 
ter. Rechts oben stehen die Kommandos, die durch Antippen 
der entsprechenden Taste ausgeführt werden können. 

WICHTIG: Die Tastatur muß auf Kleinschrift umgestellt sein! 

Hier nun die Befehle im einzelnen: 
l:Bild laden (...) 

Mit Hilfe dieser Funktion kann ein File mit Bildern geladen 
werden. In Klammern steht der Name des Files, welches im 
Speicher liegt. 
x:Breite (..) 

Das Bild, welches der Cursor darstellt, wird auf das eingege¬ 
bene Vielfache in Breite vergrößert. Der eingegebene Wert 
muß eine Ganzzahl > 0 sein. Der Cursor verändert ebenfalls sei¬ 
ne Größe. In Klammem dahinter steht der aktuelle Wert. 
y:Höhe (..) 

Hier wird in der Höhe vergrößert. Nach Ausführung von x und 
y wird der Cursor wieder in die linke obere Ecke zurückgesetzt, 
n: Bildnummer (...) 

Es kann ein anderes Bild aus dem aktuellen File gewählt wer¬ 
den. In Klammem dahinter steht die aktuelle Nummer. Das ent¬ 
sprechende Bild wird rechts unten angezeigt. 
t:Text 

Springen ins Menue Text. Hier kann Text eingegeben werden 
(Funktionen »Text« später) 
d: Drucken 

Die erstellte Grafik soll auf Drucker ausgegeben werden. Nach 
Bestätigung werden Sie gefragt ob Sie ein Bild von Diskette ein¬ 
binden wollen. Mit diesem Bild von Disk ist eine auf Disk ab¬ 
gespeicherte Bildschirmkopie (als BIN-File, 16K) gemeint. Es 
können z.B. mit einem CAD System erstellte Bilder mit aus¬ 
gedruckt werden. Es kann aber nur ein Bild eingebunden wer¬ 
den. Sie müssen dann den Bereich ,(1 — 3) angeben, an der das 
externe Bild dann später in die voft Ihnen erstellte Grafik ein¬ 
gebunden wird. Ich erwähnte am Anfang der Beschreibung von 
DESIGNER die Markierungen rechts an der Arbeitsfläche 
(kurze waagerechte Striche). Diese stellen die Begrenzung der 
Bereiche dar. Bereich 1 ist der oberste Bereich. 

Wichtig: Bitte unterscheiden Sie Bild, Bild und Bild. Zum ei¬ 
nen ist das Bild jenes, welches Sie mit einem CAD-System er¬ 
stellten und nun in Ihre erstellte Grafik einbinden wollen. Zum 
zweiten ist ein Bild Ihr später fertiger Ausdruck mit Rahmen 
etc. Zum Schluß können Sie noch Bilder mit BEDITOR erstel¬ 
len. Diese Bilder aber sind kleine Sternchen aus denen Sie Ihre 



Grafik mit DESIGNER zusammensetzen, (ähnlich einer Fo¬ 
tomontage, in die Sie kleine von Ihnen gefertigte Fotos einkle¬ 
ben, oder große von anderen gefertigte Bilder einbinden), 
b: Bearbeiten 

Hier stehen noch einmal fünf Funktionen zur Verfügung. Sie 
werden durch Antippen der Taste aufgerufen. 

X: X-Zentrieren. Den Cursor in die waag. Mitte rücken, 
y: y-Zentrieren. Den Cursor in die senk. Mitte rücken. 


Für unsere ständige Joyce-Rubrik suchen wir noch 

Programme, Tips +Hicks 

zur Veröffentlichung. Honorar nach Vereinbarung. 

Einsendungen an: 

DMV Daten & Medien Veriagsgesellschaft mbH 
Fuldaer Str. 6, 3440 Eschwege 


8’87 PC 123 










































[—Programm 


S: Setzen. Dies ist eine äußerst wichtige Funktion!!! Haben Sie 
den Cursor, der den Platzhalter für Ihr kleines Bild darstellt, 
auf die richtige Position gebracht und wollen, daß es an dieser 
Stelle später auf dem Papier erscheint, müssen Sie diese Funk¬ 
tion aufrufen. Wollen Sie nämlich mehrere kleine Bilder in Ih¬ 
rer Grafik haben, so müssen alle diese abgespeichert werden. 
(Der Rechner muß sich ja Bildnummer, Lage usw. merken). 
Haben Sie diese Funktion nicht aufgerufen, um das Bild an die¬ 
ser Stelle zu positionieren, so wird es später nicht ausgedruckt! 
Beim Aufruf dieser Funktion wird dann Bildnummer, Lage, 
Filename, Größe usw. in einem Array abgelegt. Später beim 
Drucken holt sich der Rechner dann seine Informationen, ob 
und wenn ja wie viele Bilder auf Drucker und wie sie ausge¬ 
geben werden. Dafür erhalten diese im Speicher abgelegten Bil¬ 
der eine fortlaufende Zahl beginnend bei 0. Zusätzlich wird an 
dieser Stelle der Arbeitsfläche ein Rechteck mit Lage und Größe 
des Cursors gezeichnet, damit Sie sich später daran orientie¬ 
ren können und sich nicht evtl. Bilder überschneiden. 

Anm.: Der Rechner arbeitet im invers-Grafikmodus 
(chr$(23)chr$(l)), deshalb kann der Cursor auf dem Rechteck 
nicht dargestellt werden (er wird unsichtbar, wird der Cursor 
verschoben, erscheint er wieder). 

1:Löschen: Haben Sie versehentlich ein Bild an einer falschen 
Position auf der Arbeitsfläche abgelegt, so können Sie dieses 
wieder aus dem Speicher holen. Sie müssen dazu die Nummer, 
die der Rechner diesem Bild (nach Aufruf von »s:Bild setzen«) 
gegeben hat, eingeben. Sollten noch Bilder im Speicher dahinter 
abgelegt sein, so werden diese im Speicher um eine Stelle vor¬ 
gerückt, d.h. Ihre Nummer vermindert sich um 1. An dieser 
Stelle möchte ich noch einmal Mißverständnissen Vorbeugen: 
Mit dieser Bildnummer meine ich nicht die Nummer, die ein 
Bild im Bildfile (BILD.O,Bildnummer 0: Tannenbaum) besitzt, 
sondern die in der Funktion »s: Bild setzen« zugeteilte Nummer. 
Q:Quit: Rückkehren ins Hauptmenue. Der Cursor läßt sich im 
Untermenue »bearbeiten« nicht durch Joystick oder Cursorta¬ 
sten in seiner Lage verändern! 

S:Neustart: DESIGNER führt einen RUN aus, d.h. er reini- 
tialisiert sich selbst. Hier ist eine zeitabhängige Bestätigung 
(j + ENTER) erforderlich. 

E:£xit: Diese Funktion ist der Funktion exit in den drei Edi¬ 
toren gleich. Sie können dann zwischen BASIC und den drei 
Editoren wählen. 

Nachtrag zur Funktion »t:text« Hier steht ein neues Menue zur 
Verfügung. Der Cursor wird jetzt zum TextCursor, der seine 
Größe zusätzlich noch mit der Anzahl der eingegeben Zeichen 
vergrößert. Die Funktionen werden wieder, wie oben, durch 
Drücken der entsprechenden Taste ausgeführt. Zur Textein¬ 
gabe müssen alle Zeichen von A bis Z mit SHIFT eingegeben 
werden, damit der Rechner zwischen Kommando und Zeichen 
unterscheiden kann. Rechts unten werden jetzt, statteines Bil¬ 
des aus dem File die ersten drei Buchstaben des Alphabets in 
der gerade angewählten Schriftart dargestellt. Es kann sein, daß 
beim Farbbildschirm der Text-Cursor oben links auf der Ar¬ 
beitsfläche schwer zu erkennen ist. Ist noch kein Zeichen ein¬ 
gegeben, so besteht der Cursor nur aus zwei Punkten (invers 
Modus). Der Cursor kann mit Joystick oder Cursortasten be¬ 
dient werden. 

Wichtig!!! Ebenso wie Bilder durch Funktion »s:Bild setzen« 
im Speicher abgelegt werden müssen, wenn sie später gedruckt 
werden sollen, geschieht dies hier durch einfaches Drücken der 
ENTER Taste. Jede Textzeile erhält eine Speichemummer be¬ 
ginnend mit 0. Hier nun die Funktionen im einzelnen: 
L:Satz laden (...) 

Ein File mit Zeichensätzen kann geladen werden. In Klammem 
dahinter steht der aktuelle Name des Files (beim ersten Auf¬ 
ruf ZEICHEN. 0) 


X:Breite (..) 

Die Schriftbreite kann verdoppelt, verdreifacht usw. werden. 
Bezug der Verdoppelung, Verdreifachung usw. ist die normale 
Schriftbreite. In Klammern dahinter steht der aktuelle Faktor. 
Y:Höhe (..) 

Wie »x:Breite«, jedoch wird die Schrifthöhe verändert. 

N: Satznummer (..) 

Ein neuer Zeichensatz innerhalb des aktuellen Files kann ge¬ 
wählt werden. 

R:Bild 

Rückkehr ins Hauptmenue (»Bild«) 

B: Bearbeiten 

Hier stehen wieder eine Reihe von Funktionen zur Verfügung. 
Hier kann kein weiterer Text eingegeben werden, der Cursor 
kann nicht durch Joystick oder Cursor-Tasten bewegt werden. 
X: x-Zentrieren 
Y: y-Zentrieren 
L: Text löschen 

Eine Textzeile kann aus dem Speicher geholt werden. Der Cur¬ 
sor nimmt die Werte dieser Textzeile an, bevor diese durch 
ENTER im Speicher abgelegt worden ist. 

Q:Quit 

Zurück zum Menue »Texteingabe«. Sollte das Erstellen eige¬ 
ner Ausdrucke nicht auf Anhieb funktionieren, verzagen Sie 
nicht. Ein Programm wie es der Easy Printer ist, erfordert eine 
gewisse Einarbeitung. 


Hinweise zum Abtippen 


Das Programmpaket Easy Printer besteht aus acht Listings. 
Und zwar handelt es sich dabei um vier Basic Listings: BEDI- 
TOR, ZEDITOR, REDITOR, DESIGNER, drei Dataladem: 
GH5.Lad, SIGNO. Lad, SIGNO. Lad. und einem Minilisting 
zum Erzeugen von drei Leerdateien. Tippen Sie nun bitte zu¬ 
erst die vier Basic Listings ab, korrigieren Sie die Listings und 
speichern Sie sie danach zusammen auf einer Diskette. Tippen 
Sie dann die drei Datalader und das Init Programm ab und spei¬ 
chern diese, nachdem Sie sie korrigiert haben, auf der Rück¬ 
seite der Diskette ab. Danach laden Sie bitte die Datalader ein¬ 
zeln mit »Load« in den Computer. Wenden Sie die Diskette, 
auf die Seite, auf der sich bereits die Basic Programme befin¬ 
den und starten es nun mit »Run«. Die Binär-Files werden nun 
von den Dataladem erzeugt und automatisch abgesaved. Da¬ 
nach verfahren Sie mit dem Init Programm genauso. Dieses In- 
itprogramm erzeugt drei Leerfiles die zum Starten der Program¬ 
me notwendig sind. Bei diesem Programm haben wir uns dazu 
entschloßen, das Easy Printer Paket in einer Lauffähigen Ver¬ 
sion, zusammen mit einigen bereits erstellten Grafiken und Bil¬ 
dern auf die Databox zu bringen. Das bedeutet, daß hier so¬ 
gleich gestartet werden kann, ohne zuerst umständlich Biärfiles 
zu erzeugen. So, hier nun eine Tabelle auf der Sie exakt nach¬ 
vollziehen können welches Programm was tut. 

SIGNO.lad erzeugt SIGN0.bin 
SIGN2.1ad erzeugt SIGN2.bin 
GH5.1ad erzeugt gh5.bin BILD.O 
INIT.lad erzeugt BORDER.O ZEICHEN.O 
BEDITOR lädt SIGNO und ZEICHEN.O 
REDITOR lädt SIGN2 und BORDER.O 
DESIGNER lädt GH5 und BILD.O 
ZEDITOR lädt SIGNO 

Uns bleibt nur noch. Ihnen mit Easy Printer viel Spaß zu wün¬ 
schen. 

(Michael Krämer/HS) 
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Das CPC Sonderheft Nr.4 ist noch erhältlich! 


Spiele: 

U.a. Speedy Bricks - tolle Spielidee, hervorragende Grafik und flüssiger Spielablauf sind die 
herausragenden Eigenschaften dieses Action- und Geschicklichkeitsspieles. 

Tipsi - Weltraumabenteuer der Extraklasse! Dieses Arcade-Spiel besitzt eine Super-Grafik, 
insgesamt fünf verschiedene Level und bürgt für eine hohe Spielmotivation. 

Anwendungen: 

U.a. Maskengenerator - ermöglicht das Erfassen und Ändern von Bildschirmmasken. Der 
Benutzer erfaßt seine Konstanten und Variablen direkt am Bildschirm, die anschließend per 
Programm interpretiert und in einer Parametertabelle gespeichert werden. 

3D-Plot - erstellt auf einfache Weise 3D-Grafiken jeder Art. 

3-Axis - dient zur Erstellung und Bearbeitung linearer Gebilde. 

Utilities: 

BASIC-Compiler - arbeitet mit Integer- und Stringvariablen und compiliert BASIC- 
Programme, die mit einem Texteditor bzw. einem Textverarbeitungsprogramm erstellt wurden 
Macro-Assembler - komfortable Routine zum Erstellen von Assemblermacros unter CP/M. 

Programmiersprachen: 

Wissenswertes und Erfahrungsberichte über C, Comal, Forth, Cobol und dBase II. 

Die auf dem Schneider CPC verfügbaren Compiler werden ausführlich vorgestellt, die Syntax 
erläutert. Beispielprogramme und Literaturhinweise runden das Thema ab. 

Turbo-Pascal: 

Die Turbo-Pascal Ecke bietet u.a. das Programm »Sags«, mit dem eine Sprachausgabe (auch 
für Bayrisch) realisiert werden kann (übrigens auch als BASIC-Version veröffentlicht. 

Des weiteren gibt es viele Tips zur Grafikerzeugung, der Symbol-After-Befehl wird implemen¬ 
tiert und zur Unterhaltung dient das allseits bekannte und beliebte Generationsspiel. 

Mit über 200 Seiten praller CPC-lnformationen, Tips und Programmen das ideale Sammel¬ 
werk für jeden CPC-Anwender. 

Alle Programme sind auf Datenträger erhältlich. 



Im Zeltschriftenhandei oder direkt beim Verlag 


Weitere Sonderhefte im Verlag erhältlich 




Sonderheft 2 / 06 : 

CP'M - Floppys Hardware Schwerpunkte irrj CPC 
Sonderheft 2. Sie erfahren z.B. t wie eine retatii 
waltuna realisiert wird und wie der CPC 
und IBM austauschen kann. „W 1 
Die Hardware-Rubrikder Schneider- 
Floppy, ein 3^l»jMi3fi*ich ohne Probleme an den 
C&jsq^y DK CPC DOS 3.0 erweitert den Horizont 
<3ü%inmein Vielfaches und läßt die Programmierer- 
iSfz« h höher schlagen. Und - viele Superinlos zu CP/M 
— eine wahre Fundgrube für alle CPC-Besitzer! 


Richten Sie ihre Bestellungen an: 

DMV-Verlag, Fuldaer Str. 6, 3440 Eschwege 
— Bitte Bestellkarte benutzen! — 



Sonderheft 3/86: 

Reviews — Spiele - Anwendungen - ein wahres Hit- 
Sammelsorium birgt das CPC-Sonderhett 3/86. 

Die besten Spielprogramme im Überblick und viele Tips, 
Lösungen und Karten zu Compulerspielen- und Abenteu¬ 
ern Begeistern wird Sie auch der Flugsimulator - ein ech¬ 
ter Leckerbissen zum Eintippen! Fantasy- und Adventure- 
freunde werden sich über das erste Rollenspietadventure 
Monstergarten sicherlich genauso freuen, wie die 
Hardware-Freunde über die Echtzeituhr zum Selbstbau. 
Des weiteren gibt es viele tolle Programme aus den Berei¬ 
chen Spiel, Anwendung und Utilities sowie fundierte Berich¬ 
te über die ettektive Interruptprogrammierung. Da ist für je¬ 
den etwas dabei Und natürlich: Alle Programme sind auch 
auf Diskette oder Kassette erhältlich! 


































[—Programm 



für 464-664-6128 


DESIGNER 

10 MODE 2:PEN 0:PAPER 1:PR I NT STR 1NG*(80,” [10522] 
11 ) ; STR [ NG* (80, " = LOCATE 28, 1 :PRINT”EAS 
Y PRINTER DESIGNER".-PEN 1:PAPER 0:BORDER 2 
20 WIND0W#3,1,39,10,25:WINDOWtl,44,80,3,11 [5276] 

: WINDOW 44,80,13, 15:WINDOW#2,44,80, 15,25:P 
EN #2, 1:PAPER#2,0 

30 MEMORY &3FFF:CLEAR:DEFINT x,y,z,i,j,b C1882] 
35 ri$=CHRS(9)+CHR*(243):le*=CHR*(8)+CHR*( C4311] 

242):up* = CHR*(11)+CHR*(240):do*=CHR*(10)+C 
HR*(241) 

40 an*=CHR*(23)+CHR*( 1 ) : aus $ = CHR* ( 23 ) +CHR* [7146] 
(0):bna*="biId.0":zna*="Zeichen.0":text$=" 

Bitte Diskette mit " 

50 h=50:D1M bx(h),by(h),bsx(h),bsy(h),bnr( [30101 
h),bna*(h) 

60 DIM zx<h),zy(h),zsx(h),zsy(h),zsz(h),zn [38983 
a*(h),z*(h) 

70 PLOT-i , 0, 1 .-MOVE 320,0:DRAWR 0,350:DRAWR [7534] 

-320,0:MOVE 320,252:DRAWR 4,0:M0VE 320,154 


:DRAWR 4,0:MÜVE 320.56:DRAWR 4,0 

75 GOSUB 65000 C8291 

80 GOSUB 20000 C998) 

90 xs=l:ys=l:x=0:y=348:GOSUB 20600 [23151 

100 GOSUB 20200 [990] 

990 GOSUB 20400 [902] 


1000 a$=INKEY*:lF a*=""THEN zz=l:GOTO 1000 [25113 
1010 GOSUB 20400: IF 1NSTR( Ie* , a*)<>0 AND x [43643 
>zz~l THEN x=x-zz:zz=zz+2:GOTO 990 
1020 IF lNSTR(up$,a*)<>0 AND y<3S0-zz THEN C42083 
y=y+zz:zz=Z2+2:GOTO 990 

1030 IF INSTRCri*,a$)<>0 AND x<320-zz-bbx* [5138] 
4*xs THEN x=x+zz:zz=zz+2:GOTO 990 

1040 IF 1NSTR(do*,a*)<>0 AND y>zz+bby*ys/2 [58593 
THEN y=y-zz:zz=zz+2:GOTO 990 
1050 ON iNSTR("1xyntdbse",a* >GOTO 2000,300 [48803 


O,4000,5000,6000,7000,8000,9000,10000 
1060 GOTO 990 [5021 

2000 CLS:PR INT"laden": INPUT"Name:";a*:CLS (27213 
2010 IF a*■=""0R LEN(a*)>i2 THEN 990 [1806] 

2020 bna*=a*:GOTO 80 [8353 


3000 CLS:PRlNT"Breite”:PRINT"(1 -”j:h=lNT( (67023 
319/(bbx*4)):PRINT h i NPUT a*:CLS 

3010 a=VAL(a*):IF a*=""QR a<l DR a>h THEN [22903 
990 

3020 xs =a:GOSUB 20200:x = 0:y = 346:GOTO 990 (29883 

4000 CLS: PR I NT"Hoehe": FR I NT"(1 -";:h=INT(3 [51413 


49/(bby/2) ) :PRINT hI NPUT a*:CLS 

4010 a = VAL(a*) ; IF a$ = ""OR a<l OR a>h THEN [22903 

990 

4020 y s = a :GOSUB 20200:x=0:y=348:GOTO 990 (27893 

5000 CLS:PRINT"BiIdnummer:":PRINT"Nummer: (47163 

(0 ;bmax-1;")";:INPUT a*:CLS 

5010 a=VAL(a*):1F a*=""OR a<0 OR a>bmax-l (31153 
THEN 990 

5020 bnr=a:GOTO 80 [6063 

6000 zI=0:z*="":CLS:GOSUB 20100 (16513 

6001 x s = i : y s = 1 : x = 0 : y = 34ö : GOSUB 20700 [z.2633 

6002 GOSUB 20300 (10023 

6003 GOSUB 20S00 (9943 


6004 a$ =1NKEY *: 1F a*=""THEN zz = l:GOTÜ 6ÜÜ4 [2306] 
'6005 GOSUB z050ü : I F 1 NSTRC up$ , a* ) <.>0 AND y C26«iJ 
<,350-2Z THEN y = y + zz : zz = zz+ 2 : GOTO 6003 
6006 IF 1 NSTR ( I e* . a* ) <->0 AND x>zz-l THEN x [3568J 


=x-zz:zz=zz+2:GOTO 6003 

6007 IF 1 NSTR (rit.aJIOO AND x < 320-z z - zb x * C51561 
4*xs THEN x = x + zz : zz = zz+1:GOTO 6003 

6008 IF 1NSTR(do*,a*)<>0 AND y •> zz+ zby * y s / 2 [48583 
THEN y=y-zz:zz=zz+2:GOTO 6003 

6009 ON INSTR(”1xynrb"+CHR*(13)+CHR*(127), [5676] 

a* > GOTO 6050,6100,6150.6160,80,6200.6900,6 

950 

6010 IF a* " "OR a*'"Z"THEN 6003 [914] 

6011 IF x+(zI+1)*zbx*xs*4>319 THEN 6003 [1829] 

6012 z1=zI * 1:z* = z*»a*:GOTO 6003 [2299] 

6050 CLS:PR INT"Satz 1aden":1NPUT"Name:":al [3464] 


: CLS 

6052 IF a* = ""0R LEN(a*)>12 THEN 6003 
6054 zna * =a*:GOTO 6000 

6100 CLS:PR I NT"Breite":PRlNT"tl -”;:h=lNT( 
319/(zbx*4)):PRINT h:")"!:1NPUT a*:CLS 
blUl a = VAL( a* J : 1 F a <. i OR a/h OR a* = ""OR a< 
> 1 NT(a)THEN 6003 

6102 xs = a : zI=0:z* =x=0:y = 348:GOTO 6002 

6150 CLS:PR INT"Hoehe":PR I NT”(1 -”;:h=INT(3 
48/(zby/2)):PRINT h;")";:INPUT a*:CLS 

6151 a = VAL(a*) : IF a<l OR a>h OR a* = ""OR a< 
>JNT(a)THEN 6003 

6152 ys=a:z1=0:z*="":x=0:y=348:GOTO 6002 

6160 CLS:PRlNT"Satz":PRINT"Nummer:(0 -";zm 
ax-1 )"; : INPUT a$:CLS 

6161 a = VAL ( a* ) : 1 F a«.0 OR a^zmax-1 OR a* = "" 
OR I NT(a)< >a THEN 6003 

6162 zsz=a:GOTO 6000 

6200 CLS#1:PR 1 NT#1, "x:x-zentrieren":PRINTH 
1,"y:y-zentrieren":PRINT#i,"1:Text loesche 
n":PRINT#1,"q:zurueck" 

6203 GOSUB 20500 

6206 CLS:PRINT'M hre Wahl:” 

6209 a* = I NKEY* : I F a* = ’’ "THEN 6209 
6212 GOSUB 20500:ON INSTR("xyIq".a*)GOTO 6 
300,6400,6500,6002 
6215 GOTO 6203 

6300 x=I NT( (320-zbx*xs*4*zI ) /2 ) : GOTO 6203 
6400 y = 348-1 NT((348-zby*ys/2)/2) :GOTO 6203 

6500 IF zaz=0 THEN 6203 

6501 CLS:PR1NT"Text 1oeschen":PR I NT"(0 - " { 
zaz-1NPUT a*:CLS 

6502 a=VAL(a*):IF a*="”OR a<0 OR a>zaz-l 0 
R a«, > I NT ( a ) THEN 6203 

6503 x=zx(a)/2:y=zy(a)/2:xs=zsx(a):ys=zsy( 
a):zna$=2na*(a):z*=z*(a):zl=LEN(z*) 

6504 GOSUB 20100:zsz=zsz(a):GOSUB 20100 

6505 GOSUB 20700-.GOSUB 20500 

6506 FOR i=a TO zaz:zx(i)= zx(i+1):zy(i>=zy 
( i + 1):zsx(i)= zsx(i + 1) :zsy(i)=zsy(i+1): zna* 
(i)=zna$(i+l):zsz(i)=zsz(i+l): 2 *(i)=z*(i+l 


[1953] 

[ 620 ] 

[4870J 

[2750] 

C2188] 
[3295] 

C 27501 

[2523] 

[4684] 

[2331] 

[2203 J 
[9508] 


[994] 

[ 1978'] 
C1314] 
C 4340 3 

(3923 
(28663 
[27053 
[14113 
(38353 

[34513 

[40103 

(25293 
[14683 
(75593 


):NEXT 

6507 zaz = zaz- 1:GOTO 6200 

6900 IF zaz=50 THEN 6003 

6901 GOSUB 20500:h=zaz 

6902 zx(h)=x*2:zy(h)=y*2:zsx(h)=xs:zsy(h)= 
ys:zsz(h)=zsz:zna *(h)=zna*:z*(h)=z* 

6903 zaz=zaz+1:GOTO 6003 

6950 IF 21=0 THEN 6003 

6951 zl= zI-1:z*=LEFT*(z*,zI):GOTO 6003 

7000 CLS:PR I NT "drucken":INPUT "wirklich ( 
j):";a*:CLS 

7001 IF a*<>"i" THEN 990 

7004 (NPUT "Bild von Disk einbinden ?";a*: 
CLS: IF a*< >"j" THEN 7010 

7005 INPUT "Bitte Namen e i ngeben:";a*:CLS: 
IF a* = "" OR LEN(a*)>12 THEN 7005 

7006 name*=a* 

7007 INPUT "Bereich auf Blatt (l-3):";a*:C 
LS:a=VAL(a*):IF a<l OR a>3 OR a*="" THEN 7 


[1501] 
(13863 
(11443 

[45763 

[5263 

(8283 

(20403 

[29123 

(1623] 
[38573 

C 3953 3 

[109] 

[51983 


007 

7008 bereich=a 

7010 INPUT "Anzahl Ausdruecke:";a*:CLS:a=V 
AL(a*) : I F a<l OR a* = "" THEN 7010 

7011 FOR anzah1=1 TO a 

7012 GOSUB 30100 

7013 PRINT #8,CHR*(27):PR I NT #8,CHR*<27 
) "C'CHRS ( 0 ) CHR* ( 22 ) ; :CALL &A293 

7014 CLS #4: IF bereich=l THEN GOSUB 30200: 
GOTO 7020 

7015 yo=700:yu=504:GOSUB 7100 

7020 IF bereich = 2 THEN GOSUB 30200:GOTO 70 
30 

7021 yo=504:yu=307:GOSUB 7100 

7030 IF bereich=3 THEN GOSUB 3O200:G0T0 70 
40 


[337 3 
(44283 

[4763 
[10553 
[4744 3 

(29263 

[15403 
[27143 

(21393 
[1832] 
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7031 yo=308:yu=112:GOSUB 7100 [1291] 

7040 yo=112:yu=0:POKE &A261,175:GOSUB 7100 [37393 
: POKE &.A261.7 

7045 CALL S.A2F7 [7343 

7050 NEXT anzah1:RUN [18083 

7100 CLS #4j 1F baz=0 THEN 7200 [15303 

7101 FOR nr=0 TO baz-1 [1371] 

7102 x=bx(nr):y=by(nr):xs=bsx(nr):ys=bsy(n [3794] 
r):bna*=bna*(nr) 

7103 GOSUB 20000:bnr=bnr<nr):GOSUB 20000 [3236] 

7104 hy=y-bby*ys:IF hy>yo OR y<yu THEN 719 [I486] 
9 

7105 POKE &A600, x s : POKE 8<A601, ys : POKE &A60 (2830] 
2,bbx:POKE fcA603,bby 

7106 MOVE x,400-(yo-y)»2 [1108] 

7107 CALL &9F00,bof +2 [683] 

7199 NEXT nr [458] 

7200 !F zaz = 0 THEN 7300 [13863 

7201 FOR nr=0 TO zaz-1 [1391] 


7203 x=zx(nr):y=zy<nr):xs=zsx(nr):ys=zsy(n [40213 
r):zna*=zna*(nr) 

7205 GOSUB 20100:zsz=zsz(nr):GOSUB 20100:z [29943 
t=zt(nr) 

7207 hy=y-zby*yg:]F hy>yo OR y<yu THEN 729 [2714] 
9 

7209 POKE &A600, xs:POKE &A601, y s : POKE &A60 (24143 
2, zbx : POKE &<A603,zby 


7211 FOR 1=1 TO LEN(z*) [5953 

7213 MOVE x+(i-l)*zbx»8*xs,400-(yo-y)*2 [24293 

7215 CALL &9F00,zof +2 +(ASC(MID*(z*,i,1))-3 [30503 
2)*zbx*zby 

7217 NEXT [3503 

7299 NEXT nr (4583 

7300 CALL &A220 [6093 

7301 RETURN C5553 

8000 CLS#1:PRJNT#1,"x:x-zentrieren":PR I NT# [112423 
1»"y:y-zentrieren":PRINT#l,"s:Bild setzen" 

:PR 1NT#1,"1:BiId )oeschen":PRINT#l, "q:zuru 
eck" 

8001 GOSUB 20400:CLS:PR]NT"Ihre Wahl:" [24893 

8002 a* =INKEY$:1F a*="”THEN 8002 [14143 

8003 GOSUB 20400:ON INSTR("xyslq",a*)GOTO C28823 
8010,8011,8020,8050,100 

8004 GOTO 8001 C3153 

8010 x=INT((320-(bbx*xa*4>)/2):GOTO 8001 (30073 

8011 y = 349- I NT < (350- l bby*yg/2) )/2) .-GOTO 80 (17603 
01 

8020 IF baz=50 THEN 8001 [9013 

8021 h=baz:bx(h)=x*2:by(h)=y*2:bsx(h)=xs:b C50673 
gy(h)=ys:bnr(h) =bnr:bna*(h)= bna* 

8022 ba 2 = baz+l .-GOSUB 2O4OO:GOT0 6001 [14533 

8050 IF baz=0 THEN 8001 [9593 


8051 CLS:PRINT"loe3chen":PRINT"(C -"jbaz-1 0628] 

INPUT a*:CLS 

8052 a=VAL(a*) : I F a*=""OR a<0 OR a>baz-l 0 [3081] 
R a<>1 NT<a)THEN 8001 

8053 x=bx(a>/2:y=by(a)/2:xs=bsx(a):ys=bsy( (40573 
a>:bna*=bna$(a) 

8054 GOSUB 20000:bnr=bnr<a)rGOSUB 20000 (28873 

8055 GOSUB 20600:GOSUB 20400 [22893 

8056 FOR 1=a TO bmax:bx(l)=bx(i+1):by(1)=b (80183 
y(i + l>:bsx(i)=bs x (1 + 1 ):bsy(i)=bsy(i+l>:bna 

*(i)= bna*(i+1):bnr(i)=bnr(i+l):NEXT 

8057 baz=baz-1:GOTO 8001 (15373 

9000 CLS:PR 1NT"Neustart":PRlNT"wirklich <j [39193 
) ?" 

9010 z=1: a* = "":WH 1 LE a*=""AND zz<200:a*=lN [2699] 
KEY*:zz=zz+1:WEND 

9020 PRINT a*;:IF a*<>"j"THEN CLS:GOTO 990 (13001 
9030 z=l:a* = "":WHILE a* = ""AND zz<200:a* =IN C26993 
KEY*:zz=zz+1:WEND 

9040 IF a*OCHR* ( 13) THEN CLS:GOTO 990 (29083 

9050 RUN (2433 

10000 CLS:PRINT"Exit":(NPUT"wirklIch (j>"; [39073 
a*:CLS:iF a*<>"j"THEN 990 

10010 CLS#2:PR INT#2,"Wohin ?":PR INT*2." 1. (93333 

:BAS IC":PR INT#2," 2. :BED1 TOR":PR INT#2," 3. 

:ZEDITOR":PR INT#2," 4. :RED I TOR":PR1NT#2,"N 
ummer : " 

10020 a*= 1 NKEY* : I F VAL(a*X.l OR VAL(a9)>4 [18593 

THEN 10020 

10030 CLS#2:0N VAL(a*)GOTO 10040,10050,100 [22263 
60,10070 

10040 MODE 2:END [11203 

10050 RUN"BEDI TOR" [6803 

10060 RUN"ZEDI TOR" [9043 


10070 RUN"REDI TOR" 

20000 iF bnab*Obna*THEN PRINT an* ; : T AG : MO 
VE 0,16: PR I NT tex t* ; bna* ,-: GOSUB 30000 : OPEN 
OUT bna*:LQAD bna*,&6F80:bnab*=bna*:bnr=0: 
bmax=PEEK(&6F80):CLOSEOUT:MOVE 0,16:PRINT 
text*;bna*;:TAGOFF:PR I NT aus*; 

20010 bof =UNT(PEEK(&6F81 + bnr *2 >+PEEK(&6F82 
+ bnr«2> *256) 

20020 bbx = PEEK(bof):bby=PEEK(bof+1>:RETURN 
20100 IF znab$Ozna*THEN PFMNT an* j : T AG : MO 
VE 0,16 : PR I NT text* ; zna* ;: GOSUB 30000.-OPEN 
QUT zna*:LQAD zna*,&4000:znab*=zna*:zgz=0: 
zmax = PEEK(S<4000) : CLOSEOUT : MOVE O, 16:PRINT 
text*;zna*;:TAGOFF:PR!NT aus*; 

20110 zof=PEEK(&4001+zsz*2)+PEEK(&4002+zsz 
*2)»256-12160 

20120 zbx =PEEK(zof):zby = PEEK(zof+ 1):RETURN 
20200 CLS#1:PR I NT#1,"1:B1Id laden ( ";bna* 
.)":PRINT#l,"x:Breite ( " ; xs ; " ) " : PR ! N 

Ttl, "y : Hoehe ('*; ys ; " > " : PR I NT# 1, "n : Bi l 

dnummer <";bnr;")":PR I NT#1,"t:Text":PR I NT# 
1,"d:drucken":PR I NT#1,"b:bearbeiten":PR 1 NT 
#1,"s:Neustart":PRINT #1,"e:Exit":RETURN 
20300 CLS#1:PR INT#1,"1:Satz laden ( ";zna* 
)":PRINT#1,"x:Brelte ("jxs ; ")":PR IN 

T#l."y:Hoehe («;ys;")":PR I NT#1,"n:Sat 

znummer (";zsz;")":PRINT#l,”r:Bild":PRINT# 
1,"b:bearbelten":RETURN 

20400 PRINT an* j:MOVE x,y:DRAWR bbx*xs*4,0 
:DRAWR 0,-bby*ys/2:DRAWR-bbx*xs*4,0:DRAWR 
0,bby*ys/2:PRlNT aus*;:RETURN 
20500 PRINT an*;:MOVE x,y:DRAWR zbx»xs*4*z 
1,0:DRAWR 0,-zby*ys/2:DRAWR-zbx*xs*4*zl,0: 
DRAWR 0,zby*ys/2:PRlNT aus*;:CLS:PR I NT z*; 
:RETURN 

20600 POKE &A600,1:POKE &A601,1:POKE &A602 
, bbx : POKE 8<A603,bby 

20610 CLS#2:MOVE 350,160:CALL &9F00,bof+2: 
RETURN 

20700 POKE &A60Q,1:POKE &A601,1:POKE &A602 
, zbx: POKE &.A603, zby 

20710 CLS#2:MOVE 350,160:CALL &9FOO,zof+2+ 
33*zbx*zby 

20720 MOVE 350+zfcx*8,160:CALL &9F00,zof+2+ 
34*zbx*zby 

2Ü73Ö MOVE 350+zbx*16,160:CALL &9F00,zof+2 

+35*zbx*zby 

20740 RETURN 

30000 WHILE INKEY* O"":WEND:WH I LE INKEY*=" 
":WEND:RETURN 

30100 PRINT an*;:TAG:MOVE 0,16:PRINT "Druc 
ker bereitmachen!";:GOSUB 30000:MOVE 0,16: 
PRINT "Drucker bereitmachen!";:TAGOFF:PRIN 
T aus*j:RETURN 

30200 PRINT an*j:TAG:MOVE 0,16:PRINT text* 
;name*;:GOSUB 30000:MOVE 0,16:PRINT text*; 
name*;:TAGOFF:PR I NT aus*;:LOAD name*,&C000 
30210 CALL SiA220 
30220 RETURN 

65000 CLS#1:PRINT#1,"Rahmen waehIen:":h*=” 
Bitte Hauptdiskette":PRINT an*;:TAG:MOVE 0 
,16:PR I NT h*;:WH 1 LE INKEY* = "":WEND:MOVE 0, 
16:PR I NT h*;:TAGOFF;PRINT aus*; 

65001 LOAD"s i gn2. bi n" , &.9F00: LOAD"border . O" 
,&4000:LOAD "gh5.bin" 

65002 CLS:INPUT"Nummer (0-51):";a* 

65003 CLS:a=VAL(a*>:IF a<0 OR a>51 OR a* = " 
"THEN 65002 

65004 POKE &A600,2:POKE &A601.1 

65005 CLS#3:adr = S«4000 + a*l<220 

65006 MOVE 0,168:CALL &9F00,adr:MOVE 34,16 
8:CALL &9F00,adr+272:MOVE 68,168:CALL &9F0 
0,adr+68 

65007 MOVE 0,112:CALL &9F00,adr+340:MOVE 6 
8, 112:CALL «.9F00, adr+408 

65008 MOVE 0,56:CALL &9F00,adr+136:MOVE 34 
,56:CALL &9F00,adr+476:MOVE 68,56:CALL &9F 
00,adr+204 

65009 PR INT"okay <j>:" 

65010 a*=INKEY*:IF a*=""THEN 65010 ELSE IF 
a*<>"j"THEN 65002 

65011 CLS#1:CLS#3:CLS:PRINT"einen Moment ! 


(2583 
C109453 


C32823 

[10793 
[127493 


[34413 

(23583 
(137813 


[118493 


[63853 

[69043 

(21663 

(21693 

(34643 

(27493 

(23343 

(30673 

(5553 

(37773 

[85293 


(65423 


(609 3 
(5553 
[102403 


(51153 

[14183 

[29673 

(892 3 
(8973 
(60483 


(46603 

[52793 


(13163 
(36193 

[17683 


65012 FOR 1=0 TO S<21F:P0KE &A000+1, PEEK (ad (25023 
r+i):NEXT 

65013 CLS:LOAD”s1gnO.bin",&9FOO:RETURN (24363 


■ 


8’87 PC 127 









i~Programm 


□ 


BEPITQR 


10 MODE 2 

15 MEMORY 8>3FFF:LOAD"signO":LOAD"biid.O" 

20 PEN 0:PAPER 1:PR INT STR ING*(80," ") ; :LÜ 
CATE 30,1:PR I NT "*** BILD EDITOR «**" 

30 PRINT STRING*(80," = "); 

40 W1ND0U 20,80.3.3:W1ND0W # 1, 1, 18,20,25 : W 
iND0W#6,1,10,4,17:PEN#6.1:UIND0W#2,20,80.6 
,25:PEN*2,0:PAPER#2,1:PAPER#6,0 
50 PR INT#6,"Load Save Edit Nr. 

Inlt Nr. Clear Convert Print Tr 

ansfer Breite Hoehe Raster Exit 

NEW" 


60 ra*=" an":GOSUB 60010 

80 x = 0:y = 0:TAG:ri*=CHR*(9)+CHR*(243):le* = C 
HR*(8)+CHR*(242):up*=CHR*(11)+ CHR*(240):do 
* =CHR*(10)+CHR*(241):fe* = CHR*(88)+CHR*(224 
) 

90 GOSUB 61000 

100 a*=INKEY*:IF a*=""THEN GOSUB 61000:22= 

1:GOTO 90 

110 GOSUB 61000 

120 IF INSTR( 1 e *, a * ) O 0 THEN x=.x-zz : 22 = 22 + 
1 

130 IF INSTR(ri*,a*X>0 AND x<bx»8-zz THEN 
X = X + 22:22 = 22+1 

140 IF INSTR<up*,a*X>0 AND y>zz~l THEN y = 
y-zz:z z = z 2 +1 

150 IF 1 NSTR( do*, a* ) OO AND V'by -22 THEN y 
=y+ 22 : 22 = 22*1 


160 IF x <0 THEN y=1:TAGOFF: GOTO 1000 
170 IF INSTRife*,a*)=0 THEN 90 
180 adr = ofs + 2♦1 NT(x/8)+y*bx:bit = x MOD 8+1: 
b*=BlN$(PEEK(adr>,8) 

190 IF MID*(b*,bit,1)="0"THEN M!D*(b*,bit, 
1)="1"ELSE MID*(b*,bit,1)=”0" 

200 POKE adr, VAL( "8<X" + b*) :G0SUB S1000:G0T0 
90 

1000 LOCATE #3, 11,y+ 3:PR I NT #3,"<=» 

1010 a*=1NKEY*:IF a* = "" THEN 1010 
1020 LOCATE #3.11.y + 3:PR I NT *3," " 

1030 IF INSTR(up*.a*)<>0 AND y>l THEN y = y- 
1:GOTO 1000 

1040 IF INSTR(do*, a*) OO AND y<13 THEN y = y 
+1:GOTO 1000 

1050 IF INSTR (ri*,a*X>0 THEN 80 

1060 IF INSTR(fe*.a*)=0 THEN 1000 

1070 ON y GOTO 2000.3000,4000,5000,6000,70 

00.8000,9000,10000,11000,12000.13000, 14000 

2000 TAGOFF:PR!NT#1,"Load":INPUT#1,"Name:" 


;na*:CLS#1 


2010 IF na* ="" THEN 80 

2020 OPENOUT na*:LOAD na*,8.6F80:nr=0:GOSUB 
60010:GOTO 80 

3000 TAG0FF:PR1NT#1,"Save":!NPUT# 1 ,"Name:" 

;na*:CLS#1 

3010 IF na*=""THEN 80 

3020 OPENOUT na*:SAVE na * , b, 8,6F80,8.2F80 : GO 
TO 80 

4000 TAG0FF:PRINT#1,"Edit Nr. :":PR I NT#1,"0 
-";PEEK(&6F80 >- 1: INPUT#1,nr*:CLS#l 
4010 IF VAL(nr *)<0 OR nr* = ""OR VAL<nr*)>PE. 
EK(8.6F80)- 1 THEN 80 

4020 nr =I NT(VAL(nr*)):GOSUB 60010:GOTO 80 
5000 h=(PEEK(8,6 F80)- 1)*2 + 8<6F81:hh = PEEK(h) + 
PEEK(h+1)*256:hhh=PEEK(hh)*PEEK<hh+1)+hh+3 
:IF hhh>=40700 OR PEEK (8.6F80 )> 127 THEN TAG 
OFF:PR I NT #i,"kein p)atz":WHILE INKEY* = "": 
UEND:CLS #1:G0T0 80 

5010 PRINT #1,"Init Nr.":PRlNT #1.PEEK(&6F 
80):1NPUT #1,"wirklich ?";a*:CLS #1 
5020 IF a*<>"J" THEN 80 

5030 h=h+2:POKE h,hhh-lNT<hhh/256)*256:POK 
E h+1, I NT< hhh/256) 

5040 POKE hhh,1:POKE hhh+1,1 

5050 POKE 8,6 F80, PEEK < &6F80) + 1 : nr = PEEK ( &6F8 

0) -1 : GOSUB 60010:GOTO 80 

6000 PRINT *1,"Clear":INPUT #1,"wirklich ? 
" ja* 

6010 CLS#1:IF a* <>"j"THEN 80 

6020 h = PEEK (8,6F8i+nr*2> +PEEK ( &6F82+ nr *2) *2 

56+2:FOR 1=0 TO bx-l:FOR j=0 TO by-l:POKE 

h+i+j*bx,0:NEXT:NEXT:GOSUB 6001O:G0T0 80 

7000 PR I NT#1,"Convert":INPUT#1,"Name:":na* 

7010 IF na*=""THEN CLS#1:G0T0 80 

7020 OPENOUT na*:LOAD na*, 8,4000 

7030 PRINT#1,"Nummer:":PRINT#1."0 -":PEEK( 

4.4000) -1; : 1 NPUT# 1, nr* 

7040 CLS#1:IF VAL(nr*)<0 OR nr*=""0R VAL(n 
r * ) >PEEK (S.4000) - 1 THEN 80 


C 513 I 
£17603 
£ 43063 

£1354 3 
£70903 


(104213 


E14083 
£64453 


£9273 

£25473 

£927] 

£33363 

£2579 3 

£35763 

£4700 3 

£21603 
(8843 
£32913 

£34793 

£19493 

£ 19283 
£ 1470 3 
£ 17073 
£22703 

£34343 

£14833 
£902 3 
£48603 

£40363 

£534] 

£2974] 

£41373 

£5343 

£29563 

£63413 

£42403 

£20783 
£ 12080 3 


£43903 

£16983 

£41483 

£4733 
£50513 

£14463 

£5703 
£56813 


£36903 
£923 3 
£ 13003 
£35103 

£ 18513 


7050 hnr = I NT( VAL(nr * ) ) : hh = PEEK (8,4001 +hnr *2 £42233 
) + PEEK (8,4002 +hnr *2) *256- 12160 

7060 hx=PEEK(hh):hy=PEEK<hh+1) £26993 

7070 IF hxObx OR hyOby THEN PR!NT#l,”For £49493 
ma tf. !":WH £ LE INKEY* = "":WEND:CLS#1:GOTO 80 
7080 FOR i=0 TO bx-l:FOR j=0 TO by-l:POK£ £7594) 
ofs+i+j*bx+2,PEEK(hh+2+i+j*bx):NEXT:NEXT:G 
OSUB 60010:GOTO 80 

8000 CLS#2 : POKE &.A600, 1 : POKE 8.A601, 1 : MOVE [45443 
xof , yof : CALL 8.9F00,ofs + 2 

8010 WHILE 1NKEY*="":UEND:GOSUB 60O10:G0T0 £25103 
80 

9000 PR 1 NT#1."Transfer":PRINT#1,"von Nr.:" £48543 
: PR £ NT # 1, "0 ; PEEK(8,6F80) - 1 ; : !NPUT#l,nr* 

9010 IF VAL(nr*)<0 OR nr*=""OR VAL(nr*)>PE £42113 
EK ( &.6F80 ) - 1 THEN CLS#1:G0T0 80 

9020 hnr =I NT(VAL(nr * > > £11643 

9030 PRINT#1,"nach Nr. :":PR I NT#1."0 -";PEE £41473 
K ( 8.6F80) - 1 ; : INPUT#1, nr* 

9040 IF VAL(nr * > <0 OR nr*=”"OR VAL(nr*)>PE £42113 
EK ( 8.6F80 ) - 1 THEN CLS# 1 : GOTO 80 

9050 nr=INT(VAL(nr*>):CLS#1 £15593 

9060 h = P£EK(8<6F8l + hnr*2)+PEEK(8,6F82 + hnr*2) £28513 
*256 

9070 hh = PEEK(8,6F81+nr*2) + PEEK < S,6F82 + nr *2 ) * £22553 
256 

9080 IF PEEK ( h > < >PEEK ( hh) OR PEEK ( h+ 1 ) OPEE C65343 
K(hh+1)THEN PR INT#1,"Formatf. •":UHI LE 1 NKE 
Y* = "»•WEND:CLS#1:GOTO 80 

9090 FOR 1=0 TO PEEK(h)»PEEK(h+1):POKE hh+ £38253 
i+2,PEEK(h+i+ 2):NEXT 


9100 GOSUB 60010:GOTO 80 t11443 

10000 IF PEEK ( 8.6 F80) - 1 < >nr THEN 80 £13053 

10010 PRINT#1,"Breite":PRINT#1,"1 -";:mxb= £44383 
I NT((40701-ofs)/by/8) : IF mxb>60 THEN mxb = 6 
0 

10015 PRINT#l,mxb;:INPUT#l,mxb*:CLS#l £14713 

10020 £ F VAL(mxb*)<1 OR mxb* = ""OR VALdnxb* £37323 
)>mxb THEN 80 

10030 POKE ofs,VAL(mxbt):GOSUB 60010:GOTQ £10583 

80 

11000 IF PEEK (8.6F80) - lOnr THEN 80 £13053 

11010 PRINT#1,"hoehe":PRINT#1,"1 -";:myb=I £59273 
NT((40701-ofs)/bx):IF mvb>156 THEN mvh=l56 
11015 PRSNT#l,myb::INPUT#l,myb*:CLS#l £18283 


11020 IF VAL(myb*)<1 OR myb*=”"OR VAL(myb* £35033 
)>myb THEN 80 

11030 POKE ofs+1.VAL(myb*):GOSUB 60010:GOT C9763 
0 80 

12000 IF ra* = " an"THEN ra* = "aus"ELSE ra* = " £24813 
an" 

12010 GOSUB 60310:GOTO 80 £9903 

13000 PR I NT#1:PRJNT#l,"Exit":lNPUT#1,"wirk £30523 
I ich ?";a*:CLS#1 

13010 IF a*<>"j"THEN 80 £16983 

13020 PR I NT#1,"Wohin:":PR1NT#1." l.sBASIC" £72363 
:PR I NT#1," 2. :DES IGNER":PR I NT #1," 3.:ZEDIT 
OR":PR I NT#1," 4. :RED 1 TOR":PR I NT#1."Nummer: 


13030 a* = I NKEY * : I F VAL(a*Xl OR VAL(a*)>4 C21673 

THEN 13030 

13040 CLS#1:ON VAL(a*)GOTO 13050,13060,130 £21413 
70,13080 

13050 MODE 2 : PEN XPAPER 0 : END £19283 

13060 RUN"DESIGNER" £2273 

13070 RUN"ZEDI TOR" £904) 

13080 RUN"REDI TOR" £2583 

14000 PRINT #1,"New":PRINT #l,"loescht all £42223 

es":PR 1 NT #1,"wirklich (j)" 

14010 zaehl=0:a*="" £7573 

14020 WHILE zaehl<200 AND a*="":a*=1NKEY*: £37353 
zaehl=zaeh1+1:WEND 

14030 IF a * < >"j" THEN CLS #1:G0T0 80 £24323 

14040 PRINT #1,"j":zaehI=0:a*=" n £17923 

14050 WHILE zaehI<200 AND a*="":a*=1NKEY*: £37353 
zaeh!=zaeh!+l:WEND 

14060 CLS # 1 : 1 F a*OCHR* ( 13) THEN 80 [7733 

14070 POKE 8.6F80, 1 : POKE 8.6F81,3 : POKE 8.6F82 £42033 
,8,70: POKE 8,7003, 1 : POKE 8,7004,1 

14080 nr =0:GOSUB 6OOlO:G0TO 80 £17273 

60000 TAGOFF:CLS:PRINT" Rasterrat:" £97853 


Breite:bx;" ";:LOCATE 34,1:PRINT"H 
oehe:";by;” "::LOCATE 46, 1:PR 1NT”Nummer: 

";n r;" TAG:RETURN 

60010 of s = PEEK(8,6F8i + nr*2) +PEEK (8<6F82 + nr*2 £49363 
)*256:bx = PEEK(ofs):by = PEEK(of s + 1) 

60020 POKE 8.A602, bx : POKE 8<A603,by £16043 

60030 IF bx <15 THEN sx = 4:G0T0 60070 £10883 
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Die PC 1512 - DATABOX 

gesprochen werden. 

Die pC-Dotabox B/87 enthalt: 

1. «“SS-'SS steilen «-SÄ 

2 .2^SgKlÄ& * f B-gjjw t-SSSSS 

ÄÄ-HS? lammen,an 9 . 

ohne den Bezug* 

Basic2-Programme 

___i ncn/fif 


Basic2-Programm 

5. BRWIN dsm banalen durch'einen 2*»* 

Highscore-Datei 

Basic2-Programm 

*Ssi»=S5SsSSSS= 

fen werden soll. 

Textdatei 

mrTlp m/t Dokumentation auf Disk. 

Alle Programme mit uu* 



ie JOYCE-DATABOX 

»ui, oi ir.h für den Joyce 


®« s "*22£’" 


rtrrrr— 

beitrag) 

BIORHYTHMUS 
Bonus: Verschiebefix. 


er praktiscnen vw» 

Bonus-Programme. 

Ifll äLiUCri 

&lbGZU9• . Prp/sGn sind c 

•s&g&s&su - « 5ä»ää 

&&=**- dm^p— “““~” na * 

s D atabox-Abo kostet: 

Diskette für V2 Jahr (6 Lieferungen). ^ ^ 

miand und West-Berlin. . -/60,- dM 

3 Diskette für 1 Jahr (12 L,eferungen) 300 ^ dM 
i /n/and und \ A/es^Ber/<n■■ ^^•••••^••— 


_ ——— ~~ ..320,- DM 

p sÄSsÄi" 5 -. sm ‘' DM 

»»»C^SäC 

säÄ“ s « ». »»»s * Ab " 

Karte. 

Zahlungsweise: (Verrechnungs- 

SS£»«««** nBW mS0 “ > 


Senden S/e 

«tat-- 


Schneider PC international 

Postfach 250 - 3440 Eschwege 


























[—Programm 


60040 
60050 
60060 
60070 
60090 
601 10 


IF bx<20 THEN sx=3:GÜTÜ 60070 
1F bx <.30 THEN sx=2:G0TÜ 60070 
rat="aus": s x = 1 

IF by<39 THEN sy=8:GÜT0 60200 
IF by<52 THEN sy = 6:GÜTÜ 60200 
IF by<79 THEN sy=4:GOTO 60200 
60120 sy = 2 :rat="aus" 

60200 b4="00000000":FOR 1=1 TO sx:MiD$(b4, 
i , 1 ) = "1":NEXT 

60210 b = VAL("S<X"+b4) : IF sy = 8 THEN SYMBOL 
55,b,b, b, b 

60220 IF sy=6 THEN SYMBOL 2S5,b.b,b 
60230 IF sy=4 THEN SYMBOL 255,b.b 
60240 IF sy=2 THEN SYMBOL 255,b 
60250 z4=CHR4(255):PR 1 NT#2,CHR4<23)CHR4(1> 

; : T AG 

60260 xof=INT((480-sx*bx*8)/2)+160:CLS#2:F 
LOT 700,0,1 

60270 yof=sy*by+I NT (l320-sv*by)/2): MOVE xo 
f . yof 

60280 POKE &A6Ü0.sx:POKE &A601.sy/2:CALL & 
9F0Ö,ofs +2 

60290 MOVE xof- 1,yof+2:DRAWR sx»bx»8+2,0:D 
RAWR 0, -sy«by-4:DRAWR-sx»bx*8-2.0:DRAUR 0, 
sy* by+ 4 

60300 IF ra4="aus"THEN 60400 

60310 FOR i=0 TO bx*8:M0VE xof+i*sx,yof;DR 

AWR 0,-sy«bv:NEXT 

60320 FOR i=0 TO by:MÜVE xot,yof- 1 *sy:DRAW 

R s x * bx *8,0:NEXT 

60400 GOSUB 60000:RETURN 

61000 MOVE xof + x*sx,yof-y»sy:PR 1 NT z4; :RET 
URN 


C13043 
[22323 
C 890 3 
C17473 
[ 17663 
[ 799 3 
[584 3 
C28043 

2 C26923 


[19533 
[10883 
[9253 
[26963 

[27863 

[24533 

[19473 

(52523 


[8143 
[28013 


(23313 


(11193 

(21303 


ZEDITOR 

10 MODE 2 (5133 

15 MEMORY &3FFF:LOAD"signO":LOAD"zeichen.0 (13813 


20 PEN 0:PAPER 1:PRINT STRING4(80." ”J;:LO (4367) 
CATE 29, 1:PR I NT "«** ZEICHEN EDITOR »«»" 

30 PRINT STR ING4(80," = "); 

40 WINDOW 20,80,3,3:WINDOW #1,1,17,19.25:W 
IND0W#6,1,10,4,17:PEN #6. 1:WIND0U#2,20,80,6 
,25:PEN#2,0:PAPER#2.1:PAPER#6.0 
50 PR 1 NT#6."Load Save Edit Nr. 

Edit Zs. lnit Zs. Clear Convert Pr 

int Transfer Breite Hoehe Rast 

er Exit NEW" 

60 ra$=" an":nr=0:zs=0:GOSUB 60010 
80 x=0:y = 0:TAG:ri4 = CHR 4 l 9 > + CHR4(243) : le4=C 
HR4(8)+ CHR4I242 > :up*=CHR4l11 ) +CHR4< 240) :do 
4=CHR4(10)+ CHR4i241 > :fet= CHR4t88>+ CHR4i224 


(13543 
(65103 


[9993 3 


C13433 
[64453 


90 GOSUB 61000 [9273 

100 a$=INKEY$:lF at-""THEN GOSUB 61000:zz = [25473 
1:GOTO 90 

110 GOSUB 61000 [9273 

120 IF I NSTR (lel.aiJOO THEN x=x-zz:zz=zz+ [33363 
1 

130 IF I NSTR l r i $ , ai ) <.>0 AND x<bx*8-zz THEN [25793 
x=x+zz:zz=zz*l 

140 IF INSTRtup*,a$K>0 AND y>zz-l THEN y= [35763 
y- 2 z:zz=z 2 +l 

ISO IF INSTR(do4,a4>00 AND ytby-zz THEN y [47003 
=y*zz:z z = z z +1 

160 IF x<0 THEN y=l:TAGOFF:G0T0 1000 C21603 

170 IF 1NSTR(f e$,a4)=0 THEN 90 (8843 

180 adr = ofs+2+I NT(x/8>+v*bx+ nr«bx*by:bit = x [49513 
MOD 8+1:b4=BIN4(PEEKtadr),8) 

190 IF MID4<bi.bit,1)="0”THEN MID4<b4,bit, [34793 
1)="1”ELSE MID*(b$,bit,13 ="O" 

200 POKE adr , VAU "£-X" + b4 3 :GOSUB 61000:GDT0 C19493 
90 

1000 LOCATE #3.ll,y+3:PRINT #3,"<=" [19283 

1010 a$ = lNKEY4: IF a$ = "" THEN 1010 [14703 

1020 LOCATE #3,11.y+3:PRiNT #3," " [17073 

1030 IF INSTR(up4,aS)<>0 AND y>l THEN y=y- (22703 
1:GOTO 1000 

1040 IF I NSTR(do4. a$ ) <.>0 AND y<.14 THEN y = y [37843 
+1:GOTO 1000 

1050 IF I NSTR < r i$ . a4 ) OO THEN 60 [14633 

1060 IF INSTRtfe$.ai)=0 THEN 1000 [9023 

1070 ON y GOTO 2000,3000,4000,4500.5000,60 (48213 
OO,7o o0,8000,9000,10000.11000,12000. 13000, 

14000 

2000 TAGOFF:PR I NT#1."Load": INPUT#1."Name:" [40363 
;na 4:CLS#1 


2010 IF na4="" THEN 80 [5343 

2020 OPENOUT na4:LOAD na$,&6F80:nr=0:GOSUB [2974] 
60010:GOTO 80 

3000 TAG0FF:PRINT#1,"Save":1NPUT#1,"Name:" [4137] 
;na$:CLS#l 

3010 JF na 4=""THEN 80 (534 3 

3020 OPENOUT na4:SAVE nat,b,&6F80,&2F80:GO [29563 
TO 80 

4000 TAG0FF:PRINT#1."Edit Nr. :":PR I NT#i,"0 C51813 
- 58":INPUT#l,nr4:CLS#l 

4010 IF VAL < nr $ 3 <0 OR nr4 = ""0R VAL(nr*3/58 (34693 
THEN 80 

4020 nr=INTtVAL(nr4)):GOSUB 60G10:GOTO 80 C2078] 

4500 TAG0FF:PR1NT#1,"Edit Zs:":PR I NT#1,"0 (52523 

;PEEK(&6F803-1:INPUT#1,zs4:CLS#1 
4510 IF VAL< zs4)<0 OR zs4 = ""0R VALizs43>PE (4298 3 
EK(&6F80)-1 THEN 80 

4520 zs=lNT(VAL(zs4)):GOSUB 60010:G0T0 80 (12353 

5000 h= ( PEEK l &6F60 J — 1 ) «2+&6F61 : hh=PEEKi h) + (104863 
PEEK(h + 1>*256:hhh = PEEKChh3«PEEK(hh+1)«59+h 
h + 3 : I F hhh>=40700 OR PEEK < &.6F80 3 .>31 THEN T 
AG0FF:PR!NT#1,"kein platz":WHlLE INKEY $ = "" 
:WEND:CLS#1:GOTO 80 

5010 PR ! NT# 1, "lnit Zs . " : PR I NT# 1, PEEK < &cbF80 [47993 
3:INPUT#1."wirklich ?":a4:CLS#1 

5020 IF a 4 < >"j"THEN 80 [16983 

5030 h = h + 2:POKE h.hhh-I NTlhhh/ 2563*256:POK (4lu8J 
E h+1. I NT Chhh/256) 

5040 POKE hhh,1:POKE hhh+1,1 [4733 

5050 POKE &6F80 , PEEK l &6F80 ) + 1 : Zs=PEEKi&6F8 [51523 
03-1:nr=0:G0SUB 60010:GÜTÜ 80 

6000 PR I NT#1,"C1ear": INPUT#1.”wirkticn ?"; [14463 
ai 

6010 CLS# 1 : 1 F a 4 <. > '* j "THEN 80 (5703 

6020 h = PEEKcS<6F8l + Zs*2 / +PEEK (&6Fä2+Zs*2)*2 [9471] 
56+nr«bx«by+2:FOR i=0 TÜ bx-l:FÜR i=ü TÜ b 
y-1:POKE h+i+ i»bx.O:NEXT:NEXT:GOSUB 60010: 

GOTO 80 

7000 PR I NT#1."Convert": INPUT#1,"Name:";nai [3690 3 
7010 IF na 4 =""THEN CLS#1:GOTO 80 [9233 

7020 OPENOUT nai : LOAD nai, 8,4000 (13003 

7030 PR I NT#1, "Satz : " : PR I NT#1 , "O -";PEEK(S<4 [44743 
000 3- 1; : INPUT #1,Zs4 

7040 CLS# 1 : IF VAHZs4)<0 OR zs$ = ""OR VALiZ t37383 
s4 ) > PEEK i &4000 ) - 1 THEN 60 

7045 PR I NT#1, "NummgrINPUT#1. "0 - S8:";n C51463 
r$:CLS#1: IF VAL(nr43<0 OR VAL(nr4>>58 OR n 
r4 = ""THEN 80 

7050 hnr=INT(VALInri)):hzs=INT(VAL<zs43):h (55383 
h = PEEK < &4001 +hzs«23+F'EEK(&4002 + hzs«2> «256- 
12160 

7060 hx=PEEKihh):hy=PEEK(hh+1) (26993 

7070 IF hxObx OR hyOby THEN FRlNT#l,"For (49493 
matf.!":WH1LE INKEYS="":WEND:CLS#1:GOTO 80 
7080 FOR i =0 TO bx-l:FOR .1=0 TO by-l:POKE (69493 
ofs + i + _i»bx+2+nr«bx*by,PEEK(hh + 2+i + i»bx + hnr 
«bx«by):NEXT:NEXT:GOSUB 60010:GüTO 80 
8000 CLS#2 : POKE &A600.1:POKE 8< A601 . 1 : MOVE (48343 
xof,yof :CALL &<9F00,ofs + 2+nr*bx*by 

8010 WHILE INKEY4 = "":UEND:GOSUB 60OJG:G0T0 (25103 
80 

9000 PR I NT #1,"Transfer":PRINT#1,"von Satz: £53193 
":PR1NT#1,"0 -”:PEEK(&6F80 1 - 1: : INPUT#1.zsi 
9010 IF VAL(zsi)<0 OR zsi=""OR VAL(zs4j>PE (55403 
EK(&6F803- 1 THEN CLS#1:GOTO 80 

901S PR INT#1."nummer:”:INPUT#1,"0 - 58:":n (60373 
r 4 : CLS #1:IF VALlnrtXO OR VALinr43>56 ÜR 
nr 4=""THEN 80 

9017 hzs=I NT(VAL(zs4>) (9383 

9020 hnr=INT(VALinri)3 (11643 

9030 PRINTtl,"nach Satz:":PR I NT#1,"0 -";PE (50513 
EK(&6F80J- 1: : INPUT#1,zsi 

9040 IF VALlzs4)<0 OR zs4=""0R VALlzs»)>PE (55403 
EK(&6F803- 1 THEN CLS#1:GOTO 80 

9045 PR I NT#1,"nummerINPUT#1,"O - 58:";n (60373 
r 4 : CLS #1:IF VALlnrtXO OR VAL(nr4)/58 OR 
nr 4 = ""THEN 80 

9047 zs=I NT(VALizsi)3 [6193 

9050 nr=1 NT(VALinr4) ) (13143 

9060 h=PEEK(&6F8l+hzs*2>+PEEK<&6F82+hzs*23 (25903 
«256 

9070 hh = PEEKl&c6F8l+zs*2; +PEEK(&6F82+zs*2) * (1922) 
256 

9060 IF PEEK (h)OPEEK(hhiOR PEEK ( h+1 ) <■ >PEE (65343 
K ( hh+ 1 ) THEN PRINT#1. "Formatf . ":WH1LE INKE 
Y4="":UEND:CLS#1:GOTO 80 

9090 FOR i=0 TO PEEK(h3«PEEK(h+1):POKE hh+ (66093 
i+ 2 + nr * PEEK(h3«PEEK(h+13.PEEK(h+i+2+hnr«PE 
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E< h ) *PEEK ( h+ 1) ) : NEXT 

5lOü GOSUB 60010:GOTO 60 C1144J 

iOOOO IF PEEK (&6F80)- 1< >zs THEN 80 [12893 

::C10 PR I NT#1,"Breite n :PR!NT#1, "1 -";:mxb= [48183 
(40701-ofs)/S9/by) : IF mxb>7 THEN mxb = 7 
i:C15 PR INT#1,mxb; : !NPUT#1,mxbi:CLS#1 [14713 

- :020 IF VAL(mxb$)<1 OR mxb$=""OR VALtmxb* [37323 
•-xb THEN 80 

10030 POKE ofs,VALunxb*):GOSUB 60010:G0TQ [10583 


IICOO ! F PEEKU<6F80; -lOzs 
IIOIO PR I NT#1, "hoehe":PR I NT 
‘■7 . ( 40701 -ot s )/59/b x ) : 1 F my 
9 

11015 PRINT#l,myb;:INPUTH1. 
.1020 IF VAL(myb*)<.l OR myb 
i>myb THEN 80 

11030 POKE ofs + 1,VALimybi): 

0 80 

12000 IF rai=" an"THEN rat= 
an” 

12010 GOSUB 60320:GOTO 80 
13000 PRINT#1:PRINT#1,"Exit 
- ich ?";a$:CLS#1 
13010 IF a $ <>" 1 "THEN SO 
13020 PR I NT#1,"Uohin ?":PRI 
" : P R I N T # 1 ," 2.:DESIGNER":PR 
TOR":PR|NT #1, " 4.:REDIT0R": 


THEN 80 

#1,”1 ;:myb=I 

b>79 THEN mvb=7 

mvb$ : CLS H1 
$ = ""0R VAUmybi 

GOSUB 60010:GOT 

"aus"ELSE ra$^" 

INPUT #1,"wirk 


NT # 1 ," 1. : BASIC 
1 NT#1," 3. :BEDI 
PRI NT#1, "Nummer 


13030 ai= I NKEY $ : I F VALlatXl THEN 13030 
13040 ON VAL(a $ ) GOTO 13050,13060,13070,130 
30 

13050 MODE 2:PEN 1:PAPER 0:END 
13060 RUN"DESIGNER” 

13070 RUN"BEDITGR" 

13060 RUN"RED1 TOR” 

14000 PRINT #1."New":PRiNT #l,"ioescht all 
e s":PR|NT #l."wirkl ich ?" 

14010 zaeli I =0 : a $ = " " 

14020 WHILE a $ = "" AND zaeh t <200:a$=INKEY$: 
zaehI= zaehI+ 1 :WEND 

14030 IF a $ < > " j " THEN CLS #1:G0T0 80 
14040 PRINT #1, " j":zaehl=0:a« = "" 

14050 WHILE a* = " u AND zaehI<200:ai=1NKEY$: 
zaehI= zaehI + 1:WEND 

14060 CLS # 1 : l F a*OCHR$(13) THEN 80 
14065 POKE S.6F80, 1 : POKE &6F81,3 : POKE &6F82 
, &i70 : POKE &.7003, 1 : POKE S-7004,1 
14070 zs=0:nr=0:GOSUB 60010:GDT0 80 
60000 TAGOFF:CLS:PR I NT" Raster:";rat:" 
brelt:"ibx j" "; :LOCATE 28, 1:PR I NT"hoch 

:";by;" ":LOCATE 39. 1:PR I NT"Nr:";nr;"[" ; 

CHR$(nr + 32) ;" ] ";:LOCATE 50, 1:PR INT"Satz: 
";zs:TAG:RETURN 

60010 of s=PEEK(&6F61+zs*2>+ PEEK Ck6Fe2 + zs*2 
> *2S6:bx=PEEK(of s 1 :by = PEEK(ofs+1) 

60020 POKE &A602, bx : POKE £*A603,by 
60030 sx=8 

60040 IF by '.20 THEN sy=16:G0T0 60200 
60050 IF by<22 THEN sy=l4:G0TQ 60200 
60060 IF by<26 THEN sy=12:GOTO 60200 
60070 IF by<32 THEN sy=10:G0TÜ 60200 
60080 JF by<40 THEN sy = 8:G0T0 60200 
60090 IF by<53 THEN sy=6:G0TD 60200 
60100 sy=4 
60200 b = 255 

60210 IF sy =• 16 THEN SYMBOL 255 , b , b , b , b , b . b 
, b, b 

60220 IF sy =14 THEN SYMBOL 255,b, b,b,b,b b 
, b 

60230 IF sy=12 THEN SYMBOL 255,b.b.b,b.b.b 
60240 IF sy = 10 THEN SYMBOL 255.b,b,b,b.b 
60250 IF sv=6 THEN SYMBOL 255,b,b,b,b 
60260 IF sy=6 THEN SYMBOL 255,b,b,b 
60270 IF sy=4 THEN SYMBOL 255,b,b 
60280 z$=CHR 1.(255) : PR I NT#2, CHR* C 23 ) CHR 4 (1 ) 
; : TAG 

60290 xof=INT((480-sx*bx*8>/2)+160:CLS#2-P 
LOT 700,0,1 

60300 ycf =sy*by+I NT((320-sy«by)/2 ) :MOVE xo 
f , yof 

60310 POKE 8.A600. sx:POKE 8-A601 , sy/2 :CALL S< 
ÖFOO. ofs+2 + nr-#bx»by 

60315 MOVE xof-l.yof+2:DRAWR bx*sx»8+2,0:D 
RAWR 0,-by*sy-4:DRAUR-bx*sx*8-2,0:DRAWR 0, 
by * sy + 4 

60317 IF ral="aus" THEN 60400 

60320 FOR i=0 TO byrMOVE xof,yof-i*sy:DRAW 


[1289J 
[5290) 


[1828) 
(3503) 


[976] 
(2461) 


[1147) 
[3052] 


[1698] 
[6120] 


[1459 J 
[21163 

C1928] 

[227] 

[680] 

[258] 

[4114] 

[757] 

C31263 

[24323 
[1792] 
[31263 

[ 7733 
C4203] 

( 1448) 

[12045] 


[ 3374 ] 

[1604] 
[ 1573 
[9933 
[1945) 
[967 ] 

[1741 ) 
[1387J 
[1780] 
[ 165 ) 
[5613 
[2694] 

[1935) 

[ 2101 ) 
[1774] 
C11383 
[19533 
[1088] 
C2696) 

[2786 ) 

[2453] 

[2562] 

[2896] 


[ 01 4 J 
(2331] 


BASIC 

COMPILER 

Superschneller Real-BASIC-Compiler 
malOfirM. für alle CPCs und JOYCE 

- Professionelles Komplettsystem mit Editor, Compiler und 
Runtimesystem 

- Datentypen Real {7-stellig, EH -38). Integer(-32768.+32767), Cardinal (0 65535), 
Byte (0..255) und String (Länge 0 255) 

- Alle Standardbefehle/Funktionen (zB READ/DATA, FOR/NEXT, DIR und SIN(x), 
MIDS, RND) inkl Fehlerbehandlung (!) und <ESC>/<ST0P>-Unterdrückung 

- n-dimensionale Arrays 

- Beliebig lange Variablennamen möglich 

- Strukturierte Programmierung mit REPEAT UNTIL, WHILE WEND, IF ELSE 
IF..END IF, DO END DO, LOOP END LOOP etc 

- Labels statt Zeilennummern, z B GOTO menu statt GOTO 3760 

- Extrem schnell: etwa 1800- 1900 Realmult's, 6500-7500 Cardinalmult's 330'000 
GOTO's; allgemein etwa Faktor 5-1000 

- Sequentielle und Randomdateien (Random nicht CPC 464 CAS) 

- Direkte Grafikunterstützung (auch auf JOYCE!) 

- Spezialbefehle, wie z b freien Speicher auf Disk ermitteln 

- Einbindung von Maschinenroutinen leicht möglich 

- Leistungstarker und schneller Editor 

- Sehr große Programme (über 2200 Zeilen auf JOYCE/6128, über 800 auf 664/464 
Disk, auf 464 CAS etwas weniger) möglich durch Auslagerung des Editors und 
Compilers auf Disk während des Kompilierens und durch Kompilation auf Disk 

- Geeignet für kommerzielle Programmierung 

- Genau auf den jeweiligen Rechner abgestimmt 

- Demoprogramme werden mitgeliefert (nicht für CPC 464 CAS) 

- Auf JOYCE auch Mausunterstützung (Reisware/ISS Maus) 
unverbind. Preisempf.; CPC-Version 99- DM 

JOYCE-Version 139,- DM 

BIALKE - BERENDSEN - REIMANN 

-Software- 

Beimoorweg 2 • D-2070 Ahrensburg 
'S? 041 02/439 40 



COMAC-KASSE am Strand 


Der Einsiedler legte zufrieden die letzte PC Schneider International 
aus der Hand. Die Review von COMAC-KASSE einem «gelungenen 
Programm zur Einnahmen-Uberschußrechnung». hatte Robinson 
bestätigt, was er längst schon wußte, auch ihm war «kein Programm 
dieser Anwendung ms Haus gekommen mit dem sich schneller und 
komfortabler arbeiten- ließ «Bei COMAC-KASSE wurde in Sachen 
Handbuch Vorbildliches geleistet» Robinson nickte; er freute sich 
schon auf die kommenden COMAC-Programme. So interessierte ihn 
das Leistungsverzeichnis für Architekten + Ingenieure, COMAC-LV. 
da eine Ausschreibung für neue Hutten ms Haus stand. Robinson 
hatte die richtige Software auf seiner einsamen Insel. 

COMAC-KASSE (Handbuch + Diskette) DM 128.- 
Demo-Diskette + Handbuch: DM 35,— 

COMAC-LV (Handbuch + Diskette) DM 398.— 
Demo-Diskette + Handbuch: DM 45.— 

CMZ-Verlag Borgswiese 9 11 4650 Gelsenkirchen 2, Tel 0209 777896 
f ragen Sie auch nach unserem PC Sollware Prospek! 


HIER SIND ZWEI NACHRICHTEN FÜR SIE. 
Eine gute und eine schlechte. 


Die gute: 

Kubus ist die Büroverwaltung lur Ihren PC, die sich 
Ihrem Büro perfekt anpaßt und mit Ihrem Unterneh¬ 
men wächst 

Die schlechte: 

Weil Sie selber bestimmen, was Kubus kann und 
kostet, bleibt es Ihr Problem, was Sie mil dem 
gesparten Geld und der gewonnenen Zeit anfangen 

Verlangen Sie auch die Gratis Info: Joyce Software und Individual¬ 
losungen Schreiben Sie dem Büro für Software-Entwicklung, Sonnenstr 43, 
5270 Gummersbach 

Oder rufen Sie einfach an: 02261/65434 



kubus 
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R s x * b x *8,Ü:NEXT 

50325 FOR i=0 TO bx*8:MÜVE xo+ i *sx+xoi,yof 123323 
:DRAWR 0,-sy*by:NEXT 

50400 GOSUB 60000:RETURN t11193 

51000 MOVE xot + x*sx,yot-y«sy:PR I NT z*::R£T C21303 
JRN 


t 11843 

[ 19283 
[ 14703 
C17073 


REDITOR 

10 MODE 2 [5133 

15 MEMORY &3FFF:LOAD"sign2":LOAD"border.0” C22523 
20 PEN 0:PAPER 1:PR1NT STR1NG*(80," ");:LO C53783 
CATE 30,1:PRINT"*** RAND EDITOR ***" 

30 PRINT STR I NG* (80. " = " ) ; C13543 

40 WINDOW 20,80,3, 7:W I NDOWttl, 1, 17, 19,25:WI C5827] 
ND0W#6,1.10,4,17:PEN#6,1;PAPER#6,0:WINDOW# 

2,20,80,6,25:PEN#2,0:PAPER#2,1 

50 PRINT#6,"Load Save Print [66201 

Edit Nr. Edit Rd. Clear Transfer Ra 

ster Exit NEU" 

60 ra* = " an":nr=0:rd = 0:GOSUB 60010 [ 14873 

80 x=0:y=0:TAG:ri*=CHR*<9)+CHR*(243):le*=C [64453 
HR* <8)+CHR*(242):up*=CHRS(11)+ CHR*(240) :do 
* = CHR *(10)+ CHR*(2a1) :fe*=CHR*(88)+ CHR*(224 
) 

90 GOSUB 61000 C9273 

100 at=INKEY *: IF a» = ""THEN GOSUB 6l000:zz= [25473 
1 : GOTO 90 

110 GOSUB 61000 [9273 

120 I F 1NSTR(lei,a* > <>0 THEN x=x-zz:zz=zz+ [33363 
1 

130 IF INSTR(ri$,a*)< >0 AND x<17-zz THEN x [39S63 
= x + zz:zz = z z+ 1 

140 IF INSTR(up*,a*)<>0 AND v)zz-l THEN y= [35763 
y-zz:zz = zz*-l 

150 IF INSTR(do*,a*)wO AND y<28~zz THEN y C35153 
= y + zz:zz=zz+1 

160 IF x < 0 THEN y=1:TAGOFF:GOTO 1000 C21603 

170 IF 1NSTR(fel,a$)=0 THEN 90 [8843 

180 adr = ofs+ nr*66+x*4t I NT(y/7) :byte* = BIN*( [24723 
PEEK(adr),7):bit=y MOD 7+1 

190 IF MlD*(byte*,bit,1)="0"THEN MID*(byte C34793 
$ , b i t, 1 )="1"ELSE M I b$(by te *,b i t, 1)="0" 

200 POKE adr , VAL( "&,X"+byte* >: GOTO 100 
1000 L0CATES3, 11,y+ 3:FR 1NT#3,"< = " 

1010 a* = INKEY *: 1F a* = ""THEN 1010 
1020 LQCATE#3, 11 ,y+ 3:PR INT#3," " 

1030 IF I NSTR (up*,a*)v>0 AND y>l THEN y = y- [22703 
1:GOTO 1000 

1040 IF lNSTR(do$,a*)<>0 AND y<10 THEN y=y C3993J 
+1:GOTO 1000 

1050 IF JNSTR(ri*,a*)<>0 THEN 80 [14833 

1060 IF iNSTR(f e*,a*)=0 THEN 1000 (9023 

1070 ON y GOTO 2000,3000,4000.5000,6000,70 [39143 
00,8000,9000,10000,11000 

2000 PRINTttl, "Load": INPUTttl. "wirk! ich ?":a 
*:CLS#1 

2010 IF a*<>"j"THEN 1000 

2020 LOAD"border . 0" , 8-4000 :nr=0:rd=0: GOSUB 
60010:TAGüFF:GOTO 1000 

3000 PRINTttl , "Save”: INPUTttl, "wirkl ich ?";a 
*:CLS#i 

3010 IF a* <>"j"THEN 1000 
3020 SAVE"border.0",b,&4000,8<5F00:G0TQ 100 [26163 
0 

4000 CLStt 2 : POKE &-A600,2 : POKE &A601.1 
4010 MOVE 300 , 256 : CALL &.9F00 , of s : MDVE 334, 

256 : CALL 6-9FOO, of s + 272 : MOVE 368,2S6:CALL 8, 

9F00,ofs+68 

4020 MOVE 300,200:CALL &9F00,ofs+340:MOVE 
368,200 : CALL &-9F00 , of s + 408 
4030 MOVE 300,144:CALL &9F00,ofsH36:MOVE 
334 ,144: CALL 8-9F00, of s+476 : MOVE 368,l44:CA 
LL 8-9F00, of s + 204 

4040 WHILE INKEY * < >"":WEND:WH I LE INKEY * = " " [60293 
:WEND:GOSUB 60010:TAGOFF:GOTO 1000 

5000 CLS#1:PR1NT#1, "Edit Nr . " : I NPUT# 1 . " ( 0- (26813 
7):": a* :CLS #1 

5010 a = VAL(a*):IF a^.0 OR ä>7 OR INT(a)Oa 
OR a*=”"THEN 1000 

5020 nr=a:GOSUB 60010:TAGOFF:GOTO 1000 
6000 CLSttl :PRINT#1 , "Edi t Rd.”:INPUT#1,"(0- [21773 
44) :”;a *:CLS #1 

6010 a = V A L ( a * ) : IF OR a>44 OR INT(ai<.>a [28683 

ÜR a* = ""THEN 1000 

6020 r d =a:GOSUB 60010:TAGOFF:GOTO 1000 
7000 PR I NTtt 1, "C I ear " : INPUTttl. "wirklich 
a * : CLS #1 


(30613 


[ 15583 
C38633 


(2644 3 


[15583 


[14713 
t38873 


(36123 


[62953 


(31943 


(20113 


[15693 
[20063 


7010 IF a$W”1"THEN 1000 

7020 FOR i=0 Tü 67:POKE ofs+nr*68+i,0:NEXT 
7030 GOSUB 60010:TAGOFF:GOTO 1000 
8000 PRINTttl, "Transfer" : INPUTttl, "von Rd : 
(0-44) :”;a $ 

8010 hrd=VAL(a*) 

8020 1 NPUT# 1 , "Nr . (0-7) :";aa$: CLSttl 
8025 hnr=VAL(aai) 

8030 IF hrdxO OR hrd>44 OR hrd'. > I NT ( hrd ) OR 
a* = ""THEN 1000 

8040 IF hnr<0 OR hnr>7 OR hnr<>I NT(hnr)OR 
aa*=""THEN 1000 

8050 I NFUTtt 1, "nach rd: (0-44):";a* 

8060 hhrd=VAL(a*) 

8070 INPUTttl, "Nr. (0-7) : " ; aa$ : CLStt 1 
8080 hhnr =VAL(aa*) 

8090 IF hhrd<.0 OR hhrd>44 OR hhrdO I NT (hhr 
d)OR a S = ""THEN 1000 

8100 IF hhnr<-0 OR hhnr>7 ClR hhnr O I NT < hhnr 
)OR aa* = ""THEN 1000 

8110 FOR i =0 TO 67;P0KE &400Ö+hhrd*544+hhn 
r *68+ i , PEEK ( &4000 + hr d *544 + hn r *68+ i ) : NEXT 
8120 GOSUB 60010:TAG0FF:GOTO 1000 
9000 IF rat=" an"THEN ra*="aus":ELSE ra*=" 
an" 

9010 GOSUB 60080:GOSUB 60000:GOTÜ 1000 
10000 PRINTttl. "Exit": INPUTttl, "wirk) ich 
a* : CLStt 1 

10010 IF a$<>"I"THEN 1000 

10020 PRINTttl,"Wohin ?”:PRlNT#1," l.:BAS!C 
" : PR I NTtt 1, " 2. : DES I GNER " : PR I NT# 1, " 3.:BEDI 
TÜR": PRINTttl, " 4. : ZED I TQR" : PR I NTtt 1, "nummer 


C15583 
[15793 
C 19063 
[23913 

(3563 
(22303 
[950 3 
C 2517 3 

C 3609 3 

[1709 3 
[6673 
[22303 
(581 3 
C2957 3 

C 4255 3 

(4760 3 

(1908 3 
(42113 

[11863 
[23883 

[15583 
[58173 


C18573 


10030 a*= I NKEY * : l F VAL(a*Xi OR VAL(a*>>4 
THEN 10030 

10040 ON VAL(a*)GOTO 10050,10060,10070.100 C19743 
SO 

10050 MODE 2:PEN 1:PAPER 0:END [19283 

10060 RUN"designer" [8123 

10070 RUN"beditor" (13363 

10080 RUN"zeditor” C4583 

11000 PRINTttl,"NEW" (5773 

11010 PR I NTtt 1 . "Wi r k I ich ??" C14363 

11020 a* = ” " : zz= 1: WH ILE a$-""AND zz<.£G6:a» = 147763 
3 NKEY* : zz=zz+l .-WEND 

11030 IF a* < >"j"THEN CLSttl:GOTO 1000 [25053 

11040 PRINTttl,"j";:a* = "":zz=1:UH I LE a*=""A (49623 
ND zz<220:a*=INKEY*:zz=zz+1:WEND 

11050 IF a*OCHR* (, 13) THEN CLSttl :GOTO 1000 [27923 

11055 CLSttl:PRINTttl , "moment" [13683 

11060 FOR 1=0 TO 24319:POKE &4000+1,0:NEXT (57303 
:CLSttl:nr=0:rd=0:G0SUB 60010:TAGOFF:CLS #1 
: GOTO 1000 

60000 TAGOFF:PR 3 NT STR ING*(61." ");:LOCATE (9685 3 
5,1:PRINT "Rasterra*:" Nummer:";nr:: 

LOCATE 32,1:PRINT "Rahmen Nummerrd::TAG 
:RETURN 

60010 ofs=&4000+544*rd 
60020 POKE &.A600.8 : POKE &A601.4 
60030 z* = CHR$(131) :PR INT#2,CHR*(23)CHR4(1 > 

; : TAG 

60040 CLStt2:PLOT-1,0,1:FOR i=0 TO 3:M0VE 1 
62+i * 14,300 :DRAWR 0,-60:li0VE 162, 300-i *20 : 

DRAWR 42,0:NEXT 

60041 MOVE 158,296:PR I NT 0;:MOVE 158,256:P 
RINT 2; :MOVE 172,296:PR I NT 4;:MÜVE 172,256 
:PR 1 NT 7; :MOVE 186.296:PR I NT lj:MGVE 186,2 
56:PRiNT 3; :MOVE 166.276:PR I NT"5"; :MOVE 19 
4, 276 : F'R I NT"6" ; :MOVE 160, 318 : PR I NT " Rahmen : 

60050 MOVE 332,272 

60060 CALL S-9F00 , o f s+ 68*nr : MOVE 331,274:DR 
AWR 138,0:DRAWR 0.-228:DRAWR-138,0:DRAWR O 
. 228 


(690 3 
C11583 
C 2934 3 

[4995 3 


(120393 


[5343 

[49553 


60061 h=nr:ON h GOSUB 60063.60064.60065.60 
066,60067,60068,60069:G0T0 60070 

[43183 

60062 

GOTO 60070 

14 25) 

60063 

h=2:RETURN 

[4413 

60064 

h=6:RETURN 

[6953 

60065 

h=8:RETURN 

[737 3 

60066 

h=1:RETURN 

(353) 

60067 

h=3:RETURN 

(1076) 

60068 

h=5:RETURN 

(563 3 

60069 

h = 7 : RETURN 

[392 3 

60070 ORIGIN 163+(h MOD 3>* 14.282-INT(h/3) 

*20:FOR i=0 TO 16 STEP 2:M0VE 0, i:DRAWR 12 
,0:NEXT:ORIGIN 0,0 

C 3695 3 

60071 

GOSUB 60000:IF ra*=”aus"THEN RETURN 

(29913 
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Programmen 


60080 FOR i=0 TO 17:M0VE 332+i*8,272:DRAUR [2605] 
0,-224:NEXT 

60090 FOR i=0 TO 28:M0VE 332,48+i«8:DRAWR [1978) 
136,0:NEXT 

60100 RETURN [555] 

61000 MOVE 332 + x»8,272-y»8:PRlNT 2$;:RETUR (2358] 
M 


SIGNO.lad 

1 DATA FE,00,C8,DD,66,01.DD,6E,00,E5,DD,El [3136] 
,DD,E5,CD.C6,0A4D 

2 DATA BB,DD,El,ED,53,87,9F,22,89,9F,3A.03 (2641) 
,A6,47,CS,ED,0905 

3 DATA 5B,87,9F,3A,02,A6,47,C5,06,08.DD,7E [2719] 
,00,CB,27,F5,06BF 

4 DATA DC.45,9F,CD,70,9F,Fl,10,F4,DD,23,CI [3817] 
.10.E9.CD,7A,0992 

5 DATA 9F.C1,10,DA,C9,ED,53,8B,9F,DD,E5,ES [2635] 
,C5,3A,01,A6.09CA 

6 DATA 47,C5,3A,00,A6,47,E5,D5,C5,CD,EA,BB C3436) 
,CI,Dl,El,13.09AA 

7 DATA 10,F4,2B,2B,ED,5B,8B,9F,C1,10,E6,C1 [3089] 
,El,DD,El,C9,09AC 

8 DATA C5.3A,00,A6,47,13,10,FD,CI,C9,C5,3A [3299] 
,01,A6,47,2B,06AE 

9 DATA 2B,10,FC,CI,C9,00,00,00,00,00,00,00 (2866) 
, 00,00,00,00,02C1 

10 zei1e=1:adr=40704 [1831] 

11 FOR iooplX=l TO 9 £614] 

12 summe=0:FOR loop2X=l TO 16 (1098] 

13 READ byte*:byte=VAL<"&"+byte*):POKE adr [2044] 
, byte 

14 summe=summe+byte:adr=adr+l:NEXT !oop2% (3487] 

15 RE>AD pruefsum*:pruefsum=VAL(+pruefsu [2374] 
m*) 

16 IF pruefsumO summe THEN PR ] NT"Feh 1 er ln [3738) 
Zeile :"jzeile:END 

17 zei 1 e = zei I e+1 .-NEXT loopl* C1150] 

18 feAVE"signO.bin".b,40704 ,141 [1936] 


SIGN2.1ad 

1 DATA FE,00,C8,DD,66,01,DD,6E,00,E5,DD,El [3136] 
,DD,E5,CD,C6,0A4D 

2 DATA BB,DD,Ei,ED,53,B4,QF,22,B6,9F,06,04 C1650J 
,DD,22,BA,9F,08E5 

3 DATA CS,ED,SB,B4,9F,06,11,C5,06,07,DD,7E [16953 
,00*CB,27,CB,0761 

4 DATA 27,FS,DC,72,9F,CD,A7,9F;Fl,10,F4,DD £22383 
,23,DD,23,DD,09EE 

6 DATA 23,DD,23,2A,B6,9F,CD,9D,9F,C1,10,DB C24021 
,DD,2A,BA,9F,0BB7 

6 DATA DD,23,DD,22,BA,9F,CD,A7,9F,CD,A7,9F (23593 
,CD,A7,9F,CD,0A5E 

7 DATA A7,9F,CD,A7,9F,CD,A7,9F,CD,A7,9F,22 £39183 
,B6,9F,C1,10,09C7 

B DATA AF,C9,ED,53,B8,9F,DD,E5,ES,CS,3A,01 £22903 
,A6,47,CS,3A,0ÖA2 

9 DATA 00,A6,47,E5,D5,C5,CD,EA,BB,C1,D1,E1 (28723 
, 13, 10,F4,2B,0993 

10 DATA 2B,ED,SB, BQ,9F,CI,10,E6,Ci,El,DD,E C38973 
1, C9, CS,3A,00,09Aö 

11 DATA A6,47,13,10,FD,CI,C9,CS,3A,01,A6,4 £31443 
7,2B, 2B,10,FC,06E6 

12 DATA CI,CO,00,00,00,00,00,00,00,00,00,0 £2586] 
0,00,00,00,00,018A 

13 zeile*l:adr=40704 [18311 

14 FOR ioopl*=l TO 12 [7463 

16 summe=0 jFQR loop2**i TO 16 [10981 

16 READ by te*: byt#=VAL ("l( H + byte*) tPOKE adr [28441 
, byte 

17 summe=eumme+byte:adr=adr+lsNEXT loop2X [34873 

18 READ pruef sum* : pruef sum=VAL( "8e" ♦ pruef su [23741 
m*) 

10 IF pruefsumOsumme THEN PRlNT"Fehler ln E37381 
Zeile :"jzeilesEND 

20 zeile=zelle*i:NEXT Ioopl* [11S01 

21 SAVE"sign2.bin",b,40704 ,188 [16041 


GH5.1ad 

35 DATA 21,6F,01.22.35,A4,11,00.00.CD,6E,A 
3, ÖE, 00,3E,07.03EE 

36 DATA 47, ES, D5,C5,CD,F0,BB,C1,D1,FE,00.E 
1,37,20,01,A7,09AE 


£2821] 
£37603 


37 DATA CB.11,2B,2B,10.EB,79.CD.8A,A2.13.E (37783 
5,21,80.02.37,0671 

36 DATA ED.52,El,36.OS,2A.35,A4.18.D2,CD,9 [3224] 
2,A3.ES.E5,Dl,08E7 

39 DATA 21,07,00,A7,ED.52.El,20,Ol,C9,11,0 £27293 
0, 00, 22,35. A4, 04E5 

40 DATA 18,B7,E5,3E,1B.CD.8A,A2,3A,38,A4, C £25923 

D, 8A,A2,3E.OE,0761 

41 DATA CD,8A.A2,3E.03.CD,6A.A2.El,C9,CD,2 £23233 

E, BD,38,FB,CD,0995 

42 DATA 2B.BD,09.3E,1B,CD,8A.A2.3E,41,CD,8 £2559] 

A, A2,3E,07.CD.078D 

43 DATA 8A.A2,3E,01.32,E8,A3,21,00.AO,22,E £28173 

B. A3,21,10.A1.068B 

44 DATA 22.ED,A3,21.44,AO,22,£F,A3,CD,BF,A £34853 

2, C3.4F,A3,06,0854 

45 DATA 04,C5,CD.2E,A3,CD,72,A2,2A,EB,A3,C £3624] 
D,OE,A3,06,15,0799 

46 DATA 2A,ED.A3,CD,OE,A3.10,FB.CI,2A,EF.A £18503 

3, CD,OE,A3,23.0861 

47 DaTa 22. EF,A3,2A.EB,A3,23,22.EB,A3,2A,E £12053 
D,A3,23,22,ED.Ö82B 

48 DATA A3.CD.BC,A3.10,CB,C9,CD,4F,A3,21,8 C1947] 
8,AO,22,EB,A3,092B 

49 DATA 21.CC, AO, 22, EF, A3,'21, DC, Al, 22, ED, A £34263 
3,18,Bl.E5,CS,0904 

50 DATA F5.06,11,22,E9,A3,7E,CD,8A,A2,CD,8 £29613 
A,A2,CD,26,A3,06C0 

51 DATA 10,Fl,Fl,CI,El.C9,2A.E9,A3,23.23.2 £30213 
3,23.C9,3E,1B.07C1 

52 DATA CD,6A.A2,3E,59,CD,8A,A2,3A,37, A4,C £33363 
D, 8A, A2,3E,00,07D5 

53 DATA CD,8A.A2,3A,37,A4.47,3E,00.CD.8A,A £27053 

2.10, F9.C9,06.0764 

54 DATA 02.CS,CD,6E.A3,06,AO,3E.00,CD,8A,A £25813 
2,CD.8A,A2,CD,0848 

55 DATA 8A.A2,CD,6A,A2,10.F2,CD,92.A3,Ci,1 £27193 
0.E4.C9.E5,D5,0A61 

56 DATA C5,CD,C7,A3,CD,72,A2,21,54,Al,2B,3 £29063 
A,E8.A3,47,23,084D 

57 DATA 10,FD,CD,OE,A3,06,25,3E,00,CD,8A.A £39873 

2.10, FB,CI,Dl,078A 

58 DATA E1.C9,E5.C5.3E,25,47,3E,00,CD,8A,A £31933 

2.10, F9,3A,E8,0860 

59 DATA A3,47,3C,FE,05,20,02,3E,01,32, EB,A £30653 
3.21,98,Al,2B.05CC 

60 DATA 23,10.FD.CD.OE.A3,CD,BC,A3.CI,El.C (24953 
9,3E,OD,CD,8A.08E7 

61 DATA A2,3E,OA,CD,8A,A2,C9,3E,1B,CD,6A,A £30153 
2,3E, 59,CD,8A,07EC 

62 DATA A2,3A,37,A4,CD,8A,A2,3E,00,CD,8A,A £43003 
2,3A. 37,A4.47.0743 

63 DATA 3E,00,CD,QA.A2,10,FB,C9,00,00,00,0 £29603 
0,00.00,00.00,040B 

64 DATA 00,00.00,00,00,00,00,00.00,00.00,0 £14273 
0.00.00.00,00,0000 

65 DATA 00,00,00,00,00,00,00,00.00.00,00.0 £14273 
0,00,00,00,00.0000 

66 DATA 00.00,00.00,00,00,00.00,00.00.00.0 £14273 
0,00,00,00,00,0000 

67 DATA 00,00,00.00,00.00,00,00,00,00,00,0 £14273 
0,00,00,00,00,0000 

66 DATA 00,00.00.00,00,00,00.33,00,00,00,0 £21613 
0,00,00,00,00,0033 

69 zeile=l:adresse=40960:adr=adresse+579 £29063 

70 FOR looplX=35 TO 68 £11423 

71 summe=0:FOR loop2X=l TO 16 £10983 

72 READ byte*ibyte=VAL<"S<" + byte*):POKE adr £28443 
, byte 

73 summe»summe + byte.:adr =adr + 1:NEXT loop2% £34673 

74 READ pruef sum* : pruef sum = VAL ( "8<" + pruaf su £23743 
m*) 

75 IF pruefsum'Osumme THEN PRINT"Fehler in £3730] 
Zeile :":zei1e:END 

76 zeiIe«zei1e+1:NEXT Ioopl* £11503 

77 FOR f»adresse TO adresse+S78:PQKE f,0:N £20133 
EXT f 

80 SAVE"gh5.bin",b,40960 ,1081 £15943 


£ 189 3 


INIT.lad 

10 MEMORY &6F7F 
20 POKE &6F80, 1:POKE &6F81.4<23: POKE &6F82 £25133 
. &70 

30 POKE &7023.1: POKE &7Ö24, 1 £945 3 

40 SAVE"zeichen. 0", b, &6F6Q,&2F60 £19973 

50 SAVE "bi 1 d, 0", b, &i6F80, &<2F60 £12473 

60 SAVE"border. 0" ,b, &6F80,&2F80 £20033 
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I—Bücher 



Wolfgang Schneider: 

Wie arbeite ich mit dem 
Schneider Joyce — 

T ext Verarbeitung 
Vieweg Verlag 1987, 

164 Seiten, 

ISBN 3-528-04520-5 
Preis: 48,- DM 

Trotzdem auf der ersten Um¬ 
schlagseite des Buches ein 
Schneider PC anstatt eines Joyce 
abgebildet ist, entspricht der In¬ 
halt dieses Werks der Titelaussa¬ 
ge. Das Buch ist dem Selbstver¬ 
ständnis nach für Joyce-Besitzer 
mit wenigen oder keinen Compu¬ 
terkenntnissen konzipiert. Inso¬ 
weit sind auch nur geringfügige 
inhaltliche Unterschiede zum Jo¬ 
yce-Handbuch festzustellen. 

Die wirklich gute Strukturierung 
des Inhalts macht dieses Buch je¬ 
doch für LocoScript-Einsteiger 
empfehlenswert. Zwar ist es dem 
Autor nicht immer gelungen, 
Fachausdrücke in eine dem An¬ 
fänger verständliche Sprache 
umzusetzen, ein kleines Glossa¬ 
rium im Anhang, bietet hier je¬ 
doch Hilfe. Als Arbeitsgrundla¬ 
ge ist das Buch dem Joyce-Hand¬ 
buch auf jeden Fall vorzuziehen. 

(ME) 

J. L. Greco/M. Laurent: 
Locomotive BASIC 2 
Sy bex-Verlag 1987, 

324 Seiten, 

ISBN 3-88745-500-2 
Preis: 38, - DM 

Das unter GEM laufende 
BASIC2 von Locomotive Soft¬ 
ware ist derart umfangreich, daß 
erläuternde Bücher quasi not¬ 
wendig werden. Derjenige, der 
unter BASIC2 auf dem Schneider 
PC programmiert, findet in die¬ 
sem Buch viele nützliche und 
weitergehende Informationen zu 


den einzelnen Befehlen und de¬ 
ren Syntax. 

Hervorragend gelungen sind die 
ausführlichen Befehlserläuterun¬ 
gen mit zahlreichen Beispielen. 
Die Autoren verloren sich hier 
nicht in eine lauwarm aufbereite¬ 
te Wiederholung des Handbu¬ 
ches, sondern waren bemüht, an¬ 
hand praxisgerechter Beispiele 
die Stärken und Schwächen von 
BASIC 2 aufzuzeigen. So ist das 
Buch zum einen für Lernende, 
zum anderen aber auch von Fort¬ 
geschrittenen als Nachschlage¬ 
werk geeignet. 



Ein ganzes Kapitel beschäftigt 
sich mit den Befehlen zur Erzeu¬ 
gung einer Index-Datei, die 
Schritt für Schritt aufgebaut wird 
und zum Schluß ein leistungsfä¬ 
higes und anschauliches Pro¬ 
gramm bietet. 


R. A. Byers: 
dBase III 

Vieweg Verlag 1985, 
203 Seiten, 

ISBN 3-528-04381-4 



Mit der zunehmenden Preissen¬ 
kung der Personalcomputer nach 


Industriestandard werden auch 
Programme interessant, die aus¬ 
schließlich kommerziell genutzt 
werden und dies schon ganz deut¬ 
lich am Preis erkennen lassen. In 
diese Kategorie gehört auch das 
Datenbanksystem dBase III von 
Ashton-Tate. 

Dieses Buch versteht sich als 
Einführung in die Leistung und 
Handhabung von dBase III und 
ist an den Anfänger — oder bes¬ 
ser gesagt - an den Anwender 
gerichtet, ohne daß dabei Com¬ 
puterintemas vorausgesetzt wer¬ 
den. Vielmehr versteht sich die¬ 
ses Buch als anwenderorientier¬ 
te Einführung (so auch der Un¬ 
tertitel), die einen raschen Über¬ 
blick der Leistungsdaten von 
dBase gewähren. 


H. Rompel: 

LOTUS 1-2-3 

Anwendungen für Industrie 
und Wirtschaft 
IWT-Verlag 1987, 

207 Seiten, 

ISBN 3-88322-189-9 



Anhand des integrierten Pro¬ 
grammpaketes LOTUS 1-2-3 
zeigt der Autor praxisnahe An¬ 
wendungen für Industrie und 
Wirtschaft auf. 

Dabei versteht sich das Buch 
nicht als Einführung in LOTUS, 
vielmehr werden Grundkenntnis¬ 
se vorausgesetzt, zudem sollte 
ein Referenzhandbuch verfügbar 
sein. 

Die aufgezählten und durchweg 
gut erklärten Beispiele und Pro¬ 
gramme teilen sich in mehrere 
Kapitel wie z.B. Physik, Kalku¬ 
lation und Planung, Analyse, 
Buchhaltung etc. auf. 

Ein weiteres Kapitel birgt auch 
interessantes für private Anwen¬ 


dungen wie z.B. eine Hausver¬ 
waltung oder Beitragsverwaltung 
für Vereine auf. 

Anhand dieser, m.E. guten Pro¬ 
grammiertechniken bekommt der 
Anwender ein Gefühl für die si¬ 
chere Programmierung eigener 
Anwendungen unter LOTUS 
1-2-3 und ist sehr schnell in der 
Lage, diese auch zu realisieren. 

Die aufgeführten Programme 
sind fiir alle LOTUS-Besitzer in¬ 
teressant, da zahlreiche Ideen 
und Anregungen auch für priva¬ 
te Anwendungen abgeleitet wer¬ 
den können. 

Alles in allem ein für LOTUS 
1-2-3-Besitzer sehr empfehlens¬ 
wertes Programmierbuch. 


Irma Hacker/Joy Stick: 
Das wahre 
Computer-Lexikon 
Addison-Wesley 1987, 
135 Seiten, 

ISBN 3-925118-05-5 



Schon ein Blick auf die Autoren¬ 
namen läßt erkennen, um was es 
sich hier handelt. Ein satirisches 
Wörterbuch der Datenverarbei¬ 
tung, mehr als 260 Begriffe wer¬ 
den hier auf die »Schippe« ge¬ 
nommen. Einige Beispiele aus 
dem Inhalt: 

Variable: Name in Programmen, 
der zu kurz ist, um sich etwas 
darunter vorzustellen. 

oder EDV: »Meist erfolgreicher 
Versuch, menschliche Unzuläng¬ 
lichkeiten als technisches Versa¬ 
gen zu kaschieren.« 

Nun gut, über diese Art der De¬ 
finition läßt sich bekanntlich 
streiten, lustig ist es nicht immer 
- ein netter Gag, mehr jedoch 
nicht! 

(SR) 


136 PC 8'87 

































OJOYCE-PC -1512 


SSä- 

Drachenlöte' 

Än n ^U 5 «,waaen 

ÄÄ- 

«Äann-eT„^p.e^aSounO 

Sßft 0M 

a -DisK. je 28 - 0M _ 


——-1 

Monito-Ver.ingerung.MMI ^ | 

CPC-*6« ,66< 24.50 

rPC-6'28 

D->ickerK8t>e'- Ce " ,ron ' C8 29l - 

C P C.464(664' 6 ' 28 

«tf , '*•' 

Re corder-Ar'* ehluBMb *' 1«. 

CPC-664.6t2B 

6 t 28 -Mepte' ö . Moäu i e n 

Anschluß von Amstrnu- 2 9- 

a mCPC-6l2B 

Sieub.chuuh» uben 16.- 

CPC-6t28M64 22.- 

Montlot Grün/FarDe 14,- 

cinnny DOM t6i— 

OMP-2000/300 0 

Bildschirmimer 39 ,. 

Grünmoniior 44,' 

Fatbtnoni'o' 

Adress-E« lK ®''?| |k En0 t o s 
36,90 mm. 400 st« 


fIuGsTmULATORE^ 


9,95 


ÄKÄ^r* 00 

_ Hervorragende Grat 

— Mit pugprotMo» em geseU' 

- 

CPC 464, 664, 6128 
Boeing 727 oe _ DM 

Cassette. DM 

3 ”.Disk.. 

Space Shuttle QM 

39,- DM 

Hubschrauber _ Qf^ 

S5SE 39,- om 


^Laufwerken 

»SStf 

Komplett tu- 

1899,- » 

„ , mcM von Schneider 
Lautwo'k 2. mcra 

PC-1512 

mi t 20-WB 

P S£12-—- 

^hwar^weiB Monitor 
komplett tur 

2498,- ° m 

Fe5lp ,aiten. men. vonSchne.de- 



m « 30 -MB Festplatte 
* ur 

2698, 


: s^£sr- 

-OTeSSS-’”*” 

_ Tipvotschlag 
_ Tretterhautigkei' 

^ÜSbtrr^wielange 

n , C ht m „ teln 

_ Gewinnchance [IBi t, e r, 

- E,s!0l ’ U r 9 noen tur jeden Zeitraum 

;Sr&^ l,wn5 


-•o'^ Ä 8 rror m, ' um ' 

^Ä 9 "e^^en Daten m 

Sekundenschnelle 

_ Hauser nach Ko^ sch[ei0ung ml , 

' ^DINM Seiten Omtang £m(1 ,, n . 

'-ÄÄ»rÄ- 

Ä«®® ,n *"’ 9enl 

und und und ^ Bildschirm 


_K^de-^hteBe^MM9 ei 

m , Einstieg m die Mtroioy 


Modernes p '°pjg^Bio-Bhythmus 

Erkennlmssen der 

^Ts'we'0e n dargeste!« ^ ww n«k. 

Ä^S.r e,9enen 

Gebu-tsmondphase lech 

lÄ-rn uVd"Daten 9 au. B.ld- 
~ schirm oder Druck* ^ Q , N M 
- JUSd, M^ u “te' die Bio 

'^hmus^orte allgemein 
_ Alles m Deutsch 


,c 464, 664, 6126. JOV« I ^ ^ ^ JOYCE 


C PC 464. 664.6126. JOYCE 


3 ”-Disk.: 


49- DM 


3 ”-Disk.: 


85,- DM 


Cassette: 
3 ”-Disk.: 


35,- DM 
39,- DM 


-- 

sr-iT-SüS i 

m mrnrn: 

BTX-Term (Akustikkopple c-hwarziw*'®' , ^ on '!° l , 

ssfL,, 

ZsHgsa 

P-KSsSsSS? 


eas't. t• — - r 

Star W-i.e- PC 

FlBuStarV’O 

ist Word Plus 
Psycho 2 

Gommterm vn 
junior Framework 
junior Multiplan 

Supetbase 

copy-2 p° 


^ 2PC . h ° te>nU ^ 


jftware 4641664/6.26 

eits-Diagnose 


- Ca.»- 

;SV frd Supe"ativel f ' 

' l ^ 0P |p , J c ji n'St ^[(uy* und^AiSruekehl 

(3 lests iQFj-Programm von syBEX) , e 
(Spilzenp , og'e^ dBS p r0B , a mm tur 

,999 - G-ünmonitor 
Farbmonitor «»*• C PC-464) 

(SChneider-rloppy s , än de'l 

Äfis» 

(Kopiormodul) *|*lM T9i _ 6'2B 

(R0 M Giat.ksottwa.el 

SU— 

nükra 

TEN-TECHNIK 


i Star 

S«0# 

tt Star 

a-Tesi 

[2b?® tar-Te*te' 

Star, Mulbplan dBase 

Hardware 

6128 Computer 
| Fioppv „„ 

,,2000 Drucker 

chererwe.te'ungen 

Ftoppylau'w®' 11 
lOhon S-2Vd2 
jge Image' NEU 



■joyceL_— 

Das komplette 

Äffea- 

Mreah^ 1.799. 

--— ii ...iwork € 

ssssr* 

fSgfess« o«»s»ra!£saa 

BJdSChirmtmer (Für Emze'b'»''® iovCE-Drucker) 

"SS”»*™™ (0 „ teSsssssSksssy 
ss r - r&SgBSessl 
sS#” 1 ' iSÄKSfSSä 
iS- -SÄ3&!, 

. .. ^ 

■ r Hiermit bestelle ich 



Versand nuLP er 
Nachnahme oder 

Vorkasse (Scheck) 
Versandpauschale 

DM 6,- 


Wolfgang Müller & Jürgen Kramke GBR 
Schöneberger Str. 5:1000 Berlin 42/1Vl^ 

(Am Berlinicke Platz) 

©030-752 91 50 

Öffnungszeiten: Mo-Fr 10-18. Sa 10-13 



Hiermit bestelle ich 

O per Nachnahme O V-Scheck liegt bei 

(zuzüglich 6,— DM Versandkosten/Ausland 12,— 
O Ich bitte um unverbindliche Zusendung 
Ihres neuesten Katalogs 


DM) 


Laden u. Versandzentrale 

Kostenlosen Katalog anfordern 
o abholen 


^vnck- 

flesieiluj 




PLZ/WOH NORT 

Computertyp 
ankreuzen 


O Joyce 
O 464 


O SCHNEIDER PC 
O 664 O 6128 








































r^Serie 



Spieleprogrammierung 
in Assembler Teil 7 

Nachdem in den letzen beiden Folgen der Sound und die 
Buddelroutine für unser Karlchen programmiert 
wurde, steht das eigentliche Gerüst für unser Spiel nun¬ 
mehr. Karlchen und die Feinde bewegen sich munter 
hin und her und versuchen, sich das Leben gegenseitig 
so schwer wie möglich zu machen. Allerdings gibt es 
noch immer einige Probleme bei der genauen Durchfüh¬ 
rung unserer Algorithmen. So bleibt noch zu klären, 
daß ein Kontakt zwischen Karlchen und einem Monster 
auch wirklich immer registriert wird, und daß die Mon¬ 
ster überhaupt erfahren, daß sie in die von Karl gebud¬ 
delten Löcher hereinfallen müssen. 


Bevor wir uns jedoch diesen Problemen 
zuwenden wollen, die (leider) fast aus¬ 
schließlich sture Programmiertheorie 
bleiben werden, wollen wir in dieser Fol¬ 
ge wieder ein wenig experimentieren und 
ausprobieren. So wollen wir für unseren 
Karl einige neue Spiellevels erarbeiten 
und uns schon einmal Gedanken ma¬ 
chen, wie wir ein interessantes Titelbild 
einbinden. Zunächst jedoch einmal zu 
den Spiellevels: Wie sich sicher die mei¬ 
sten Leser erinnern, haben wir die Zei¬ 
chenroutine eines Spiellevels so gestal¬ 
tet, daß damit dynamisch abgelegt Bild¬ 
vektoren (also immer Ebene oder Leiter) 
verarbeitet werden konnten. Dabei be¬ 
standen die Daten eines jeden Bildele¬ 
mentes aus folgenden Angaben: 

X-Koordinate : 1 Byte (Inhalt: 1-40) 
Y-Koordinate : 1 Byte (Inhalt: 1-25) 
Flag: Leiter/Ebene: 1 Byte (Inhalt: 0/1) 
Länge des Elements : 1 Byte (Inhalt: 
1-40) 

Das heißt also im Klartext, daß zu jedem 
Element des Bildschirmes immer 4 By¬ 
tes existieren, die variiert werden kön¬ 
nen. Wenn man nun noch in Betracht 
zieht, daß ein Spiellevel aus einer Viel¬ 
zahl solcher Bildelemente besteht, wird 
schnell einleuchten, daß die Erstellung 
eines Levels oft ein sehr zeitaufwendiger 
Prozeß sein kann. Auf der anderen Sei¬ 
te ist diese Serie dazu gedacht, einen Ein¬ 
stieg in die Spielprogrammierung zu bie¬ 
ten, und da sollte eigentlich auch eine et¬ 
was bedienungsfreundlichere Methode 
bestehen, die es jedem Leser ermöglicht, 
seine individuellen Levels einfach und 
problemlos zu erstellen. Denn wenn je¬ 
desmal einige Bytes des Quelltextes ge¬ 
ändert werden, muß auch immer wieder 
neu assembliert werden, damit das Er¬ 
gebnis überprüft werden kann. Diese 
Änderungen werden dann gegebenen¬ 
falls wieder verworfen, also heißt es wie¬ 
der: Assembler laden, Quelltext laden, 


Quelltext ändern, Quelltext speichern, 
assemblieren, Objektcode speichern, Sy¬ 
stem booten, Objektcode laden, Objekt¬ 
code starten, Änderungen überprüfen, 
usw., usw., usw. Kurz gesagt: ein ex¬ 
trem zeit- und nervenaufwendiger Prozeß. 
Aus diesem Grunde ist in Bild 1 das Li- 
sting EDLEVEL.BAS gegeben, das es 
ermöglicht, komplexe Spiellevels von 
BASIC aus zu erstellen und auszuprobie¬ 
ren (BASIC haben wir deshalb ange¬ 
wandt, weil für eine solche Anwendung 
überhaupt keine Notwendigkeit besteht, 
in Maschinensprache zu programmie¬ 
ren). Ist ein Level erfolgreich erstellt, 
wird eine komplette Liste aller Bytes aus¬ 
gegeben, die in das HEKTIK-Quellisting 
eingefügt werden müssen. Der Leser 
kann diese Daten dann irgendwo in sei¬ 
nen Quelltext einfügen. Die Hektik-Zei¬ 
chenroutine benötigt dann nur noch die 
Adresse der Leveidaten in der Level- 
strukturtabelle und schon ist ein neues 
Level erstellt. 

Die Bedienung des Editors ist denkbar 
einfach: In der untersten Zeile des Bild¬ 
schirms (die ja von den Levels nicht be¬ 
legt werden darf) erscheint ein Menü, 
welches die folgenden Möglichkeiten of¬ 
fenhält: N)eu A)endern T)est L)oesch 
P)os E)nd. Mit »N« (für »N)eu«) kann 
ein neues Bildelement definiert werden. 
EDLEVEL vergibt dann automatisch das 
nächste freie Bildelement zur Bearbei¬ 
tung. Zur Eingabe eines Bildelementes 
werden die Koordinaten, das Flag und 
die Länge verlangt. Nach der Eingabe ei¬ 
nes Bildelementes wird es sofort darge- 
stellt. Mit »A« (für »A)endern«) können 
vorhandene Bildelemente modifiziert 
werden. Das alte Element wird dann ge¬ 
löscht und das neue daraufhin dargestellt. 
Mit »T« (für »T)est«) kann die gesamte 
grafische Struktur eines Levels ausgete¬ 
stet werden (nützlich vor allem dann, 
wenn Levels teilweise gelöscht wurden, 
zum Beispiel beim Überschneiden zwei¬ 


er Bildelemente). Mit »L« (für »L)oesch«) 
schließlich kann ein ganz bestimmtes 
Bildelement aus der Struktur herausge¬ 
nommen werden. Die Option »P« (für 
»P)os«) stellt eine Besonderheit dar. 
Wird »P« angewählt, so kann eine X- 
Koordinate und eine Y-Koordinate ein¬ 
gegeben werden. An der so bezeichne- 
ten Stelle wird dann solange ein »*« aus¬ 
gegeben, bis eine Taste betätigt wird. 
Diese Funktion ist auf der einen Seite für 
die Überprüfung der numerischen Dar¬ 
stellung bestimmter Positionen notwen¬ 
dig, andererseits können damit aber auch 
die Stellen ermittelt und notiert werden, 
an denen nachher die Monks ihr böses 
Treiben beginnen sollen (Die Anfangs¬ 
koordinaten der Monks werden ja direkt 
hinter den Leveidaten konstant abge¬ 
legt). »E« (für »E)nd«) bricht schließlich 
den Editionsvorgang ab und gibt die Da¬ 
tenstruktur des erstellten Levels aus. 

Es ist bei der Verwendung von LEVEL- 
ED.BAS zu beachten, daß mit dem 
Löschvorgang eines jeden Levelelemen- 
tes die anderen Elemente um 1 »herun¬ 
terwandern«. In der grafischen Darstel¬ 
lung werden Ebenen durch »=« und Lei¬ 
tern durch »H« dargestellt. Außerdem 
sollte im Hinterkopf behalten werden, 
daß die Levelzeichenroutine PNTSCR 
von HEKTIK unter jedes Level in Zeile 
23 noch eine Zeile Boden setzt. Es ste¬ 
hen also zum Editieren lediglich die Zei¬ 
len 1 bis 22 zur Verfügung. Ferner müs¬ 
sen bei der Erstellung von Levels für 
HEKTIK einige weitere Formalien ein¬ 
gehalten werden: 

— jede Ebene muß links und rechts mit 
einer Leiter abschließen, da es sonst Vor¬ 
kommen kann, daß die Monks und Karl 
aus dem Level bzw. der Ebene heraus¬ 
laufen. 

— je nachdem, wie weit eine Leiter an 
eine Ebene heranreicht, können damit 
unterschiedliche Effekte erzielt werden: 
Beispielsweise kann Karl an einer Leiter, 
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die bis auf ein Zeichen an die Ebene her¬ 
anreicht zwar herauf-, nicht aber herun¬ 
terklettern (aufgrund der Zweiteilung 
von Karl mit zwei neudefinerten Zei¬ 
chen). 

— Die zum Zeichnen benötigte Zeit 
steigt natürlich proportional mit der An¬ 
zahl der verwendeten Bildelemente. 
Deshalb sollte die Anzahl der Bildele¬ 
mente nicht zu groß geraten. Außerdem 
sollte bei der Definition eines Levels im¬ 
mer der einfachste Weg beachtet werden 
(also eine Ebene nicht etwa in zwei Tei¬ 
lebenen aufgeteilt werden). 

— Wenn Koordinaten oder Längenanga¬ 
ben, die von PNTSCR angesteuert wer¬ 
den sollen, falsche Werte enthalten 
(etwa: x größer als 40) kann es zu unvor¬ 
hersehbaren Folgen (zum Beispiel einem 
Absturz) kommen, da die Werte von 
PNTSCR nicht nochmals geprüft 
werden. 

— Spiellevels sollten so gestaltet werden, 
daß für die Monks auch tatsächlich im¬ 
mer eine Möglichkeit besteht, an Karl 
heranzukommen; »tote Ecken« sind zu 
vermeiden (genauso wie auch Bildele¬ 
mente, die mit keinem anderen verbun¬ 
den sind (und einfach »in der Luft 
hängen«). 

Die Daten, die das Programm »aus¬ 
wirft«, müssen lediglich noch mit der Li¬ 
ste der 5 Anfangskoordinaten der Monks 
versehen und in den Quelltext eingetra¬ 
gen werden. Mit diesem Verfahren ha¬ 
ben wir 3 zusätzliche Levels erzeugt, die 
wir in HEKTIK eingebunden haben. Die 
Hardcopies dieser 3 Levels sind in den 
Büdem 2-5 wiedergegeben. Wenn sich 


einge Leser ihre selbsterstellten Levels 
(oder auch die Levels, die wir erstellt ha¬ 
ben) problemlos ansehen wollen, können 
sie dazu das Programm SHOWLEV. 
BAS benutzen, dessen Listing in Bild 5 
wiedergegeben ist. Es muß nur die An¬ 
zahl der Levels in der For-Next-Schlei- 
fe angegeben werden. Bei unseren nun 4 
Levels muß als Endwert 3 eingegeben 
werden. Das Programm zeichnet dann 
nacheinander alle Levels von HEKTIK 
(natürlich auch selbsterstellte) auf den 
Bildschirm. Für die korrekte Verwen¬ 
dung von SHOWLEV.BAS ist es aber 
erforderlich, daß das Objektmodul 
OBJO.OBJ auf der Diskette/Kassette ver¬ 
fügbar ist (es kann natürlich auch der La¬ 
debefehl abgeändert werden). Neben 
dieser Problematik wollen wir uns in die¬ 
ser Folge auch noch einem nicht minder 
anwendungsfreundlichen Bereich wid¬ 
men, der aber auch für ein professionel¬ 
les Spiel nicht zu unterschätzen ist. Ge¬ 
meint ist ein Rahmen für das Spiel, eine 
»Basisroutine« und ein Titelbild. 

Wir haben uns dafür entschieden, diese 
beiden Dinge schon in dieser Folge zu er¬ 
arbeiten, damit noch einmal ein wenig 
»Pepp« in die Serie kommt. Damit wol¬ 
len wir eine Folge »zum Ausruhen« ge¬ 
stalten, die intellektuell nicht allzu hohe 
Erwartungen stellt. Denn eigentlich soll¬ 
te ein Titelbild erst zum Schluß eines 
Spieles programmiert werden. 

Zuerst also zu einer Basisroutine für un¬ 
ser Hektik. Unter einer »Basisroutine« 
versteht man im Computer-Fach-Jargon 
ein Programm, von welchem aus ein an¬ 
deres Programm geladen, initialisiert 


und gestartet wird. Ein Beispiel: Das Ba¬ 
sisprogramm für WORDSTAR auf dem 
CPC beispielsweise ist CP/M (in diesem 
Falle ist das Basisprogramm gleichzeitig 
das Betriebssystem). Bei Maschinenpro¬ 
grammen versteht man unter Basispro¬ 
grammen immer die Programmteile, die 
das eigentliche Maschinprogramm auf- 
rufen und vereinbaren. Für die speziel¬ 
le Anwendung HEKTIK ist ein Basispro¬ 
gramm sehr einfach zu schreiben. Durch 
den ORG-Befehl kann die Startadresse 
von HEKTIK relativ frei gewählt wer¬ 
den. Wir nehmen nun einmal an, die 
Startadresse solle &9000 sein. Zunächst 
muß also der ORG-Befehl (oder ein 
kompatibler Befehl, je nach verwende¬ 
tem Assembler) im Quelltext auf die 
neue Startadresse initialisiert werden 
(also bei DEVPAC: ORG &9000). Dann 
wird der Quelltext assembliert und zum 
Beispiel unter dem Namen HKO.OBJ auf 
der Diskette gespeichert (bei DEVPAC 
mit: o,,HKO.OBJ). Unser Basispro¬ 
gramm müßte für diesen Fall nur die fol¬ 
genden Zeilen beinhalten: 

10 memory &9000-1 
20 load "HKO.OBJ" 

30 call &9000 

Jedoch leuchtet schon hier ein, daß ein 
solcher »Einsprung« in Hektik auch noch 
bestens dazu geeignet ist, einige andere 
Dinge zu veranstalten. Wir wollen an 
dieser Stelle nun auch ein Titelbild für 
HEKTIK einblenden, damit das ganze 
Spiel eine »runde Sache« wird. Aber den¬ 
noch vorweg etwas Theorie: Prinzipiell 
kann sich jeder Leser natürlich sein 


1 ' [117] 

2 * Editor f>r die unterschiedlichen Spiel [36613 
levels von HEKTIK 

3 * von: M. Althaus & M. Zietlow [15703 

4 * Schwelmer Stra~e 119 [14753 

5 ‘ 5620 Gevelsberg [12233 

6 * [1173 

7 FOR i=0 TO 2: READ el#<i>,af*<i>:NBXT:DAT [21083 
A "H" , " 1" , "=" » “e", " ",” " 

8 c*=CHR*<143)+CHR*<8) [9643 


9 ak=l: n=20: DIM x(n> . y<n> , 1 Cn> , f <n>.: MODE 1 [30703 

10 GOSUB 33: PRINT"N)eu A)endern Doesch T> [52733 
est P)os E>nd ";c*; 

11 a»=INKBY*: IF a*="” THEN 11: ELSE a*=UPPE [15263 

R*(a*> 

12 a*-<a*="H">-<A*="A">*2-<a*="L">*3-<a*=" [36493 
T">*4-<a»-"P"> *5-<a*="B") *6 

13 IF a=0 THE» 11:ELSE 01 a GOSUB 14,17,21 £22283 
,24,25,28:GOTO 10 

14 IF ak<=n THEN GOSUB 34:x(ak>=x:y<ak)=y: £43803 
GOSUB 37:f<ak>=f:l<ak>=l 

15 GOSUB 33:PRINT"Element "jak;" wird gema [32333 
lt" 

16 lk=f<ak>:GOSUB 39:ak=ak+l:RETURH £18073 

17 GOSUB 33:nk=ak:LOCATB 1,25:INPUT"Aender £58503 
n: Er: **,ak: GOSUB 33 

18 PR IHT" Er "jak;":",x<ak>;",";y(ak);",";a £37143 

f * (f <ak) 1 <ak); " ";c* 

19 GOSUB 42: GOSUB 33:PRIET"wird geloescht" £49563 
:lk=2:GOSUB 39 

20 GOSUB 14:ak=nk:RETURN £13673 

21 GOSUB 33:nk=ak:INPUT”Laeechen: Er: ",ak £44673 
:lk=2:GOSUB 39 

22 FOR i=ak TO nk-1:x<i)=x<i+l):y<i>=y(i+l £42713 

):f<i)=f(1+1):l(i)=Kl+l);HEXT i _ 

Bild l 


23 ak=nk-l:RETURE £13083 

24 MODE 1:nk=ak:FOR ak=l TO nk-1:lk=f<ak>: £40073 
GOSUB 39:HEXT:ak=nk:RETURE 

25 GOSUB 33: PR I HT "POS:","x: ";:IHPUT *"•, x £36521 
:IF x<1 OR x>40 THEH 34 

26 GOSUB 33: PR IHT *’POS:»,»y: ";:IHPUT "".y £43973 
:IF y<l OR y>24 THBH 35 

27 LOCATE x,y:PRIHT":GOSUB 33:PRINT c$:G [31193 
OSUB 42:LOCATE x,y:PRINT" ":RETURE 

28 GOSUB 33:PRINT"Sicher ? ";c*:GOSUB 42:1 £49373 
F UPPER*<a*)<>"J" THEN RETURE 

29 MODE 2:PRIHT"Datenstruktur des Levels:" £38913 
:PRIET 

30 PRINT"Anzahl der Bildelemente: ";ak-l £39733 

31 PRINT:PRIHT”Daten der Bildelemente:”:FO £30853 
R i=l TO ak-1 

32 PRINT y(i);x<i);l(i);f(i>;:HEXT 1: EED £20683 

33 LOCATB 1,25:FOR i=l TO 39:PRIHT" ”::NEX C37303 
T i:LOCATE 1,25:RETURN 

34 GOSUB 33:PRINT "Er.";ak,"x: INPUT "" £52003 

,x:IF x<1 OR x>40 THEN 34 

35 GOSUB 33:PRINT "Er.":ak,"y: ";:INPUT "" £45453 
,y:IF y<l OR y>24 THBN 35 

36 RETURE £5553 

37 GOSUB 33:PRINT "Nr.";ak,"Flag Cl/e): "j £85923 
:IHPUT "",f*:f*=UPPER*<f*>:IF f*="L" THEN 

f=0 ELSE IF f»*"E" THBN f*l ELSE 37 

38 GOSUB 33:PRINT "Nr.”;ak,"Laenge: " ; :INP £63343 
UT , 1: IF Kl OR 1>24 THBN 38:ELSE RETURE 

39 x=x<ak>:y=y<ak>:l=l(ak>-<f(ak)=l>#l(ak) £28943 

40 LOCATE x,y:PRINT el*<lk>:IF f<ak)=l THB £44403 
E x=x+l:IF x<x<ak)+l THEN 40;ELSE RETURN 

41 y=y+l:IF y<y(ak)+l THEN 40:ELSE RETURN £33503 

42 a*=INKEY*:IF a*="” THEN 42:ELSE RETURN £15293 
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CPC • Joyce • PC 1512 


• 10 oder 20 MB • erweitertes CP/M Plus und Locosript • m^gelieferte Hilfs¬ 
programme ermöglichen einfachen Gebrauch • schnelle Zugriffszeit - 85 ms • 
macht aus Ihrem Joyce - Textverarbeitungsprogramm ein leistungsfähiges 
Bürosystem • 


Joyce - Hard Disk 


.. . f , ,, 10 MB Hard Disk 1.698,- DM 

Emzelinfo anfordem !! 2 0 MB Hard Disk 1.998,- DM 


Zubehör PC 

Literatur Joyce 


B-Laufwerk 360 kb 

398,- 

Data Becker 


Aufrüstaiz auf 640 kb 

78,- 

Logo Buch zu CPC + Joyce 

39.- 

Lüfte ibaustein 

98,- 

Das große Joyce Buch 

59,- 

Vortex Erweiteiungs- 


Joyce für Einsteiger 

29.- 

Steckkarte (20 MB) 

1298,- 

Markt & Technik 


Festplatten: 


DR Logo Benutzerhandbuch 

42.- 

Microsdence / Seagate / 

CP/M Plus Anwenderhandbuch 

46.- 

Tandon 


Textverarbeitung mit LocoScript 

39,- 

kompleu mit Lüfter und Conti.: 

u.a. 


20 MB 

998,- 

Bitte fordern Sie unsere Liste an! 


30 MB 

1.198,- 



40 MB 

1.998,- 

THINGI-Konzepthalter 

Monitore für 1512: 

• geeignet für jeden Computertyp 


Color 

998,- 

• große Hilfe bei Textverarbeitung 


Monochrom 

598,- 





nur DM 24.80 



Hardware PC 

PC 1512 MM/SD 1.395, 

PC 1512 MM/DD 1.845, 

PC 1512 CM/SD 1.845, 

PC 1512 CM/DD 2345, 

PC 1512 MM/HD20 2.695, 

PC 1512 CM/HD20 3.145, 

Multitronic XT ohne M. 1.598, 
Multitronic AT ohne M. 3.425, 
Mulütronic AT/HD20 4.425, 
Sanyo PC ohne M. 1.598, 

Commodore Amiga 500 1.298, 

Tandon PC (auf Anfrage) 

Victor PC (auf Anfrage) 


/Public Domain MS-DOS'N 
Freesoftware 

Mehr als 600 Programme sofort liefer 
bar! 

BeispitU: • Kcrmil • viele Omca • WaidQax • 

■ MlilÜpiU|liniTE * CAD 1 

und viele mehr!! 

Ein* Garantie, daA die freien Programme 
funktionierte und welche Lelatung de 
Meten, kann nicht gegeben werden! 

Jede Diskette nur 10,- DM 

ab 19 DUfcettcn 4 DlakeUen grella! 

Bitte fordern Sk uneere Ulte an (2,- DM 
In Brfeftnarfcen beilegen)!! 

PD MS-DOS 10er Blöcke 


Block 1 

-Tuctvcnibeitung 
. Flugsimulator 

- PC FUnID 

- Primer Ulüitiaa 

- Baale Programm 
Utilities 

- Wertpapia/Pmanao 

- Mini Ajanmhier 

- Programm Cuutrui 
■ 'CroaamT 

- "Startrek' 


Block 2 

- Daaenbankorgan. 

- Baaref ♦ Make 

- Bowling Sccrclary 
-PINANCE 

- Math und Stal 

- Prim Grafik 1+0 
• Bane TnmalaUa 

- ESE-Klixml. 1*11. 

- Wizard a Caitie Game 

- Packman msd Newtrek 




.jeBlock 68,-- DM , 

(wem« Blockaammlungen folgen !) / 


r PC Software 


Woidsur 1512 

Markt & Technik 

399,- 

Junior dBase D 

399," 

Junior Multiplan 

299,- 

Junior Wordstar dtsch. 

399,- 

Protext PC 

179,-- 

Word Junior 

399,- 

Junior Framework I 

399,-- 

Superbase 1512 

249,- 

Lotus 1 -2-3 Schulung 

98,- 

Word 3.0 Schulung 

STAR DIVISION 

98,- 

Star-Writer 

298,- 

Star-Wriier (erweitert) 

398,- 

Data Becker 

Beckeibase PC 

199," 

Tcxtomat PC 

99,- 

Fakiumat PC 

298,- 

Datamat PC 

99,- 

Background PC 

99,— 

Kalkumat PC 

199," 

Sybex Software bitte anfragen! 

F&A Primus (Textver.) 
PC Spiele 

398,- 

Hellcat Ace 

69,- 

Decision in Dessert 

69.- 

Spitftre Ace 

Crusade in Europe 
u.v.m. bitte anfragen 

69.- 

89,- 


f Literatur PC 

Markt & Technik 

Einführung in DOS plus 

49,- 

Der Schneider PC 

49,- 

MS/DOS PC/DOS 

49," 

WordSiar 1512, Schneider 49,- 
GEM-Anwenderhandbuch 49,- 

Data Becker 

PC für Einsteiger 

49,- 

Beckerbase für Einsteiger 

49,- 

C für Einsteiger 

49,- 

Turbo Pascal Buch 

59,- 

^u.v.m. bitte Liste anfordern!! 


/Elektric Studio Produkte^ 
für Joyce 

Llghtpen *: Freihandzeichnen auf dom 
Büdachirm ■ gängige Punktionen wie BleiatiA, 
Sprilhdoae ... • auch for CPC 6128. 664 und 
464 erhältlich 278," 

MoUSe *: hodrwertig mit hnerface ■ Zei- 
chenaoftware wie beim Llghtpen (Kunatbemich) 

■ JoyauckanachluB am tntarface 448," 

Video Digltiser *: F-inloaen vt® 

Bildern n den Computer möglich • auch für 
CPC 6128,664 und 464erMUdich 348,-- 

■(•) fUr Joyce und 6128 2»,- . 


^A*pUri 


/flk'tronics-Produkte für ''N 
Joyce 

256 k RAM -Erweiterung 109,- 

Joystick-Controler * 69,-- 

Joystick-Controler + Sound - 
Synthesizer • 129,-- 

Echtze ituhrenmod ul • 129,-- 

Adapter (alle Module mit *) 29,- 

Supercopy - Joyce 

Diskettenkopierprogramm der Super 
lative (auch für CPC 6128,664 und 
464 erhältlich) 89,- j 


Joyce Software 


Busincss-Sür 298,- 

Fibu-Star 298,-- 

Sutistik-Star 98,- 

Datei-Star 98,-- 

dBase 13 199,- 

Wordstar 199,- 

Multiplan 199,-- 

Prompt (Datei) 69.— 

Prompt (Druck) 39,- 

MICA (CAD) 198,- 

Star Mail 98,- 

Sur Base 198,•• 

DR Graph 199,-- 

DR Draw 199,-- 

Turbo-Pascal 225,-- 

Proftrem 178,-- 

Fakturem 98,-- 

Fibuking 136,-- 

Turbo Adress 169,- 

Business Pack (Lager, 

Adress, Fakturierung) 198,- 
Datamat Joyce 298,-- 

LocoMail 128,-- 

Tasword 8000 78,-- 

Joyce-Mailing-System 189,-- 
Vereinsverwaltung 199,- 

RH-Dat 89,-- 

Vokabeltrainer 59,-- 

yVerbentrainer 49,— , 


Jo yce • Zubehör 

Farbband Drucker 24.90 

Parallel-Seriell-Schnittstelle 148,- 
B-Laufwerk FD2 548,- 

5 1/4" 1MB Laufwerk 498,- 

Bildschirmfilter 59,-- 

37,- 

ce 15,-- 

Süc) 16, - 

10 Disk. 3" CF2/ 2DD 69,-/149,- 
Diskettenbox 3740 39.80 

Endlospapier 1000 Blau 19.80 

Joystick Competiiion Pro 39,•• 

Hardware Preise 

Joyce PCW 8256 1-598,-- 

VJoyce Plus 8512_ 2.198,-- 


AMX-Sdtengestalter 178,-- 

(erolien Sie nch Ihr eigene» Seitmlayout • mit 
deutadvxn Handbuch; ab Sepc. 1987) 

AMX-Mouse+Adapter 328,- 

(kanbinierhw mit AMX-SeitBn^Maller) 

Gerdes-Joyce- Mou.se 249,- 

fmit Orafikpmgnunm und Baaic-Erwcifcrung) 

Public Domain Software (CP/M) 
(ca. 1000 Programme auf 2S6 Diakonen) 

Jede Diskette 20,- 

Neueste Joyce-Spiele !! 


Bfttratn 

*4,- 

Bounder 

39,- 

Bridge Ray« 

59,- 

Blaager/Guardian 

59,- 

Cridcet 

59,- 

3D Qock Cheaa 

49,- 

P.B. B<nmg 

*9.- 

Herma of Kam 

59.- 

S.AÜ. Raid 

«9,- 

Je well of Darkeeaa 59,- 

Tomahawk 

59,- 

tLA. 




f Grafpad III \ 

Das Professionelle CAD-System für den Joyce und für den 
PC! 


Joyce: 548,- DM 

PC: 698,- DM 

mit deutschem Handbuch! 


deutsches Handbuch auch einzeln 
erhältlich: 29.80 DM 

Einzelinfo anfordern! 


A Frei wählbarer Zeichen- 


Sprung 

A 16 verschiedene Linien- 


ien, kippen, rotieren, 
kopieren 

A Verschieben und löschen 
aller Symbole, Texte, 
Objekte 

A Vergrößern und ver¬ 
klebtem 
A Schraffieren 
A Automatisches Ban aßen 


salz 

A Maßeinheiten können 
angegeben werden 
A 16 verschiedene Zcich- 
nungsebenen 
A Symbolbibliotheken 
können angelegt werden 
A Stufenlose Zoom f unk - 
Uonen 

A Freiwählbares Raster 
A Freiwählbarer Cursor- 


Drucker (Matrix + Typenrad) 

Typenrad: 

SD 15 


Matrix: 


Centronics GLP 

398,- 

Centronics GLP U 

498,- 

DMP 2000* 

538,- 

DMP 3000* 

583,- 

DMP 4000 

898,- 

Star NL 10 

798,- 

NECP6 

1.248,— 

NEC P6 color 

1.448,- 


• neu: Dan-Scanner für DMP (siehe rechte Seite!) 






































































f Schaltplanservice \ 


CPC 464-664-6128 

Je 

19.80 

PCW 8256-8512 


24.80 

CTM655 


15,- 

CTM640 


12,- 

GT 64/65 

Je 

12,- 

PC 1512 


29.80 

Monitor CM/MM 

Je 

19.80 

Vokabeltrainer: 

K 

39,- 

Joyce 59,~ 

Verbentrainer: 

D 

49,- 

K 

29,- 

i^Joyce 49,- 

D 

39, v 


f Multiface II, 

das Kopierprogramm 


^ AMDRUM 

wandelt Ihren CPC 464/664/6128 
in ein digitales Schlagzeug! 

Durch den Gebrauch von digital 
aufgezeichnelen Trommeln werder 
Ergebnisse erzielt, die bisher nur 
auf extrem teuren Maschinen mög 
lieh waren. 

• 8 digital aufgenommene realist. 
Drum-Geräusche 

• Songs können auf Band gespei¬ 
chen werden 

• kompl. mit Software u. dtsch. 
Handbuch 119,- DM 

\\dapter (6128)_ 29,- 


Eletric Studio Produkte'N 

für CPC (6128/664/464) 

Light pen* 

• Freihandzeichnen auf Monitor 

• gängige Funktionen wie Bleistift, 
Sprühdose, Radiergummi, Invers 
(auch für Joyce u. PC erhältlich) 

DM 98,- 

Video Digltlser* 

• Einlesen von Bildern (Video) in 
Computer 

• mit notwendiger Software 
(auch für Joyce erhältlich) 

DM 348,- 

Adapter «12». 664 ) dm 29,- V 



Multiface II - das heißt für Sie 3 

Funktionen in einem! 

• Vollständige Kopiereinrichtung für 
Kassetten und Disketten 

• Besteht aus 8k RAM und 8k ROM 
Erweiterung und wird lediglich auf 
den Expansionsport Ihres CPC (464, 
664 und 6128) aufgesteckt 

• Wahlweises Kopieren von Kas. auf 
Disk, und umgekehrt, sowie von 
Kas. zu Kas. und Disk, zu Disk. 

• Kopien jedes im Speicher stehende 
Programm auf Kas. oder Disk. 

• Ladezeit von 64k Programmen: 
Diskette unter 20 sec. / Kassette 
unter 1 min 

nur DM 178,» 

Adapter (6128) 29,- 

Mirage Imager, 
Kopierprogramm 

• ähnlich Multiface II 

• wurde in England von Fachjouma- 
listen zum Zubehör des Jahres 1986 
erklärt 

nur DM 178,» 

Adapter (6128) 29,- 


/AMX 


AMX Seitengestalter 

• kombinierbar zur AMX-Mouse 

• erlaubt Herstellung von Zeitung¬ 
en, Poster und Handzettel 

• benötigt 64k Zusatzspeicher bei 
464 und 664 (nur dk'tronics II) 

Programm incl. dtsch. Handbuch 
DM 178,- 

Handbuch dtsch. auch einzeln er¬ 
hältlich DM 29.80 
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Gerd es-Maus CPC 
Joyce MousePack 


228,- 

249,- 


Neuü 

Star Mouse: 

• spanische Maus mit Grafiksoft¬ 
ware ähnlich AMX-Mouse 
zum sensationellen Preis von 
. nur 168,- 


AMX-Mouse 

• erleichtert die Benutzung des 
Mikrocomputers und stellt einen 
großen Fortschriu dar 

• Steuerung des Computers über 
den Bildschirm 

• mit hervorragendem Grafikpro¬ 
gramm 

• Text und Grafik können vermischt 
werden 

Programm incl. dtsch. Handbuch 
DM 248,- 

(auch für Joyce erhältlich) 

Handbuch dtsch. auch einzeln 

erhädich DM 29.80 


/MARKT & TECHNIK Software für CPC 464, 

' und 6128 

WordSur 3.0 für 464, 664 (3" oder 5 1/4"-Diskette) 

Wordstar 3.0 für 6128 (3”-Diskette) 

Multiplan für 464, 664 (3” oder 5 1/4") 

Multiplan für 6128 (3"-Diskettc) 
dBase n für 464,664 (3” oder 5 1/4") 
dBase ü für 6128 (3"-Diskette) 

Turbo Lader Grundpaket 464,664,6128 
Turbo Pascal ohne Grafikunterstützung 464/664,6128 
Turbo Pascal mit Grafikunterstützung 464/664,6128 
Turbo-Tutor 464/664,6128 
CBasic Compiler 80 464,664,6128 


66TN 

199,- 

199,- 

199,- 

199,- 

199,- 

199,- 

138,- 

226,- 

285,- 

105,- 

174,-/ 


/^D-Soflware CPC/Jovce 

Ca. 1000 Programme auf 300 Dis¬ 
ketten warten auf Ihren Einsatz! 
Bestehend aus hauptsächlich ameri¬ 
kanischen und englischen CP/M Pro 
grammen für Ihren CPC 464, 664, 
6128 und Joyce. 

Urne, injoitn wd dabei: 

PaacaJ Compiler • C-Compiler • Barth • U*p • 
dBue Progra m me • Tip* * Trkki dBuc • At- 
•embier ■ Diaaacmbier * Diakr ttenmonher • 

Z 80Aaaembler • Teilmiilrr • und viele mehr 
(Der Gamm Ural* lag wird bei da Eritbe- 
•UJIung mltgellerertl) 

k Jede Diskette (3\ 3.S', 51/4-) 20,-- 


PD-Programme mit dtsch. HandbS 
Nr. 1: Pascal-Compiler (JRT) 

Nr.2: Z80 Assembler, Disassem¬ 
bler und Linker 
Nr.3: Interpreter für Lisp und 
Prolog 

Nr.4: C-Compiler (Small Q 
Nr.5: Förth-83 
Nr.6: CP/M-Hilfsprog ramme 
Diskettenmonilor 
Nr.7: Großes CPC Arbeitsbuch 
Nr.8: Colossal Cave-Adventure 
JRT-Puc*l, SmaU-C und Lijp hendtigat cre 
64k Speiche rer wcitrung 

Diskette (3", 51/4") 30,- j 


/TV Tuner für CPC ^ 

Machen Sie aus Ihrem Schneider 
CPC-Computer einen Farbfernseher: 

TV-tuner Ser «ms: 

• milSiationstasien: DM 298,- 
TY-tuner dk'tronics 

• kristallklares Bild in allen 4 Kanälen 

DM 298,- 



Bltt« Elnzrllnfo anfordernl 




f Supercopy > 

Das Diskettenkopierprogramm der Super¬ 
lative für den Scfmeider CPC 464,664, 
6128 und Joyce! 

- Sicherheilkopie anlegen möglich! 

- Sehr bedienungsfreundlich und schnell 

- 100% MC, bearbeitet alle 43 Spuren 
• Unterstützt 2. Laufwerk 

- Volle Speichcrausnutzung bei Joyce und 
Joyce Plus 

SoUle Supercopy einmal etwa* sich! Khaflcn: 

Senden Sie die Orgmaldiakooe threi Pro gram™ und 
von SUPEROOPY *n den Honte Iler, dum erhallen Sie 
koamla* ehe neue Venicn incl. der Erkennung der 
neuen Kopicnchuacs. 

" Diskette CPC's 79,- Joyce 89,- . 


dk'tronics Produkte 


/Handbücher deutsch ^ 

Grafpad 3 

Lightpen dk'tronics 

64/256 k Erweiterung dk'tronics 

Mouse Elektrik Studio 

Lightpen Elektrik Studio 

AMX Mouse 

AMX Seiten gestalter 

Amdmm 

Video Digitizer je 29.80 

Special Text-Adventure! 
Kassette 29,- Diskette 39,- 
.Info anfordem! 


/Sonderangebot!! 

CPC 6128 grün in 
orginal AMSTRAD 
Ausführung 

nur 695,- DM 

Weitere orginal AMSTRAD Produkte 
werden folgen! 

Beachten Sie die nächsten Anzeigen 


Wichtiges Zubehör > 
Netzteil MP 2 99- 

Druckerkabel 464,664, 6128 38.— 

Monitor Veriängerang 464 22.50 

Monitor Verlängerung 6128 24.50 

Druckerständer SICOS 38,— 

Monitordrehständer 48,- 

Farbbänder: 

Okimate 20 19.80 

NLQ401 14.80 

DMP 2000/3000 19.80 

StarNL 10 29.80 

Panasonic 1090/92 29.80 

Disketten: 

10 x 5 1/4" SS/DS 29,- 39.- 
10x3,5" 1DD/2DD 39,- 49,~ 

10x3" CF 2D/2DD 69,- 148,- 

Diskettenbox: 

3"/3,5" 40 39.80 

3"/3,5" 80 49.80 

Joystick Compet Pro 5000 39,- 

Joystick Schneider 35,- 

Etiketten: 

(70x70 mm) 200 Stk. 16,- 

Endlospapicr 1000 Blatt 19.80 
Abdeckhauben: 

Konsole 464,664,6128 19.80 

DMP 2000/3000 19.80 

Floppy DD1, FD1, Vortex 16.80 

Monitor grün / color 29.80 

Hardware Schneider CPC 
CPC 6128 grün 748,- 

CPC 6128 color 1.198,- 

CPC 464 Keyboard 269,- 

Monitor grün 179,- 

Monitor Color 628, 

DD1 mit Controller 448,- 

FD1 mit Kabel 448- 

RS 232 (464,664) 148.- 

RS 232 (6128) 168.- 

Dart Scanner 249,- 

• Hilfsmittel zum Digitalisieren von 
Büdem mit DMP 2000 
v_InfaaafQrdcmll__ 




/ür 464/664: 


für 6128: 


Speech Synth. (ROM) 

12»,- 

256k Erweiterung • 

24»,- 

Speech Synth. (Kas.) 

#»,« 

256k Silicon Di*k • 

249,- 

(Kal.) 

59,- 

Speech Synth.(ROM) * 

139,- 

Lightpen (ROM) 

»9,- 

Lightpen (ROM) • 

19,- 

64k Enwonenrng 

109,- 

64k Silicat Duk • 

**>- 

256k Erweiterung 

249,- 

Adapter (•) 

29,- 


Kari-lfciia • Potadamcr Rung 10 *7150 Backnang ■ Telex 724410 weeba d 



256k Silicon Dmk 

für Joyce: 

256k Erweiterung 
Joyanck-Cuiaroller * 
Joyatick-CuntroUer + 
Soundaynth.* 
Echtzeuuhnnmodul • 12»,- 
29,- 







Computer - Elektronik 

Achtung! Wir liefern auch gern 
in die Schweiz und nach Ostereich! 
Zahlung im Inland per Nachnahme, im 
Ausland per Scheck erwünschLVersand- 
kostenpauschale 6.80 DM. 

(07191/1528-29 bzw. 60076) 

Bitte Einzelinfo anfordern! 


J 


















































































I—Serie 


individuelles Titelbild erstellen; dennoch 
wollen wir hier auch ein spezielles HEK- 
TDC-Titelbild vorstellen. Dieses Titelbild 
soll vollständig in BASIC programmiert 
und in das Basisprogramm miteingebun¬ 
den werden. Wichtig für Titelbilder ge¬ 
nerell ist erst einmal ein ansprechender 
Rahmen. Dann muß irgendwo innerhalb 


dieses Rahmens der Schriftzug erschei¬ 
nen (in unserem Falle »HEKTIK«). Und 
da tauchen schon die ersten Fragen auf. 
So leuchtet ein, daß der Schriftzug 
»HEKTIK« in der Darstellung durch den 
Schneider Standard-Zeichensatz sicher 
keinen Hund hinter dem Ofen hervor¬ 
locken wird. Es muß also ein Weg gefun¬ 


den werden, um diesem Schriftzug ein 
wenig mehr optisches Gewicht zu ver¬ 
schaffen. So kann man aus Zeichen des 
normalen Schneider Zeichensatzes grö¬ 
ßere Buchstaben konstruieren. Ein »A« 
beispielsweise könnte man folgenderma¬ 
ßen darstellen: 

/////// 
ii n 

ii n 

mm n 
n n 

ii n 

ii // 

Man setzt also die einzelnen Zeichen aus 
Strichen zusammen. Das gibt dem Zei¬ 
chen ein wirklich ansprechendes Ausse¬ 
hen. Aus genau solchen Strichen werden 
wir die einzelnen Zeichen des Schriftbil¬ 
des »HEKTIK« zusammensetzen. Natür¬ 
lich muß auch neben diesen beiden Din¬ 
gen, also Rahmen und Schrifbild, noch 
etwas geschehen. Titelbilder sind nur 
dann wirklich interessant, wenn auch »et¬ 
was geschieht«. 

Zunächst einmal muß also Bewegung auf 
den Bildschirm. Eine häufig angewandte 
Möglichkeit (etwa bei dem immer noch 
beliebten »PAC-MAN«) besteht darin, 
schon einmal die Spielfigur vorzustellen. 
So könnte man also die Spielfigur (in un¬ 
serem Falle Karlchen) von links nach 
rechts über den Bildschirm huschen las¬ 
sen, wobei er von seinen Feinden ver¬ 
folgt wird. Ebenso könnte nach der Dar¬ 
stellung des Titelbildes ein Demo- 
Durchlauf des Spiellevels programmiert 
werden, damit das ganze noch ungleich 
professioneller wird. 

Jedoch ist uns die zuletzt genannte Mög¬ 
lichkeit momentan noch ein wenig zu 
zeitaufwendig. Da halten wir uns schon 
lieber an das vorher genannte. Wir er¬ 
zeugen also ein BASIC-Programm, wel¬ 
ches zuerst den Schriftzug »HEKTIK« in 
unserer großen Schrift ausgibt und da¬ 
nach Karl, verfolgt von einem Monk, 
über den Bildschirm sausen läßt. Diese 
Darstellung von Karl soll nach den glei¬ 
chen Prinzipien geschehen, wie sie auch 
schon im Assembler-Quelltext realisiert 
wurde. Aus den unterschiedlichen Bewe¬ 
gungszuständen von Karlchen wird 
durch Addition des Statusflags der benö¬ 
tigte Zeichencode errechnet und dann 
dargestellt. 

Das einzige, was bei unserer Titel-Rou¬ 
tine noch fehlt, ist eine ausgefeilte Me¬ 
lodie. Aber nach Folge 5 sollte das kei¬ 
nem aufmerksamen Leser von »Schnei¬ 
der International« mehr schwerfallen. 
Nach dieser Folge zum Ausruhen, wer¬ 
den wir uns in der nächsten Folge noch¬ 
mals mit wirklich komplexen und kniff¬ 
ligen Problemen der Informatik ausein¬ 
andersetzten, damit wir die so sorgsam 
erarbeiteteten Spiellevels auch wirklich 
in den Spielablauf mit einbinden können. 

(Martin Althaus/Markus Zietlow) 
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Serie—i 


Bild 5 


1 MEMORY &9EOO-1: LOAD »obj0.obj":POKE &9C3 £14841 
0.&C9 

2 MODE 1:PRIHT TAB<8>;»Darstellung aller L £44881 
evels" 

3 LOCATE 1,25:PRIHT," Taste":GOSUB 6 £23693 

4 FOR i=*0 TO 3: POKE 4A021,i:CALL »9C00 £16013 

5 LOCATE 1,25:PRINT"Level: »;i+l:GOSUB 6:N £28431 
EXT i:EFD 

6 a®=IHKEYS: IF a*="" THBH 6:ELSE RBTURH £22781 


Bild 6 


1 • 

2 ' HEKTIK - Basisprogramm 

3 • 

4 MEMORY &9C00—1:M0DB 1:MDVE 0 

,0:DRAV 

0,39 

£1171 
£20211 
C1173 
£26611 

9,1: DRAV 639,399,1:DRAV 839,0,1 

5 DRAV 0,0,1:LOCATE 1,4:VIHDOV#!,3,80. 

,4,15 

£20601 

6 PRIHT#1,"// // ///// // / 

////// //// 

£22403 

// /" 

7 PRIHT#1,"// // // // / 

// 

// 

£25071 

// /» 

8 PRIHT#!,"// // // /// 

// 

// 

£21793 

///” 

9 PRIHT#1,"////// //// /// 

// 

// 

£17241 

///" 

10 PRIHT#1,"// // // /// 

// 

// 

£21791 

///" 

11 PRIHT#1,"// // // // / 

// 

// 

£25071 

// /» 

12 PRIHT#!,"// // ///// // / 

// 

//// 

£22591 


// /" 

13 MDVE 22, 230: DRAV 612,230:DRAV 612,365: D £33043 
RA$" 22,365:DRAV 22,230 

14 MDVE 22,365:DRAV 32,375: DRAV 622,375:DR £28361 
AV 612,365:MOVE 622,375 

15 DRAV 622, 240:DRAV 612,230 £6621 

16 LOCATE 11,14:P»="das ultimative Spiel": £40513 
FOR 1=1 TO LEH<p4> 

17 PRIHT CHRSC143);CHR*<8>;:SQUHD 1,150-i* £51721 
5,10,10:FOR j=l TO BO:HEXT 

18 PRIHT MIDS<p*,i,1);:HEXT i:LOAD”obj0.ob £3860] 

J” 

19 SYMBOL 241,56,124,116,118,124,56,8,120 £24791 

20 SYMBOL 242,252,187,56,56,248,140,132,3 £25633 

21 SYMBOL 243,252,187,56,56,40,72,40,14 £21583 

22 SYMBOL 244,129,66,231,255,153,231,126,3 £21413 
6 

23 SYMBOL 245, 255,255,0,231,231,0,255,255 £22633 

24 SYMBOL 246,231,231,0,255,255,0,231,231 £20113 

25 i=2:k=37:v=0:LOCATE 8,24:PRIHT"Bitte ei £55983 
ne Taste druecken" 

26 LOCATE 2,20:FOR J = 1 TO 19:PRIHT CHRSC24 £37933 
5>;CHRS<246>; : HEXT J 


27 LOCATE i,18:PRIHT CHR$<241>:LOCATE i,19 £38353 
:PRIHT CHR*<242+v> 

28 LOCATE k,19:PRIHT CHR*<244):SQUHD 2,130 £28141 
,1,13 

29 SOUHD 1,450,1,15: a$=IHKEY$: IF aSO"" TH £27573 
EH 34 

30 FOR j=l TO 50:HEXT j:LOCATE i,18:PRIHT" £22333 
LOCATE i,19:PRIHT" ” 

31 LOCATE k,19:PRIHT" " £13873 

32 v=<v XOR 1):i=i+l:k=k+l:IF 1<=39 THBN 3 £14283 
3:ELSE i=2:GOTO 27 

33 IF k<=39 THEH 27:ELSE k=2:GQT0 27 £17133 

34 CALL &9C00 £5933 



Listing I 


Erweiterungen da« Qualltaxtea 
20006 help: d#fb 0 

20306 Id h,a 

20202 ld (help),a 

27749 levarg: dafb 0,5,1 

27750 dafw kontrl 

27752 defb 1,5,3 

27754 dafw kontrl 

27756 defb 2,5,2 

2775B dafw kontrl 

27760 dafb 3,5,3 

27762 dafw kontrl 

27801 dafw Ievel2 

27802 dafw l«vel3 

27B03 dafw level4 

28005 level2i dafb 13,1,1,10,0,3,2,19,1,10,1,6,1,1,12,15,0,16,5,11,1 
28007 defb 14,5,10,0,7,26,7,1,12,26,5,1,5,26,11,0,10,35,6,0 

28009 dafb 16,35,3,1,14,16,10,0,1,40,23,0 

28011 dafb 4,2,21,15,33,6,6,9,30,2 

28013 level3i dafb 18,3,1,20,1,1,1,10,0,1,40,10,0,7,10,10,1,11,1,5,1 
28015 dafb 11,29,6,1,5,10,6,0,5,29,6,0,9,5,10,0,9,34,10,0 

28017 dafb 18,2,19,1,17,1,7,0,17,40,7,0,12,14,6,1,10,13,8,0 

28019 dafb 10,26,8,0,16,20,8,0,5,20,7,0 

2B021 dafb 5,2,35,2,9,17,30,17,15,6 

28023 level4i defb 17,1,1,7,0,3,2,4,1,1,10,17,0,7,11,3,1,16,1,8,0 

28025 dafb 18,2,10,1,11,21,7,0,5,17,9,0,13,17,2,1,13,22,6,1 

28027 defb 11,27,13,0,1,33,12,0,1,40,23,0,3,34,3,1,9,34,3,1 

28029 dafb 16,15,8,0,19,28,6,1 

28031 dafb 5,2,14,6,37,2,24,12,18,17 

20307 add a,h | durch »4 und +1 esstzen 


I -Hilfbyt# 

j ueber Reqaitar h 

; -Spislstufe sichern 

; -Spielatufe li Level,Monkzahl, 
I Monktyp und Kontrolladresse 
I -Spielstufe 2 

I -Spielstufe 3 

I -Spiel stufe 4 


JOYCE SOFTWARE 



ADRESSENVERUALTUN6 

HAUSVERWALTUNG 

KFZ - ABRECHNUN8 

TERMINKALENDER 

FAHRTENBUCH 

IMOFOX 


MARTIN KEMPENICH 
COMPUTER HARD- U. SOFTWARE 
ZETASTRASSE 13 
6220 RÜDESHEIM 4 


1200/2400 Adressen DM -4.9. OO 
mit Graphik DM 50. OO 

mit Varbauchanalyse DM 50. OO 
DM 50 . OO 
DM 50 - OO 
Immobl lienverwalt. DM oo . OO 


/ 

A 


SRAPHOFOX 


Erstellen und Drucken von Balken- 
Kuchandiagrammen. dreidimensional, 

DIN A 4 Hardcopys. 

DM vu . OO 


Finanzbuchhaltung, 1000 Einträge, 
mit Bilanz, Uat.-Voranmeldung u.a. 

DM lOS . OO 


Branchansoftvare für; 

- Zahntechnische Labore: 

- Schreinereien 


Versand Vorkasse oder Nachnahme + 5 0M Varsandkosten 
Infos anfordern / Händleranfragen erwünscht 


BRANDHEISSE KNÜLLERPREISE 


Schneider 

CPC 0128 mit Grünmonilor 

729- 

Epsondrucker (dl Verelon) 

AnschluMertlfl «n AMIGA, Schneider PC oder 


CPC 6128 mit Farbmonitor 

1189,- 

CPC. Ala« ST 1 IQM-Kompaliole 

579.- 

Joyce PCW 8256 

1549,- 

LX 800 

Joyce Plus 

2099- 

FX 900 

1029.- 

Joyce-Maus (Rsisware) 

249.- 

FX 1000 

1299,- 

3" Disketten (Maxell CF2) 10 SL 

79- 

LQ 800 

1478.- 

30 St 

199- 

LO 1000 

1929- 

Drucker Schneider DMP 3000 

559- 

LQ2S00 

2599,- 

Schneider DMP 4000 

849.- 

EX 800 

1399- 

PC 1512 mit SW-mon + 1 Laufwerk 

1349,- 

EX 1000 

1699,- 

mitSW-mon * 2 Laufwerke 

1769- 

1X800 

1649,- 

PC 16(2 mit Farbmon + 1 Laufwerk 

1789- 

SO 2500 

3229.- 

mltFart,,non.+ 2 Laufwerke 

2199- 

Cotorembausau für EX 8001000 

219.- 

20 MB-Festplena (Seeaale) + Controller 

779- 

EmjelWattelraug EX/FX/LO 800 

399,- 

20 MB-Feslplalle (Lapine. Lift-off 

Aulomalik) + Controller 

989- 

Stardrucker (dt. Version) 

NL 10 mit Comm . Centronics oder IBM 

699,- 

20 MB-FHecard (Lapins) 

1099- 

NO-IO mit CentronicssehnmaleRe 

879,- 

30 MB-Filecard (Lapins) 

1249,- 

Commodore 


Akutllkkoppler Detaphon S 21 d/2 

229- 

Commodore PC-10 II 

2149,- 

Graflktablett Koalapad für IBM-Kbmpatible 


Commodore PC-20 II 

2899,- 

mllCalorgrallkkarle * Gameport 

199- 

Commodore AMIGA 500 

1099.- 

NEC-Druokar (dt. Version) 


AMIGA 500 . Firbmonltor 1081 

1869- 

NECP6 

1199- 

Commodore AMIGA 2000 

2499,- 

NECPSColor 

1549- 

AMIGA 2000 + Farbmonitor 1081 

3199,- 

NECP7 

1599- 

Drucker MPS 1000 mit Centronics- 


NEC P 7 Colo, 

1899.- 

und Commodoreschn.itelelle 

649,- 


Wr&ondKa»tenoauscfcai® (Warenart Die DM 1000,-/darüber): Vbrauskaaae (DM 0.-/2O.-) Nachnahme (DM 11.20/23.20), Ausland 
(DM 1R-/30,-) L»efe'u^ nu* g*gen NN odar Vtorauskasse; Ausland nur Vorauekaase. Preishate (Computertyp angaben) gegen 
Zu»»ndung mm Ff«ium*cWao* 


CSV RIEGERT 

SchloBhofstr. 5, 7324 Rechberghausen, Tel. (071 61) 52089 
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Profi! 



Teils 


Dies ist jetzt schon die dritte Folge 
dieser Befehlserweiterung und 
gleichzeitig auch eine der leistungs¬ 
fähigsten. Hier dürften Sie wahr¬ 
scheinlich eine »Weltpremiere« für 
die CPC’s erleben, denn meines 
Wissens nach ist es das erste Mal, 
daß ein System veröffentlicht wird, 
bei dem Sie 26 verschiedene Farben 
bei 80 Zeichen pro Zeile (bzw. 
640200 Pixels) benutzen können, 
wovon immerhin 16 (!) im be¬ 
schreibbaren Ausschnitt des Bild¬ 
schirmes zuverwenden sind. Diese 
Farbfähigkeit entspricht dem spe¬ 
zial hochauflösenden Modus des 
neuen SCHNEIDER PC 1512 (!). 

Allerdings gilt dies nur mit einer Ein¬ 
schränkung, die ich auch nicht ver¬ 
schweigen will. Beim PC 1512 können 
Sie jeden der 128.000 Punkte in einer der 
16 Farben darstellen, während Sie beim 
CPC (auch 128.000 Pixels!) an soge¬ 
nannte Farb-Balken, wie später noch ge¬ 
nau erklärt wird, gebunden sind. Gleich¬ 
zeitig absolut neu ist die Möglichkeit, 
8 (!) Mal den Mode wechseln zu können 
und die Graphik in verschiedenen Auf¬ 
lösungen gleichzeitig darstellen zu kön¬ 


nen. Bisher war letzteres, wenn über¬ 
haupt, nur bei Text-Ausgaben gegeben. 

Das einzige Negative dürfte sein, daß di- 
ses Programm erst zu diesem relativ spä¬ 
ten Zeitpunkt veröffentlicht wird, da es 
bei mir privat bereits seit fast 2 Jahren 
läuft. Nun, besser spät als nie. Damit 
jetzt auch Sie diese Erweiterung einset- 
zen können, beenden wir hier schnell¬ 
stens diese Einleitung und gehen zur Er¬ 
klärung der Befehle über. Mit Hilfe die¬ 
ser Erweiterung, in Anlehnung an das 
Firmwarehandbuch zum CPC könnte 
man es als SCREEN PACK von Profi 
RSX bezeichnen, können Sie den Bild¬ 
schirm in bis zu 8 Abschnitte einteilen. 
Diese Abschnitte kann man auch als Bal¬ 
ken ansehen, wir werden sie hier jedoch 
unter der Bezeichnung BEREICHe füh¬ 
ren. Falls Sie sich mit weniger Farben 
zufrieden geben wollen, oder die Berei¬ 
che für Ihren Anwendungsfall größer 
sein sollen, sind auch 4 Bereiche mög¬ 
lich. Die Anordnung der Bereiche ent¬ 
nehmen Sie bitte den Abbildungen 1 und 
2 . 

Für jeden von diesen Bereichen können 
Sie den Auflösungsmodus (0,1,2) sowie 


die Farben für alle 16 Stifte seperat set¬ 
zen. Selbstverständlich ist auch das be¬ 
kannte Blinken einzelner Sifte möglich 
und in der Geschwindigkeit frei wählbar. 

Diese Eigenschaften werden in 8 Farb- 
tabellen festgehalten, wobei standardmä¬ 
ßig Farbtabelle 0 für den BEREICH 0 
zuständig ist. Dies ist aber nicht zwin¬ 
gend, jedem BEREICH kann irgendeine 
Farbtabelle zugeordnet sein. Es kann 
auch eine Farbtabelle für mehrere (oder 
alle) Bereiche gültig sein. 

Fassen wir kurz zusammen: 

Es gibt entweder 4 oder 8 BEREICHe, 
die die Nummern 0 bis 7 haben. Dabei 
geht die Zählung, wie aus den Abbildun¬ 
gen ersichtlich, von oben nach unten. 
Die Bereiche 0-3 sind immer vorhan¬ 
den, während die anderen 4 BEREICHe 
nur bei der zweiten Version benutzbar 
sind. Alle Bereiche umfassen entweder 
3 oder 6 Bildschirmzeilen, nur der letz¬ 
te Bereich hat eine Zeile mehr, um auf 
eine Gesamtzeilenzahl von 25 zu kom¬ 
men. Der Rahmen oberhalb des be¬ 
schreibbaren Bereiches entspricht dem 
»normalen« Rahmen, während der unter¬ 
halb liegende die höchste Nummer hat 
und gesondert definiert werden kann. Es 
gibt 8 Farbtabellen (0—7), wobei jede 
Tabelle folgende Features beinhaltet: 

a) einen Bildschirmmodus (0, 1, 2) 

b) die Farben für die 16 Stifte (1. und 2. 
Farbe) 

c) die zugehörige Rahmenfarbe 

Dabei kann jede Tabelle einen oder meh¬ 
reren Bereichen zugeordnet werden, für 
welche ihre Eigenschaften gelten. 

Das Zuweisen einer Farbtabelle zu ei¬ 
nem Bereich ist mit Hilfe des Befehls 

IBEREICH, 

Nummer des Bereiches, 
Nummer der Farbtabelle 

möglich. 

Mit den Befehlen INK, BORDER, 
MODE können Sie die Farben/Modi für 
die einzelnen Tabellen neu festlegen. 
Falls Sie eine bestimmte Eigenschaft für 
alle Farbtabellen gleichzeitig definieren 
wollen, so gibt es die Befehle RI, RM, 
RB, RIN. RI steht für Reset Inks und be¬ 
wirkt, daß alle Farben auf die normalen 
Werte gesetzt werden. RM bewirkt das 
gleiche für die Modi, während der Befehl 
RB die beiden vorgenannten Befehle zu¬ 
sammenfaßt. Falls Sie vergessen haben, 
welche Farbtabelle Sie welchem Bereich 
zugeordnet haben, so weist der Befehl 
RIN den Bereichen ihre Standardtabel¬ 
len zu. 


f ^ 

normale Rahmenfarbe 


Rahmen 0 

Bildschirm-Bereich 0 

(6 Zeilen) 

Rahmen 0 

Rahmen 1 

Bildschirm-Bereich 1 

(6 Zeilen) 

Rahmen 1 

Rahmen 2 

Bildschirm-Bereich 2 

(8 Zeilen) 

Rahmen 2 

Rahmen 3 

Bildschirm-Bereich 3 

(7_ Ze i len ) 

Rahmen 3 


Rahmen 4 

\_ " _ J 

Abb.l 
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Das Aktivieren des Systems geschieht 
mit BON, während DEL dieses System 
wieder ausschaltet. Die Bildschirmver¬ 
waltung ist also nicht ständig eingeschal¬ 
tet. Mit den Befehlen BMI und BM2 
können Sie die Version aus wählen (4 
oder 8 Bereiche). 

Jetzt haben Sie im Schnelldurchgang alle 
Befehle kennengelernt, bis auf den Be¬ 
fehl 

IGMODE, Mode. 

Dies hat seine Ursache darin, daß wir 
diesen näher betrachten wollen. Denn 
hiermit ist es (wahrscheinlich) erstmals 
möglich, alle Graphik-Auflösungen 
gleichzeitig anzuwenden. Daß dies nicht 
möglich sein soll, wie man schon lesen 
oder hören konnte, stimmt nicht. Die 
Frage, wie dies realisiert werden kann, 
ist jedoch berechtigt. Um eine optimale 
Nutzung zu erreichen, wäre es ideal, 
wenn alle Operationen, die der Locomo- 
tive BASIC-Befehl MODE anstellt, auch 
beim Befehl GMODE durchgeführt wür¬ 
den. Denn dann wird neben dem kom¬ 
pletten Graphik-Bereich auch der Text- 
Bereich im Gesamten optimal an den 
Mode angepaßt. Das bedeutet, daß auch 
alle Fenster zurückgesetzt werden. 
Wenn wir die Aufgabe, die der Befehl 
GMODE hat, analysieren, so entspre¬ 
chen diese folgerichtig vollständig dem 
MODE-Befehl, mit Ausnahme des Lö¬ 
schens des Bildschirmes. Dieses deshalb, 
weil sonst keine zwei Darstellungen in 
unterschiedlichen Modien möglich wä¬ 
ren. Für unsere MC-Routine bedeutet 
das, daß wir praktisch die normalen 
MODE-Routinen übernehmen können, 
wenn wir irgendwie das Löschen des 
Bildschirmes verhindern können. Und 
hier gibt es tatsächlich eine (noch nicht 
einmal versteckte) Möglichkeit innerhalb 
des Betriebssystemes. Unter den »INDI- 
RECTIONs«, das sind Routinen, die im¬ 
mer an Schlüsselpositionen durch das 
Betriebssystem verwendet werden, gibt 
es die Routine 

SCR MODE CLEAR (&BDEB). 

Der Zweck von Indirections ist es, die 
Arbeitsweise des Betriebssystemes be¬ 
einflussen zu können. Die aufgeführte 
Indirection hat als Aufgabe das Löschen 
des Bildschirmes. Da wir dies verhin¬ 
dern müssen, sperren wir diese Routine 
einfach. Dadurch wird der Bildschirm 
beim Aufruf der MODE-Routine der 
Firmware nicht mehr gelöscht. Unsere 
GMODE-Routine muß also folgend ab¬ 
laufen: 

1. Sperren von SCR MODE CLEAR 

2. Den neuen Mode setzen 


3. Wiederzulassen des Aufrufes der 
Indirection 

Und das führt die Routine auch aus, wie 
Sie aus Listing 1 entnehmen können. Das 
Sperren wird durch Einsetzen des 
Z80-Befehls RET in die Sprungtabelle 
erreicht und durch das Rückladen des al¬ 
ten Inhaltes wieder anuliert. An der Kür¬ 
ze der Routine können Sie auch erken¬ 
nen, daß dieses eine der simpelsten Rou¬ 
tine innerhalb von Profi RSX ist. Trotz¬ 
dem ist dieses noch kaum - wenn 
überhaupt — bekannt. Zum Abschluß 
möchte ich noch auf eine Routine hin- 
weisen, die Ihnen auf den ersten Blick 
nicht auffallen wird. 

Wie Sie sich denken können, kostet das 
ständige Setzen der unterschiedlichen 
Farben Zeit, und das nicht zu knapp. Das 
Einfachste wäre es gewesen, die Routi¬ 
ne, die das Setzen der Farben zur Aufga¬ 
be hat, so zu konzipieren, daß diese 
»stur«, Bereich für Bereich, die Farben 
ausgibt, unabhängig von den Farben. 
Dabei wird es aller Wahrscheinlichkeit 
nach nicht Vorkommen, daß in allen Be¬ 
reichen unterschiedliche Farben zur An¬ 
wendung kommen. Wenn nun in zwei 
aufeinanderfolgenden Bereichen die glei¬ 
chen Farben und Modien definiert sind, 
wäre es doch »Blödsinn«, diese auch dop¬ 
pelt auszugeben. Deshalb wird bei jeder 
Abänderung der monentanen Konfigura¬ 
tion intern überprüft, ob eine Ausgabe 
eingespart werden kann, damit möglichst 
wenig Rechenkapazität für Ihre Pro¬ 
gramme verloren geht. Da aber nun den 


Bereichen unterschiedliche Tabellen zu¬ 
geordnet werden können, oder sogar 
mehrere Bereiche von einer Tabelle ver¬ 
sorgt werden, gestaltet sich dieses sehr 
komplex, da zudem einzelne Bereiche 
aufgrund der internen Steuerung vonein¬ 
ander abhängen usw. Leider ist die Rou¬ 
tine dadurch ziemlich lang geworden. 
Sie haben dafür aber die Gewißheit, daß 
für die Bildschirm-Darstellung nur soviel 
Rechenleistung abgezweigt wird, wie 
unbedingt erforderlich ist. Wie Sie hier 
sehen, habe ich mich bemüht, auch die¬ 
sen Bereich optimal zu gestalten, auch 
wenn er »nur« in einer Zeitschrift veröf¬ 
fentlicht und nicht professionell ver¬ 
marktet wird. Auch die saubere Bild¬ 
schirmdarstellung dürfte zu Ihrer Zufrie¬ 
denheit ausgeführt worden sein. 
Anmerken möchte ich noch, daß ich sel¬ 
ber noch eine andere Routine besitze, die 
insgesamt erheblich schneller arbeitet. 
Doch hat diese den Nachteil, daß sie 
nicht in der Lage ist, sich selbstständig 
mit dem Bildschirmaufbau zu synchro¬ 
nisieren. Da ich Ihnen dies nicht zumu¬ 
ten will, habe ich diese Version nicht ge¬ 
wählt. Den oben genannten Effekt (un¬ 
terschiedliche Geschwindigkeit je nach 
Farbenhäufikeit) können Sie selbstver¬ 
ständlich per Benchmark-Test überprü¬ 
fen. Am krassesten wird der Unterschied 
zwischen einem »einheitlichen Bild¬ 
schirm« und 8 unterschiedlichen Berei¬ 
chen ausfallen, aber auch das Überein¬ 
stimmen zweier aufeinander folgender 
Bereiche bringt einen Gewinn. Bitte 


normale Rahmenfarbe 


Rahmen 

0 

Bildschirm-Bereich 

0 

(3 

Zeilen) 

Rahmen 

0 

Rahmen 

1 

Bildschirm-Bereich 

1 

(3 

Zeilen) 

Rahmen 

1 

Rahmen 

2 

Bildschirm-Bereich 

2 

(3 

Zeilen) 

Rahmen 

2 

Rahmen 

3 

Bildschirm-Bereich 

3 

(3 

Zeilen) 

Rahmen 

3 

Rahmen 

4 

Bildschirm-Bereich 

4 

(3 

Zeilen) 

Rahmen 

4 

Rahmen 

5 

Bildschirm-Bereich 

5 

(3 

Zeilen) 

Rahmen 

5 

Rahmen 

6 

Bildschirm-Bereich 

6 

(3 

Zeilen 

Rahmen 

6 

Rahmen 

7 

Bildschirm-Bereich 

7 

(4 

Zeilen) 

Rahmen 

7 










Rahmen 8 


AbbT 
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überprüfen Sie das selber. Für die Freun¬ 
de der Assembler-Sprache folgt hier: 

Die Assembler-Ecke 
Bis jetzt haben Sie viele neue RSX-Be- 
fehle kennengelemt. Die Anwendung 
unter Locomotive BASIC dürfte dabei 
keine Probleme gemacht haben. Hier 
übernimmt der Interpreter für Sie die 
notwendige Übergabe der Parameter. In 
Assembler ist das leider nicht so komfor¬ 
tabel. Hier müssen Sie die Aufgaben des 
Interpreters mit übernehmen. Um nun zu 
sehen, was auf Sie zukommt, wenn Sie 
Profi RSX in Ihre MC-Programme ein¬ 
binden wollen, ist es nützlich, wenn wir 
das Innenleben Ihres CPC in Bezug auf 
unser Problem näher betrachten. Ich 
könnte es Ihnen natürlich auch kompri¬ 
miert in 5 Zeilen ohne jeglichen Kom¬ 
mentar darlegen, doch das würden die 
meisten unter Ihnen wahrscheinlich als 
* zu kurz empfinden. Und schließlich wol¬ 
len Sie doch auch noch was lernen, oder 
irre ich mich hier? Mich würde es übri¬ 
gens sehr interessieren, ob der in dieser 
Serie veröffentlichte Stoff zu schwer/ 
leicht, zu kurz oder zu langatmig etc. ist. 
Schreiben Sie uns doch einmal kurz Ihre 
Meinung hierzu.Wie werden die zusätz¬ 
lichen Routinen der RSXen nun vom Be¬ 
triebssystem verwaltet? Die Verwaltung 
aller Erweiterungen, sei es eine RSX 
oder ein zusätzliches ROM, obliegt na¬ 
türlich dem Betriebssytem. Innerhalb 
dessen ist der sogenannte Betriebssy¬ 
stem-Kern für uns interessant, da dieser 
die Verwaltung zur Aufgabe hat. Außer¬ 
dem stellt er uns einige nützliche Routi¬ 
nen bereit. Übrigens: Nach den Dekla¬ 
rationen der Firmen Amstrad/Locomo- 
tive sowie Schneider, wird der Betriebs- 
sytem-Kern unter der englischen 
Bezeichnung KERNEL (KL) geführt. Es 


befindet sich wie alle Firmware-Routi¬ 
nen im unteren ROM und zwar im Be¬ 
reich von 0 bis &057F (CPC 464), 
&057A (CPC 664), &0591 (CPC 6128). 
Dabei sind für uns folgende Routinen in¬ 
teressant: 

KL CHOKE OFF (RAM-Einsprung 
ab: &BCC8) 

KL ROM WALK (RAM-Einsprung 
ab: &BCCB) 

KL INIT BACK (RAM-Einsprung ab: 
&BCCE) 

KL LOG EXT (RAM-Einsprung ab: 
&BCD1) 

KL FIND COMMAND (RAM-Ein¬ 
sprung ab: &BCD4) 

Wenn Sie »genug« von den RSX-Befeh- 
len haben (kann ja Vorkommen), so bietet 
sich die Routine KL CHOKE OFF an, 
um diesen den »Dolchstoß« zu versetzen. 

Nach dem Aufruf haben Sie diese »erle¬ 
digt«, d.h. das Betriebssystem hat sie aus 
seinem »Gedächtnis« (in Form von Spei¬ 
cherstellen) gestrichen. Dabei sind die 
Routinen jedoch keinesfalls gelöscht, sie 
existieren unverändert weiter. Sie sind 
eben nur aus dem Verzeichnis des Sy¬ 
stems entfernt worden. 

Aber Achtung! 

Auch die Diskettenkomandos sind 
»futsch«. Das bedeutet, daß Sie weder 
das Inhaltsverzeichnis auflisten können 
(DIR), noch Dateien umbenennen (REN) 
oder löschen (ERA) können. Diese Rou¬ 
tine können Sie sowohl von MC-Pro- 
grammen als auch aus BASIC heraus 
aufrufen, da sie keine Einsprung-Bedin¬ 
gungen hat. 

KL ROM WALK ist für uns weniger in¬ 
teressant, gleiches gilt auch für KL INIT 
BACK. Beide Routinen beschäftigen 


sich mit der Initalisierung von Hinter- 
grund-ROMs und sind von BASIC aus 
nicht ohne weiteres aufrufbar. Da blei¬ 
ben dann schließlich noch zwei Routi¬ 
nen, die aber für uns existenzielle Bedeu¬ 
tung haben. Ohne Sie gäbe es keine 
RSX-Kommandos, Vorder- oder Hinter- 
grund-ROMs, geschweige denn diese 
Serie. Diese Routinen brauchen wir so¬ 
wohl für die Anmeldung als auch für den 
Aufruf der Routinen. Bevor wir die Fra¬ 
ge klären, wie wir RSX-Routinen benut¬ 
zen können, hier erst einmal der Weg um 
RSXen zu initalisieren.Dazu brauchen 
wir zuerst einmal eine möglichst sinnvol¬ 
le und zweckmäßige Routine, sowie de¬ 
ren Adresse. Dabei muß dies keine von 
Ihren eigenen Routinen sein, Sie können 
auch vorhandene aus anderen Program¬ 
men oder aus den ROMs benutzen. Bei 
den ROM-Routinen muß nur gesichert 
sein, daß der jeweilige RAM/ROM-Zu- 
stand hergestellt wird.Zusätzlich benö¬ 
tigen Sie einen einprägsamen Namen, 
der auch einen Bezug zur Wirkung der 
Routine haben sollte.Nachdem diese 
Voraussetzungen erfüllt sind, laden Sie 
zweckmäßigerweise Ihren Assembler, 
um das notwenige Initalisierungspro- 
gramm schreiben zu können. Wie Sie das 
machen und vor allen wie Sie es richtig 
machen, zeigt Ihnen Listing 2. Hier se¬ 
hen Sie die originale Initalisierungsrou- 
tine der Graphik-Befehle aus unserer 
Folge 1 aufgelistet. 

Übrigens sind alle Assembler-Program¬ 
me mit dem von Schneider vertriebenen 
DEVPAC-Assembler erstellt worden. 
Falls einige Assembler-Anweisungen 
oder die Art der (Hex-) Zahl-Darstellung 
bei Ihrem Assembler hiervon abwei¬ 
chen, z.B. DB statt DEFB, müssen Sie 
dies bei der Eingabe beachten.Nach dem 
Copyright-Vermerk (Wie Sie hier sehen, 
ist die Erweiterung, in »Computerzeit¬ 
maßstäben« betrachtet, eigentlich schon 
»uralt«. Es sind mittlerweile schon über 
2 Jahre vergangen, seit diese Erweite¬ 
rung in Angriff genommen wurde. Auch 
die (fast) entgültige Fertigstellung liegt 
schon weit über ein Jahr zurück ) folgt 
zunächst die Festlegung des Speicher- 
Bereiches, indem Sie die Erweiterung 
ablegen wollen. 

Aber Achtung: Sowohl die RSX-Kom- 
mandotabelle sowie der notwendige 
Speicherbereich des Kernes müssen in 
den zentralen 32K des RAMs liegen (von 
&4000 bis &BFFF), damit sie sich nicht 
mit den ROMs überschneiden. Danach 
müssen Sie nun bei KL LOG EXT die 
Erweiterung anmelden, damit diese sie 
zu den übrigen hinzufügen kann. Dabei 


10090 ;- 

10110 ; 

10130 ;********* G H 0 D E - Befehl von Profi RSX ********** 
10150 i 

10170 tfuer aTle Schneider/Asstrad Colour Personal Computer 
10190 ; 

10210 ;**** Copyright 4/1985 (01/1987) by Klaus Kramer ***** 
10230 5 

10250 ;- 

10270 ; 


10290 GMODE: 

CP 

1 

;1 Parameter? 


10310 

RET 

NZ 

;HEIM? >RETURN 


10330 

EAR 

LD 

HL,SCRCLEAR 

;HL:=Adresse der Indirectlon SCR HODE 

CL 

10350 

LD 

A,(HL) 

; momentanen Inhalt 


10370 

PUSH 

AF 

; merken 


10390 

PUSH 

HL 

iAdresse ebenfalls sichern 


10410 

LD 

A, #C9 

;A:=Obcode von >RET< 


10430 

LD 

(HL),A 

; SCR KODE CLEAR sperren 


10450 

LD 

A,(IX) 

i geuuenscbten HODE 


10470 

CALL 

SETKODE 

; holen und setzen 


10490 

POP 

HL 

; Adresse und 


10510 

POP 

AF 

; zugehoerigen Inhalt wiederholen 


10530 

chen 

LD 

(HL),A 

i und die Routine wieder zugaenglich 

ma 

10550 

RET 


;das war schon alles! 



10570 ; 
10590 ;• 
10610 ; 
Listing 1 
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erwartet KL LOG EXT im Dopelregister 
BC die Adresse der RSX-Kommandota- 
belle und im HL-Register die Adresse ei¬ 
nes 4-Byte langen Bereiches im RAM, 
welcher zur internen Verwaltung ge¬ 
braucht wird. 

Für Spezialisten: Hiermit wird die Ver¬ 
kettung von mehreren RSXen möglich, 
indem der Kern hier die Adresse der 
nächsten Erweiterung abspeichert. Die 
einzelnen Erweiterungen werden also 
»verkettet«. In der anzugebenen Tabel¬ 
le müssen Sie zuerst die Adresse der Be¬ 
fehlsnamen vermerken (Länge des Ein¬ 
trages: 2 Bytes). 

Danach folgen anschließend sofort die 
Sprünge auf die einzelnen Routinen, wo¬ 
bei Sie nicht unbedingt einen JP xyz-Be- 
fehl verwenden müssen, ein RST-Befehl 
ist genauso möglich und erlaubt. Wich¬ 
tig ist nur, daß die Länge eines Eintrages 
3 Bytes beträgt. Die Befehlsnamen müs¬ 
sen Sie in einer gesonderten Tabelle auf¬ 
führen, und zwar in der gleichen Reihen¬ 
folge wie die Sprung-Befehle! Der Name 
kann jedoch nicht beliebig lang sein, da 
nur 16 Zeichen signifikant sind. Dabei 
muß im letzten Zeichen jedes Namens 


das 7. Bit gesetzt sein, was zur Folge hat, 
daß Sie nur die Zeichen von 0 bis 127 
verwenden dürfen. 

Bitte beachten Sie: Locomotive BASIC 
kann nur Befehle mit Großbuchstaben 
aufrufen! Außerdem ist es nicht in der 
Lage, Leerzeichen, etc. zu verarbeiten. 

TIP: Soll Ihre Erweiterung vor BASIC- 
Zugriffen sicher sein, so geben Sie die¬ 
ser einen Namen, der von BASIC nicht 
verarbeitet werden kann. Diesen Trick 
haben übrigens die Programmierer von 
Locomotive Software, welche für das 
Disketten-Interface verantwortlich 
zeichnen, auch angewandt. Die Spezia¬ 
listen unter unseren Lesern werden wis¬ 
sen, worum’s hier geht. Die Befehle zur 
direkten Beeinflussung von Laufwerks- 
Eigenschaften haben die »Namen« &01 
bis &09.Wenn Sie aufgepaßt haben, 
dann wissen Sie die richtigen Namen, die 
hierfür in die Tabelle mit den Befehlsna¬ 
men eingetragen werden müßten. Für 
alle anderen an dieser Stelle die Auflö¬ 
sung: Es sind statt &01 und &02 die Zei¬ 
chen &81 und &82. Warum, fragen Sie? 
Da das Ende eines Namens durch das ge¬ 
setzte 7te Bit gekennzeichnet wird und es 


sich bei diesem Fall um einen Ein-Zei- 
chen-Namen handelt, ist das erste Zei¬ 
chen gleichzeitig das letzte und muß fol¬ 
gerichtig auch dementsprechend behan¬ 
delt werden. Das Ende einer Tabelle (nur 
der NAMEN-Tabelle) wird durch eine 0 
definiert. Die Sprung-Tabelle benötigt 
keinen Ende-Eintrag. Die Befehle sind 
nun eingebunden und können deswegen 
jetzt auch genutzt werden. 

Wie aber geht dies nun in Assembler? 
Für diesen Zweck benötigen wir jetzt die 
letzte der aufgelisteten Routinen, die uns 
freundlicherweise die meiste Arbeit ab¬ 
nimmt. Listing 3 zeigt Ihnen auch gleich, 
wie es gemacht werden sollte. 

Lfm ein Kommando aufrufen zu können, 
brauchen Sie im HL-Doppelregister die 
Adresse des Befehlsnamen, welcher »ir¬ 
gendwo«, auch unterhalb eines ROMs, 
stehen darf. Selbstverständlich muß Bit 
7 des letzten Zeichens wieder gesetzt 
sein. KL FIND COMMAND sucht nach 
dessen Aufruf im RAM sowie allen vor¬ 
handenen ROMs nach dem Kommando. 
Falls es dieses findet, setzt es als »Er¬ 
folgsmeldung« das CARRY auf wahr 
(1). Zusätzlich gibt die Routine in HL die 
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CPC 

Kassette / Diskette 

Joyce 

Diskette 

Barrier Reel 

9.90 

1 

Distractions 

59,90 

Cosmic Shock Absorber 

34,90 

1 44,90 

Fourth Protocol 

49,90 

DAA 

9,90 

1 

Head over Heels 

49,90 

Hydio Pool 

32,90 

1 44,90 

Multi Database -*• Toolkit 

49,90 

Leviathan 

32,90 

/ 44,90 

Newsdesk International 

169,90 

Mag Max 

32,90 

/ 44.90 

Ourwl 

69,90 

Masterchess 

9,90 

1 

Tasprmt 8000 

49,90 

Metro Cross 

34.90 

1 44.90 



Mrllionaire 

9,90 

/ 

IBM-Kompatible Diskette 

Pneumatic Hammers 

9,90 

1 

Boulder Dash 

34.90 

Pulsator 

32,90 

1 44,90 

Botilder Dash II 

•34,90 

Red Scorpron 

29,90 

1 

Championship Gott 

79,90 

Robbbot 

34,90 

1 44,90 

Destroyer 

79,90 

Spy vs Spy II 

34,90 

/ 44,90 

Mmd Dance 

34.90 

Slryle 

34,90 

1 44.90 

Space Max 

129.- 

Take 4 

19.90 


Starglider 

69,90 


dk'tronlcs-Produkte 

Neu: TV-Receiver für CPC-Mcmitor 298, - (Exportmodell, Betrieb in der BRD nicht gestattet.) 


CPC Spelcüertraeltirangin 

DM 

64« tui «64X664 

109, - 

?56K lut -IM-6M 

249,- 

256K lüi 6128 

•249,- 

Silicon Ohe 

2S6K len 464ffiW 

249,- 

256Klui61?8 

•240, - 

Spooen-S»itlhtUj«i 

(CassnflB 46J'664) 

•9.- 

(30V 

129.- 

IKOW612B) 

•138.— 

Lljhl-Pon (Fortmoa.) 

t&SJWe 464J664I 

0M 59.- 

IH0M 464'66«) 

DM 19- 

(ROM 61261 

•OM 19- 



Jurte DM 

Joyslk* Conlroller (programmn'barj ‘69, - 

Sound Synlhesrai + Joyslick Comrotler '129,- 

Ectitaituhren Modul *129. — 

256K Speicnetenveile'img ' 11)9,- 

Aoap!» lür alle Geräte mH • 29, - 


Alte Geräte haben einen durchgeführten Systembus und können hinleremanoei aui den Erweilerungsport ge¬ 
steckt werden, für die mit * gekennzeichneten Geräte benötigen Sie deshalb auch nur einen Adapter zur Um¬ 
setzung von Schneider- aul Amslrad-Anschluß. Händierantragen «wünscht. 
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Adresse der gesuchten Routine sowie in 
C die zugehörige ROM-Adresse zurück. 
Handelt es sich um eine RAM-Routine, 
können Sie die ROM-Adresse vernach¬ 
lässigen. Dann können Sie die Routine 
direkt mit einem JP (HL)-Befehl ansprin- 
gen, sofern Sie bereits alle Register ver¬ 
sorgt haben. Andernfalls sollten Sie die 
Adressen Zwischenspeichern. ROM 
Routinen können Sie direkt mit 

CALL &001B (KL FAR PCHL) 

an springen. 

Wenn der Befehl nicht gefunden wird, 
weil er nicht existiert oder Sie vorher be¬ 


reits mit KL CHOKE OFF »aufgeräumt« 
haben, ist das CARRY auf 0. 

Die meisten RSX-Befehle haben Ein¬ 
sprungsbedingungen. Für alle Profi 
RSX-Befehle gelten die Standard-For¬ 
mulierungen, die wie folgt festgelegt 
sind: 

— im A-Register: Anzahl der Parameter 

- im IX-Register: Adresse des letzten 
Parameters 

Dabei müssen Sie in IX die »untere« 
Adresse der Parameter angeben, was 
gleichzeitig die Adresse des letzten Pa¬ 
rameters ist. Alle Parameter sind 2 By¬ 
tes lang. Den 3 letzten Parameter können 


Sie z.B. mit folgender Befehlsfolge in ein 
Doppelregister (hier: HL) laden, bzw. 
umgekehrt abspeichem: 

LDL,(IX+4) 

LDH,(IX+ 5) 

Die Art des Parameters muß der in der 
entsprechenden Befehlsliste aufgeführ¬ 
ten Version entsprechen. Sie dürfen sich 
hier keinen Fehler erlauben, da die Pa¬ 
rameter-Art (Integer-Zahl, vozeichenbe- 
haftete Integer-Zahl, String-Adresse) 
nicht von der aufzurufenden Routine 
kontrolliert werden kann. Schlimmsten¬ 
falls kann es bei falschen Parametern zu 
einem System-Absturz kommen. 

Bei der Rückkehr aus den RSX-Routinen 
sind die Inhalte der Register AF, BC, 
DE, HL, IX, IY möglicherweise zer¬ 
stört, der alternative Registersatz ist je¬ 
doch unverändert. 

Bei allen Profi RSX-Befehlen können Sie 
den JP (HL)-Sprung verwenden. Bei 
ROM-Routinen kann es sein, daß diese 
auch eine Übergabe von Parametern im 
HL- oder C-Register verlangen. In die¬ 
sem Fall können Sie einen RST 3 (&18) 
-Befehl benutzen. 

Damit dürfte jetzt zumindest das Wich¬ 
tigste erklärt worden sein. Wenn Sie die¬ 
se Erklärungen sorgfälltig verfolgt ha¬ 
ben, steht einer sinnvollen Nutzung der 
Profi RSX-Befehle auch unter Maschi¬ 
nensprache nichts mehr im Wege. 

Tippen Sie jetzt den BASIC-Loader ab 
und starten Sie diesen, nachdem Sie den 
BASIC-Speicher durch 

MEMORY 36751 

herabgesetzt haben. Anschließend si¬ 
chern Sie den M-Code dann sofort aut 
Kassette/Diskette. Das Sichern des BA- 
SIC-Loaders dürfen Sie auf keinem Fall 
vergessen, damit eventuell nicht bemerk¬ 
te Tipp-Fehler korrigiert werden kön¬ 
nen. Den M-Code sollten Sie auf jeden 
Fall unter dem folgenden Namen spei¬ 
chern: 

SAVE“S-464“ ,b,&8F90,&96AB-&8F9ö. 

Besitzer eines 664 bzw. 6128 ändern die 
Zeichefolge >464< wieder in >664< 
bzw. > 6128 < . 

Danach setzen Sie den Rechner komplett 
zurück (durch CTRL-SHIFT-ESC). Falls 
Sie dann mit Profi RSX arbeiten möch¬ 
ten, so befolgen Sie beim Laden bitte fol¬ 
gende Reihenfolge: 


10 

ENT $ 


3® ;RSX-Befehlserueiterung >- P 

r o f i RSX-< 

50 ;Copyright (c) by Klaus Kremer 

(5/4/85) 

130 ; 

150 

ORG #9FA0 


170 RELOC: 


;DEFS 1 

190 

LD BC,RSX 

;Adresse der RSX-Befehlstabe1le 

210 

LD HL,SPEICHER 

;Adresse 4 Byte RAM fuer Kernal 

230 

CALL LOGEXT 

;Erueiterung einbinden 

250 

LD A,#C9 

;A'-=0bcode fuer >RET< 

270 

LD (RELOC),A 

;nochmaligen Aufruf unterbinden 

290 

RET 

;und Initalisierung beenden 

310 SPEICH: 

DEFS 4 

;Speicher fuer Kernal 

330 RSX: 

DEFW NAHE TABELLE 

^Adresse der Befehlsnamen 

350 

JP QUADRAT 

;Befehl-Nummer 0 

370 

JP AQUADRAT 

; 1 

390 

JP RECHTECK 

;2 

410 

JP ARECHTECK 

;3 

430 

JP CIRCLE 

;4 

450 

JP ACIRCLE 

;5 

470 

JP ELLIPSE 

;6 

490 

JP AELLIPSE 

;7 

510 

JP VIELECK 

;8 

530 

JP AVIELECK 

;9 

550 

JP FORCE 

; 10 

570 

JP XOR 

; 11 

590 

JP OR 

; 12 

610 

JP AND 

; 13 

630 

JP INVERT 

; 14 

650 

JP AVGENAU 

; 15 

870 NAHE_T 

DEFM “QUADRA" 


890 

DEFB "T"+#80 

;0 

910 

DEFH "A.QUADRA" 


930 

DEFB "T"+#80 

; 1 

950 

DEFM "RECHTEC" 


970 

DEFB "K"+#80 

i 2 

990 

DEFH "A.RECHTEC" 


1010 

DEFB "K"+#80 

;3 

1030 

DEFH "CIRCL" 


1050 

DEFB "E"+#80 

; 4 

1070 

DEFH "GDIS“ 


1090 

DEFB “C“+#80 

;5 

1110 

DEFM "ELLIPS" 


1130 

DEFB "E"+#80 

; 6 

1150 

DEFM "A.ELLIPS" 


1170 

DEFB "E"+#80 

;7 

1190 

DEFM "VIELEC" 


1210 

DEFB "K"+#80 

,8 

1230 

DEFH "A.VIELEC" 


1250 

DEFB "K“+#80 

;9 

1270 

DEFM "FORC" 


1290 

DEFB "E"+#80 

; 10 

1310 

DEFM "XO" 


1330 

DEFB "R“+#80 

; 11 

1350 

DEFM “O" 


1370 

DEFB “R"+#80 

; 12 

1390 

DEFM "AN" 


14 10 

DEFB "D"+#80 

; 13 

1430 

DEFH “INVER" 


1450 

DEFB "T"+#80 

; 14 

1470 

DEFM "A.V.GENA" 


1490 

DEFB "U“+#80 

; 15 

1730 ; 

1750 

DEFB 0 


1770 ; 

1790 ; 

1810 ■,********************************************************** 

Listing 2 
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MEMORY 36751 
LOAD “G1-464.BIN“ 

LOAD “G2-464.BIN“ 

LOAD “S-464.BIN“ 

CALL &9FA0 
CALL &96B0 
CALL &8F90 

Wenn Sie sich an diese Vorgaben halten, 
müßte wieder alles klappen. 

Und zum Abschluß folgt noch eine Pre¬ 
miere für unsere Serie. 

Wir veröffentlichen in diesem Monat das 
erste BASIC-Programm, welches unter 
Profi-RSX läuft und dessen Befehle be¬ 
nutzt. 

Es handelt sich zwar nur um ein Demo- 
Programm, aber immerhin! Das Pro¬ 
gramm 1 demonstriert Ihnen die Anwen¬ 
dung der Befehle dieser Folge sowie 
zusätzlich einige Befehle aus unserer 
1. Ausgabe. 

Also nichts wie ran, Profi RSX laden 
(siehe oben), Demo-Programm abtippen 
und starten. (K.Kremer) 


Routine zum Beatimmen der Adresse eines RSX-Befehla 
Fuer alle Schneider/Amstrad Colour Personal Computer 
Cc) bg Klaus Kremer 12/19B6 


10 
30 
SO 
70 
SO 
110 
130 
150 
170 
ISO 

210 FINOCO: EQU #BCIJ4 
230 ; 

250 A_BEFE: DEFM "BEFEHLSNAfl 
270 OEFB "E''-M»B0 

sein! 


;KL FIND CQMnAND 

;BeFehlanamen abspelcharn 
;Bit 7 des letzten Zeichens muss gesetzt 


290 

310 

330 

350 

370 

390 

410 

430 

450 

470 

490 

510 

530 

550 

570 

590 

510 


hier kann irgendeine Routine stBhan 


LD HL,A_BEF£HL 
CALL FINOCOnriAND 
RET NC 


Adresse des Befehls nach HL 

KL FIND COnnAND aufrufen 

nicht gefunden? »Routine abbrechen 


;in 'C' : ROn-Ausuahladresse 
;in 'HL': Adresse der Routine 
iausserdem: A, B, DE zerstoert 


630 ;Sle koennBn die Adresse des Befehls Zwischenspeichern 
550 ; 

G70 ;odsr die Routine direkt anspringBn 
590 : 


710 ;Z.B. mit >JP (HL1<. 
730 ; 

750 ;Ende des Beispiels 


Listing3 


Befehlsliste Teil 3: Bildschirm-Steuerung 


Diese Erweiterung erlaubt das Einteilen 
des Bildschirmes in bis zu 8 Bereiche, für 
die jeweils der Mode sowie die Farben 
frei definierbar sind. Dadurch ist es mög¬ 
lich, bis zu 8 mal den Modus zu wechseln 
und 26 Farben (davon 16 im beschreib¬ 
baren Bildschirmteil) im MODE 2 (also 
bei 80 Zeichen/Zeile (!)) darzustellen! 
Die folgende Tabelle zeigt die theore¬ 
tisch mögliche FarbenanzahJ, wenn sich 
der ganze Bildschirm in einem Mode be¬ 
findet. Da der Schneider CPC jedoch 
maximal nur 27 Farben darstellen kann, 
müssen teilweise einzelne Farben mehr¬ 
fach verwendet werden. 

(siehe Tabelle 1) 

Die normale Farbensteuerung wird 
durch Profi-RSX abgeschaltet und durch 
eine neue ersetzt. Diese steuert nun die 
Farben (inkl. Blinken der Farben) in den 
einzelnen Bereichen. 

Der Bildschirm kann in 2 Versionen be¬ 
handelt werden. Grundsätzlich wird er in 


Bereiche, die mehrere Zeilen umfassen, 
aufgeteilt. Es sind 8 oder 4 Bereiche 
möglich. Die Aufteilung erfolgt wie 
nachfolgend dargestellt. 

42. BM2 (keine Parameter) 

— Dieser Befehl bewirkt das Umschal¬ 
ten auf die Version mit 8 Bereichen: 
(siehe Tabelle 2) 

43. BMI (keine Parameter) 

— Hiermit können Sie die 4-Bereiche- 
Version einschalten (sofern sie nicht 
bereits aktiviert ist), (siehe Tabelle 3) 

Für jeden Bildschirm-Bereich sowie für 
den zugehörigen Rahmen kann nun mit 
Hilfe der nachstehend aufgeführten Be¬ 
fehle der Modus sowie die Farben fest¬ 
gelegt werden. 

44. MODE, Farbtabellen-Nr., Mode 

— Setzt den Mode für die angegebene 
Farbtabelle. 


45. BORDER, Farbtabellen-Nr., 

1. Farbe (, 2. Farbe) 

— Hiermit können Sie die Farbe für den 
Rand des Bereiches setzen. 

FARBTABELLE: 

Es gibt 8 Farbtabellen, wobei standard¬ 
mäßig Farbtabelle Nr.O dem Bereich 0 
zugeordnet ist, Farbtabelle 1 dem Be¬ 
reich 1 usw. 

Die Nummer der Farbtabelle entspricht 
also in der Regel der Nummer des Bild¬ 
schirm-Bereiches . 

Es ist aber auch möglich, eine Farbtabel¬ 
le einem anderen Bereich zu zuordnen, 
bzw. eine Farbtabelle für mehrere Berei¬ 
che zusammen zu definieren. Eine Farb¬ 
tabelle enthält 16 mal die Nummern der 
Farben für die 16 möglichen Stifte (1. 
und 2. Farbe) sowie der Farben für den 
Rand. 

46. INK, Farbtabellen-Nr., Stift-Nr., 

1. Farbe (, 2. Farbe) 

— Setzt den angegebenen Stift (Nummer 
kann von 0 bis 15 gehen) auf die ge¬ 
wünschte Farbe. Entsprechend ändert 
sich die Farbe auf dem Monitor in den 
Bereichen, für die die Tabelle gilt. 


Schriftfeld 

Rand 

Insgesamt 

MODE 0z 126 (!) 

10 

136 

MODE 1 : 32 

10 

42 

MODE 2: 16 

10 

26 

Tabelle 1 
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normale Rahmenfarbe 


= Rahmen 0 


Bildschirm-Bereich 0 <3 Zeilen) 


Rahmen 0 = 


= Rahmen 1 


Bi 1dschirm-Bereich 1 (3 Zeilen) 


Rahmen 1 = 


= Rahmen 2 


Bi 1dschirm-Bereich 2 <3 Zeilen) 


Rahmen 


= Rahmen 


Bi 1dschirm-Bereich 3 (3 Zeilen) 


Rahmen 3 = 


= Rahmen 4 


Bi 1dschirm-Bereich 4 <3 Zeilen) 


Rahmen 4 = 


— Rahmen 5 


Bi 1dschirm-Bereich 5 <3 Zeilen) 


Rahmen 


= Rahmen 6 


Bi 1dschirm-Bereich 6 (3 Zeilen 


Rahmen 6 = 


~ Rahmen 7 


Bi 1dschirm-Bereich 7 (4 Zeilen) 


Rahmen 7 = 


Rahmen 8 


Tabelle 2 


normale Rahmenfarbe 


= Rahmen 0 


Bildschirm-Bereich 0 (6 Zeilen) 


Rahmen 0 = 


= Rahmen 1 


Bildschirm-Bereich 1 (6 Zeilen) 


Rahmen 1 = 


= Rahmen 


Bi 1dschirm-Bereich 2 (6 Zeilen) 


Rahmen 2 = 


= Rahmen 3 


Bildschirm-Bereich 3 (7 Zeilen) 


Rahmen 3 = 


Rahmen 4 



Die 2. Farbe muß nicht mit angegeben 
werden. Fehlt diese Farbe, so wird 
die 2. Farbe auf die Werte der 1. Far¬ 
be gesetzt, die entsprechenden Punkte 
auf dem Bildschirm blinken dann 
nicht. 

47. BEREICH, Bereich-Nr., Farbtabel- 

len-Nr, 

— Der Befehl weist dem Bereich eine an¬ 
dere (oder die Standard-) Farbtabel- 
le zu, 

— Die Bereich-Nr. geht je nach einge¬ 
schalteter Version von 0-3 oder 
0—7. Dabei geht die Zählung von 
oben nach unten. 

48. RI (keine Parameter) 

— Setzt alle Sifte der Farbtabellen auf die 
Standardfarben (die Farben, die ohne 
die Erweiterung gelten würden) zu¬ 
rück. 

49. RM (keine Parameter) 

— Setzen aller Farbtabellen auf den 
Standardmodus. 

50. RB (keine Parameter) 

— Verbindet RI und RM miteinander. 

51. SYNC (keine Parameter) 

— Zur Feinsynchronisation der Anzeige, 

— Falls ein Bereich nicht mit der oberen 
Kante eine Schriftzeile abschließt, 
dann muß die Steuerung mit dem 
Elektronenstrahl des Bildschirmes 
synchronisiert werden. Dazu muß 
dieser Befehl maximal ca. 7 mal hin¬ 
tereinander aufgerufen werden. 

— Der Befehl wird meistens nach 
Kassetten- oder Diskettenzugriff not¬ 
wendig, da diese die Synchronisation! 
zerstören können. 

52. 1BON (keine Parameter) 

— Schaltet die Steuerung ein (die derzeit 
gültige Version). 

53. RIN (keine Parameter) 

— Weist allen Bereichen ihre Standard- 
Farbtabellen zu. 

54. DEL (keine Parameter) 

— Schaltet die Steuerung wieder aus. 

55. GMODE, Mode 

— Schaltet die Text- und Graphik-Dar¬ 
stellung auf einen anderen Mode um, 
ohne den Bildschirm zu löschen. An¬ 
sonsten entspricht dieser Befehl dem 
normalen BASIC-Befehl »MODE X«. 

— Er ist notwendig, um z.B. Graphiken 
in der dem Bereich entsprechenden 
Auflösung zu zeichnen. 
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Lisiing 4 

10 C21433 


SO ’ 

30 ’Dama dar Profi RSX-Befehle fuer den Bi 
ldschirm und dar Graphik 
40 ’ 

50 'Copyright (c) 19BB by K. Kramer 
BO ' 

7 0 • 


BO ' 

30 INK 0,0:INK S.liMOOE 0 
100 bS-"RECHTECK,UIELECK,KREIS” 

110 ’ 

180 !RB:'alle Baraioha zuruecksetzen 
130 * 

140 IMODE,0,2: 'Bereich 0 Cganz oben? auf tl 
oda 2 umschalten 
150 ' 

160 !nODE,7,S;'gleiches gilt fuer den letz 
tep Bereich 
170 ' 

1B0 SINK.0,1,5,B*i: IINK.0,0,13: 'Farben fuer 
Tabelia 0 CBarBich 03 fastlegen 
190 IINK.7,1,6,26:!INK,7,0,B:'Farben fuer 
Tabelle 7 (Bereich 73 festlagBn 
200 !INK,1,1,26:!INK,1,0,IG:'Farben fuer T 
abBlle 1 CBarBich 13 Feetlegen 
210 !INK,6,1,24:!INK,6,0,0:'Farben Fuer Ta 
belle 6 CBareich 63 Festlagen 
220 'alle anderen Farben dBr Bereiche ants 
prechen dBn Standardfarban 
230 ' 

240 SPEED INK 20,20 
250 ' 

260 FOR 1-1 TO 15:!A.RECHTECK,1*40,200,30, 
100,1:!RECHTECK,600-1*40,120,30,79,IsNEXT: 
FOR 1-1 TO 4:iUIELECK,1*120,200,65,BS,5,1+ 
4,1*3:NEXT:'Rechtecke und Uielecke zBichne 
n 

270 ' 

2B0 :BON:’Bildschirmsteuerung einschalten 
290 ' 

300 !BM2:'B-Bereiche-Uersinn einschaltBn 
310 ’ 

320 mODE.1,1: IBNODE.l:'Bereich 1 auf flode 
1 setzen und Graphik- und Text-Ausgaben a 
uf Hede 1 durch >GH0DE< umschalten 
330 ' 

340 lflODE,6,1:: 'ebenso Bereich 6 auf node 
1 setzen 
350 ' 

360 'alle anderen Bereiche bleiben auf Mad 
e 0, entsprechend dem Grundmadus Csiehe ob 
an >P10DE 0< und >RB< 

370 ’ 

3B0 FOR 1-1 TO 4:iGDISC,1*100+120,66,20,I: 
NEXT:'3 Kreise in node 1 zeichnen 
390 LOCATE 30,20:PEN 2:PRINT"**nODE 1**":L 
QCATE 2,20:PEN 3:PRINT"*“MODE 0**” 

400 ’ 

410 PEN 1:LOCATE 1,5:PRINT”zum Beispiel: ” 
; bS 
420 ’ 

430 !Gt10DE,2: 'Graphik- und Taxt-AusgabBn a 
uf Mode 2 umschalton 
440 ’ 

450 LOCATE 32,3: PRINT"* *(1Q0E2**":L 
OCATE 32,22:PRINT"* * M 0 D E 2 * *” 

460 LOCATE 2B,23:PRINT”* * Cc3 by K. Krem 

er * *” 

470 LOCATE 32,1: PRINT"PR0FI RSX-''+CHRSC243 
+ "Befehle"+CHRSC24 3 
4B0 ' 

490 WINDOW #7,1, BO ,25,25-.PAPER #7,1: PEN #7 
,0:CLS #7:LOCATE #7,26,1:PRINT#7,"WEITER: 
Bitte Taste druecken” 

500 ' 

510 ' 

520 IF INKEYS-’"' THEN 520 
530 ’ 

540 IDEL:’Bildschirmsteuerung ausschalten 
550 ’ 

560 PEN 1: INK 1,24: FlODE 2 
570 ' 

5B0 'das war's **•#♦*#•*♦#*»*'••*##**#*•***# 


C1173 
C25753 

C 1173 
C17773 
C1173 
C21493 

C1173 
CB5B3 
C14643 
C1173 
C22703 
C1173 
C37153 


C1173 
C35373 


L1173 
C46B03 

C49753 


C42103 
C35363 


C460B3 

C1173 
C12903 
C1173 
CB1963 


C117D 
C22633 
C 1173 
C33B43 
C1173 
CB91B3 


C1173 
C29973 

C1173 
C52863 


C1173 
C33373 

C440B3 

C1173 
C25B33 

C1173 
C36423 

C1173 
C 40913 

C 26333 

C46233 

C1173 
C76313 


C 1173 
C1173 
CBBBD 
C1173 
C25493 
C 1173 
C16313 
C1173 
C26913 


Listing 5 


10 '********** BASIC-Loader fuer die Befeh 
lserweiterung Profi RSX ********** 

20 ' 

30 'Teil 3: Bildschirm-Befehle - 


40 

50 

’Programm-Stand: 

18.01.1987 - 

60 

70 

'Version 1 

(fuer 

Schneider CPC 464 0 - 

80 

90 

'Copyright 

(c) 1986 by Klaus Kremer — 


100 ' 

110 ’************************************* 
********************************** 

120 ' 

130 'Initalisierung mit CALL 36752 
140 ' 

150 FOR i=36752 TO 38572:READ a:POKE i.a:N 


EXT 
160 ' 

170 DATA 8tCD, 
8F,4CD, 4D1 
180 DATA 4BC, 
00, 400,400 
190 DATA 4D2, 
C3,8.1D, 8.92 
200 DATA 4C3, 
93,4C3,8i5F 
210 DATA 493, 
46,8.93,4C3 
220 DATA 47D, 
C3,8.07,8.92 
230 DATA 44D, 
4E, 8.CB, 8.42 
240 DATA 44F, 
CD, 8.52,8.C2 
250 DATA 8.42, 
B2,8.53,8.59 
260 DATA 8.4E, 
45,8.49, &43 
270 DATA 8.C8, 
00 , 8 . 00 , 8.00 
280 DATA 8.00, 
21.aFD.8iBl 
290 DATA &35, 
Bl, &21,8.FB 
300 DATA &B1, 
18,&0A,&2B 
310 DATA &7E, 
FO,&21,446 
320 DATA &95, 
21,&D9,&B1 
330 DATA 8.CD, 
3A,&FB,&B1 
340 DATA &B7, 
C9,4F3,43A 
350 DATA &3A, 
22,&1E,494 
360 DATA 43E, 
22,43B,4B9 
370 DATA 4FB, 
94,4FE,405 
380 DATA 421, 
3E,420,43D 
390 DATA 420, 
06,4CA,416 
400 DATA 491, 
3D, 8.CB, 427 
410 DATA 4CB, 
A3,490,4CB 
420 DATA 400, 
20,411,45E 
430 DATA 423, 
AF,403,4B8 
440 DATA 420, 
19,419,419 


45F,493,401,4A6, 
43E,4C9,432,490, 
&8F,4C3,495,493, 
4DC,493,4C3,48D, 
&C3,467,493,4C3, 
493, 4C3,4BC,492, 
44F,444,4C5,444, 
452,444,445, 4D2, 
44F, 4CE, 442, 44D, 
4C3, 452, 449, 4CE, 
447, 44D, 44F, 444, 
400,400,43E,401, 
420,412,4CD,448, 
47E,42F,477,4AF, 
4B7,428,405,4CD, 
45E,423,456,4EB, 
41D,491,4C1,4D1, 
43 A, 4D8, 4B1,4C8 , 
4B9,42A,43B,4B9, 
4CD,421, 450,491, 
4C9,43A,415,494, 
416,494,420,40D, 
4FD,421,452,495, 
4D0.4FE,402,4D8, 
427,4CB,427,406, 
4C2,48B,492,421, 
456,413,413,423, 
4FC, 4EB,418,45F, 


48F,421,4A2,4 
48F,4C9,400,4 
4C3,434,491,4 
492,4C3,405,4 
437,493,4C3,4 
4C3,466,495,4 
445,4CC,449,4 
452,4C9,452,4 
4B1,442,44D,4 

442.445.452.4 
4C5,400,400,4 

432.415.494.4 
490,432,4FD,4 
432,4FC,4B1,4 

448.490.418.4 
4CD,4D4,490,4 
4E1,4F1,4C9,4 
43A,4D7,4B1,4 

432.420.494.4 
432,43A,4B9,4 
43C,432,415,4 
4CB,45E,4C0,4 
418,43C,4FE,4 
4F5,43D,45F,4 
446,4B0,432,4 
446,495,4F1,4 
44E,423,446,4 
416,400,41D,4 


C3717] 

C 117] 
[3571] 

[1171 

[4691] 

£117] 

[4534] 

[117] 

£33861 

[117] 

[2371] 

[117] 

£2051] 

[117] 

12729] 

[1171 

[3383] 

[2266] 

[19583 

[1687] 

£20063 

£20401 

[22561 

[16553 

C23023 

[29203 

£13381 

£20243 

[16533 

£19963 

£21943 

[19123 

£23513 

£26163 

[15723 

£22583 

£26083 

£23453 

£1301) 

£22033 

£23423 

£2600] 

£15123 

£22363 
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450 DATA »19, &5E, »23, »56, »23, &4E, »23, »46, & [1707] 
AF,»03, »B8 

460 DATA »20, »FC, »00, »00, »EB, »7E, »23,»E5, & [1768] 
54,&5D,»D9 

470 DATA &CB,»89,»CB,»81,»Bl,&4F,&D9,&3A,& [1986] 
FB,»Bl,»B7 

480 DATA »11,»11, »00, »20, »01,&19, »EB, »El, & [2751] 
D9,»ED,&49 

490 DATA &D9, »13, &01, »10,»?F, SiED, 8t49, &1A, & [18863 
13,»ED,»79 

500 DATA &0E, »00, »06,»03, »10, »FE, »06, &7F, » [10923 
ED.&49.&1A 

510 DATA &13, »ED,»79,»OC,»ED,&49.&1A,»13,& [20563 
ED,»79,&0C 

520 DATA »79,&BB,»20,&EE,&C9,&21,»14,»94,& [2168] 
06,»79,»10 

530 DATA »FE, »01, »10, &7F,»ED,&49,&3A,&FB,& [22723 
Bl,&B7,&20 

540 DATA &06, SOI, »11, »00,»09,»06,&7F,&7E,» [23123 
F6,»40,»ED 

550 DATA »79, &C9, »AF,»32,»18,&94,&32,&FC,& [17453 
Bl,»CD,»11 

560 DATA »BC, »CD, SIC, »BD, »3A, &20, »94, &2A, » (18943 
IE,»94,»CD 

570 DATA »66, &90, »11, &D9, »Bl, »C3,»25, &BD, & [14073 
08,»30,&0A 

580 DATA »22, »21, »94, &E1, »2A, »21, &94,»C3, & [27713 
70,&B9,&F5 

590 DATA &E5, &D5, &C5, »06, &F5, »ED, »78, &1F, & [31843 
DA.&0C.&90 

600 DATA »CD,&71,»91,&C1,»Dl,»El,»Fl,&C9,& (25283 
3A, »15,»94 

610 DATA »3C,»32,&15,»94,»FE,&05,»21,&16,& [31173 
94,»20, 8r0D 

620 DATA »CB, »76, »CO, &3E, &2C, &3D, »20, »FD, & [20483 
21,»5E,&95 

630 DATA »18, &3B, »FE, »06, »28, »86, »DO, »FE, » (14703 
02,&D8,&F5 

640 DATA &3D, &5F, &3D, »87 , »CB, »27, »CB, »27, & [20833 
CB,»27,»06 

650 DATA »46, »BO, »32, &A6, »91,8rCB, »00, &C2, & [16383 
8B,»92,»21 

660 DATA »46, »95, »Fl, &CB, »FF, »20, »OA, »CD, » (15793 
AD,»90,»EB 

670 DATA &23,»CB,»FF,&C3,»C5,»90,»16,»00,& (16553 
ID, &19,»19 

680 DATA »19, »19,»19,&19,&19,&19,&5E,&23, & [17273 
56,&CB,&7F 

690 DATA &20,ai3,aE5,a06,a02,&10,&FE,&CD,& [23253 
D3,&90,&21 

700 DATA ai6,&94,&CB,a7E,&El,&C0,a23,a23,& (22783 
18,&22,&23 

710 DATA &4E,&23,&46,&E5,&CD,&CC,&90,&3A,& C24243 
15,&94,&3D 

720 DATA &3D,a87,&3C,aCB,&27,aCB,a27,&CB,a (15223 
27,8i06, &46 

730 DATA &B0, »32, aOO, &92,&21,ai6,&94,&CB,& (24023 
00,&E1.&C0 

740 DATA »23, &C3,&C5,»90,&FE,»01,»CO,&21,» (17353 
EB,&BD,&7E 

750 DATA &F5,&E5,&3E,&C9,&77.&DD,&7E,&00,& [19083 
CD,»OE,aBC 

760 DATA »El,»Fl,»77,aC9,»FE,»05,»DO,»FE,a C24593 
03,aD8,»DD 

770 DATA »4E, »00,»F5,»79,»FE,»lB,»30,»5F,» [30573 
Fl,»28,&04 

780 DATA »DD,»23.&DD,»23,»DD,»7E,»00,»FE,» [22803 
1B,»DO,»47 

790 DATA »DD,»7E,»02,»FE,»10,»DO,»3C,»F5,» [18073 
DD,»7E,»04 

800 DATA »FE, »08,»30,»42,»21,»28,&94,»22,» [19563 
19,»94,»6F 

810 DATA »26, »00,»11,»24,»00,»CD,»BE,»BD,» [15713 
11,»11,»00 

820 DATA &19, »ED,»5B,»19,»94,»19,»CD,»06,» [31413 
B9,»Dl,&F5 

830 DATA »E5,a78,aCD,&OA,aOD,&46,&79,&CD,a [19143 
OA,»OD,»4E 

840 DATA »El,»5A,»16,»00,»19,»EB,&21,&EF,» (25143 
FF,»19,»79 

850 DATA »F6,»40,»77,»EB,»78,»F6,»40,»77,» [34873 
Fl,»CD,&0C 

860 DATA &B9,&C3,»AC,»95,»Fl,&C9,»06,»08,» (21933 
11,»28,»94 

870 DATA &21.SD9,&B1.&C5,&D5,&01.&22,»00.» (23253 


ED,»BO,»06 

880 DATA »22, »El, »CB, &F6, »23, »10, »FB, &C1, » [2123 3 
13,»13,»10 

890 DATA &E9,&3A,»EA,»Bl,»CB,SF7,»32,»14,& C29763 

94, »3A,»D9 

900 DATA »Bl,»CB,»F7,»32,&25,»94,»C3,&AC,& C18443 
95,&3A,»17 

910 DATA »94,»FB, »02,&21,»E5,&92,»11,&46,» (17483 

95, »01,»20 

920 DATA »00,»28,»06,»21,&D5,&92,»01,&10,& (16313 
00,»ED,»BO 

930 DATA &C9,»26,»94,&5C,»FF,&4A,»94,»94,» (28263 
FF,&6E,»94 

940 DATA »BE,»FF,&92,»94,»F6,»FF,»26,»94,» (16283 
5A,»FF,&4A 

950 DATA »94,&17,»FF,»6E,»94,&98,»FF,»92,» [21833 
94,»40,»FF 

960 DATA &B6, &94, &C3 , »FF, &DA, »94, »40, »FF, & (25363 
FE,&94,»FF 

970 DATA »FF,»22,»95,&3E,»FF, »CD,»11,&BC,& [11873 
FE,»01,&0E 

980 DATA »04,»28,»07,»FE,»00,&0E,»10,»28,» (17883 
01,&4F,»47 

990 DATA &3A, »17, »94,&FE,»02,»51,»78,»20,» (23173 
02,»OE,&10 

1000 DATA »06,»08.»21,»26,»94,»77,»23,»71, £13333 
&D5,»11,»23 

1010 DATA »00,&19,&D1,&5A,&51,»4B,»10,&F2, (13743 

&C3,»AC,»95 

1020 DATA »CD, »34,»91,&21,S6E,»90,»3E,»01, [19823 
»32,»17,»94 

1030 DATA &3E, »04,&18,&0D,»CD,»34,»91,»21, (27783 
&71,»91,&3E 

1040 DATA »02,»32,»17,»94,»3E,»08,»22,»6A, (27583 
»91,»32,»06 

1050 DATA »94,»CD,»67,»93,&C3,»BC,»92,&CD, (16553 
&8D,»92,»CD 

1060 DATA »BC,&92, &18, &9E,&3A,»18,»94,»FE, [22783 
»01,&C8,&3C 

1070 DATA »32,»18,»94,»21,»FE,»Bl,»CD.»DD, [17733 
»BC,»CD,»19 

1080 DATA »BD, &C3,&54,»90,&F3,&D9,»79,&D9, (10883 
»CB,&E7,»06 

1090 DATA »02, &CD, »19,&BD,&C5,&06,&7F,»ED, [18973 
»79,»CI,»CD 

1100 DATA »19,»BD,»10,&F5,»FB,&C9,»FE,»02, (22463 
»CO,»DD,»7E 

1110 DATA »00,&FE,»03,»DO,»DD, &7E,&02,»FE, (32273 
»08,»DO,»21 

1120 DATA »26,»94,»11,&24,&00,»47,&04,»19, [16043 
»10,»FD,»A7 

1130 DATA »ED,&52,&DD,&5E,»00,»CB,»FB,»73, (17483 
»23,»3A,»17 

1140 DATA »94,»FE,»02,&20,»07,»DD,&7E,»02, [22903 
»CB,»47,»28 

1150 DATA »11, »DD,»7E,»00,»FE,&01,»28,»06, [15313 
»38,»08,&77 

1160 DATA &C3,»AC,»95,»36,»04,»18,&F9,&36, [18013 
»10,»18,&F5 

1170 DATA »FE,&04,»DO,»FE,»02,&D8,&DD,&4E, (15123 
»00,»F5,»79 

1180 DATA »FE,»1B,&D2,&8B,»92,&F1,»CA,&F4, (24253 
&93,»DD,»23 

1190 DATA »DD,»23,»DD,&7E,»00,&FE,»1B,»DO, [17713 
»47,»DD,»7E 

1200 DATA »02,»FE,»09,&D0,»11,»00,»00,»D5, [24543 
»FE,»08,»C2 

1210 DATA »49, &92,»21,»14,»94,»22,»19,»94, [16373 
»AF,&C3,&4F 

1220- DATA »92, »00, »00, »00, &02, »00, »00, &00, (21263 

»00,»00,»00 

1230 DATA »00,»00,»00,»00,&00,»14,&0A,»00, (12013 
&00,»00,»00 

1240 DATA &00,&00,&00,»00,»00,&00,»00,&00, £17953 
»00,»00,»00 

1250 DATA »00,»00,»00,&00,&00,»00,»00,»00, [17953 
&00.&00,»00 

1260 DATA »00,&00,»00,&00,»00,»00,&00,&00, [17953 
»00,»00,»00 

1270 DATA »00,&00,»00,&00,»00,»00,&00,»00, (17953 
»00,»00,»00 

1280 DATA »00,»00,&00,»00,»00,»00,&00,»00, [17953 

&00,»00,»00 

1290 DATA »00,»00,»00,&00,»00,»00,»00,»00, [17953 
»00,&00.»00 
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1300 DATA »00, »00, &00, 8i00, »00, »00, »00, »00, 
»00,»00,»00 

[17953 

1310 DATA »00, SrOO, »00, &00, »00,»00, &00, »00, 
»00,&00,»00 

C1795] 

1320 DATA &00, »00, »00, &00,8(00,8r00, &00, &Q0, 
»00,&00,»00 

[1795] 

1330 DATA »00, »00, »00, »00, »00, &00, »00, »00, 
»00,»00,»00 

[17953 

1340 DATA »00,»00,&00,»00,&00,»00,&00,»00, 
»00,»00,»00 

[1795] 

1350 DATA »00, »00, &00, »00, &00, »00, »00, »00, 
»00,»00, »00 

[17953 

1360 DATA &00, »00, »00, StOO, »00, »00, »00, »00, 
»00,»00,»00 

[1795] 

1370 DATA &00, StOO , »00,»00, »00, »00, StOO, SrOO, 
»00,»00,»00 

[1795] 

1380 DATA &00, SrOO, 8.00, &00, &00, 8.00,8.00,8.00, 
1.00,8.00,8.00 

[1795] 

1390 DATA 8.00,8.00, 8.00,8.00, 8.00,8.00,8.00,8.00, 
8.00,8.00,8.00 

[1795] 

1400 DATA 8.00, 8.00,8.00,8.00,8.00,8.00, 8.00, 8.00, 
8.00,8.00,8.00 

[1795] 

1410 DATA 8.00,8.00,8.00,8.00,8.00, 8.00,8.00,8.00, 
8.00,8.00,8.00 

[17953 

1420 DATA 8.00,8.00,8.00,8.00,8.00, 8.00,8.00,8.00, 

8.00,&oo,»oo 

C17953 

1430 DATA 8.00, 8.00, 8.00,8.00,8.00,8.00,8.00, 8.00, 
8.00, 8.00,8.00 

C17953 

1440 DATA »00, 8.00,8(00,8.00,8.00,8.00,8.00, 8.00, 
8.00,8.00,8.00 

[1795] 

1450 DATA 8.00,8.00,8.00,8.00,8.00,8.00,8.00, 8.00, 
8.00,8.00,8.00 

[1795] 

1460 DATA 8.00, 8.00,8.00,8.00,8.00,8.00,8.00, 8.00, 
8.00, 8.00,8.00 

C17953 

1470 DATA 8.00, »00, 8.00,»00,8.00,8.00,8.00, 8.00, 
8.00,8.00,8.00 

[1795] 

1480 DATA »00,»00,»00,»00,»00,»00,»00,»00, 
8.00,»00,»00 

[17953 

1490 DATA 8.00,8.00, 8.00,8.00, 8.00,8.00,8.00,8.00, 
8.00, 8.00, 8.00 

[17953 

1500 DATA 8.00,8.00,8.00,8.00,8.00,8.00,8.00, 8.00, 
8.00,8.00,8.00 

[17953 

1510 DATA 8.00, 8.00, »00,8.00,8.00,8.00,8.00, 8.00, 
8.00, 8.00,8.00 

[17953 

1520 DATA »00,&00,»00,»00,»00,»00,»00,»00, 
»00,»FE, 8.02 

[16763 

1530 DATA »CO,»DD,»7E,»02,»FE,»08,&D0,»47, 
8.04,8.21,8.46 

C24103 

1540 DATA »95,»11,»04,»00,»19,»10,»FD,&A7, 
&ED, 8.52,»DD 

[23023 

1550 DATA &7E, »00, »FE, »08, »DO, »47, &04, &E5, 
8.21,8.26,8.94 

C25513 

1560 DATA &11,8.24,8.00,8.19,8.10,»FD, &A7,»ED, 
»52,»EB, »El 

[24441 

1570 DATA 8.73,8.23, &72, »DD, &7E, »02, »CB, »47, 
8.20, »OE. »EB 

[19693 

1580 DATA »23, »36,»10,»18,8.08, »B7, »ED, »52, 
»37,&E0,»F6 

[22403 

1590 DATA »FF, &C9, »21,8.46, »95, &E5, »23, »23, 
&5E,»23,»56 

C2157] 

1600 DATA 8.21,8.F7, »FF, »CD, »A4,8.95, »21, »16, 
»94,»El,»FA 

[2504] 

1610 DATA »DC, »95, &5E, 8.23, &56, »EB, 8.11, »D9, 
»Bl, »CD, an 

C1632] 

1620 DATA »BC, »BE, »06,aOO,»78,»28,»05,»CD, 
»15, »96,»18 

[1851] 

1630 DATA »05,»CB,&F8,»CD,»15,&96,»11,&01, 
»00.&D5.&7B 

[1818] 

1640 DATA »F5,»21,»04,»00,»CD,»BE,»BD,»11, 
»46,»95,»19 

[2127] 

1650 DATA &E5,»11,»04,»00,&A7,»ED,»52,&5E, 
»23,»56,»El 

[2264) 

1660 DATA &D5,&5E,»23,»56,&EB,»Dl,»Fl,&CD, 
»15,»96,»Dl 

[1442] 

1670 DATA »3A, »17, »94, »FE, »02, &7B, »13, »28, 
»05,»FE,»03 

C2609) 

1680 DATA &C8,»18,»CF,»FE,»07,&C8,»18,»CA, 
&F5,»CB,»27 

[2166] 

1690 DATA »CB,»27,»CB,»27,»OE,»C6,»Bl,»32. 
»7F,»96,»CB 

[1908] 

1700 DATA &B7,»32,&8D,»96,&4F,&F1,&CB,»47, 
»20,»03,»79 

[26713 

1710 DATA »18,&0A,&3D,»CB,»27,»CB,»27,»CB, 
»27,»OE,»86 

[21573 

1720 DATA »Bl,»32,»95,»96,»CB,&78,»28,»04, 
»23,»46,»18 

[18213 


Lauter 

Anwendungsprogramme 

ETATGRAF 

Das Haushaltsbuch mit Grafik 

Verwalten Sie Ihre Ausgaben mit dem Computer. Die grafi¬ 
schen Auswertungsmöglichkeiten verschaffen Ihnen jederzeit 
einen guten Gesamtüberblick. 

• bis zu 18 verschiedene Kostenarten 

• Bearbeitung von 12 Monaten 

• Tabellen, Balkengrafik 

• Für Joyce oder CPC nur 58, - DM 


COMFORM 


Druckprogramm für Überweisungsformulare 

o für Joyce oder CPC nur 

48, - DM 


FIBUKING v. 2.0 

Die preiswerte Finanzbuchführung 

• 60 Konten, einfache oder doppelte Buchführung 

• bis zu 4-stellige Kontennummern 

• automatische Bilanzierung 

• Ausdruck von Grundbuch und Kontenblätter 

• incl. deutscher Anleitung 

O für Joyce oder CPC nur 136, - DM 


KALKUREM v. 1.2 

Tabellenkalkulation mit Grafik 

• 40x40 Felder, auch für Text verwendbar 

• veränderbares Anzeigeformat 

• umfangreiche Berechnungsmöglichkeiten 

• Ausdrucken von Teilen des Arbeitsfeldes 

• Kopieren, Löschen, Speichern 

• zusätzliche grafische Auswertung 

• Balkengrafik, Kurvengrafik 

• Kuchengrafik mit Ausschnitten 

• Speicherung von Grafiken 

• deutsche Anleitung incl. Beispielen 

• 3“ Diskette für CPC nur 78, - DM 


PROFIREM 

Rechnungen/Lager/Adressen 

Schreiben Sie Ihre Rechnungen mit Ihrem Computer. Mit dem 
Programmpaket PROFIREM können Sie die Adresen sowie 
die Lagerartikel direkt in die Rechnung übernehmen. Der La¬ 
gerbestand wird auf Tastendruck automatisch korrigiert. 

Durch ständige Anzeige der jeweils wichtigen Möglichkeiten 
ist das Programm sehr benutzerfreundlich. Rechnungen kön¬ 
nen gespeichert und nachträglich erweitert oder geändert 
werden. Das Programme ist einfach (und) übersichtlich. 

• für Joyce oder CPC nur 136, - DM 


TOS3 ©SSä Z&lhM 

Programm-Entwicklung und Vertrieb 
Elfriede van der Zalm 
Schieferstätte, 2949 Wangerland 3 
Telefon (04461)5524 

Versand erfolgt per Vorkasse (portofrei), Nachnahme (zzgl. 5,- DM) 
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1730 DATA 8.17,81A.8BE, 820, &40, &7E, &FE. &01. [15901 
8.20,8.05,8.38 

1740 DATA &07,8.47,8.16,8.06,8.06,8.04,8.18, 8.02, C21753 
8.06,8.10, &23 

1750 DATA 8.13,8.13,8.23, &04, &C5, 8.E5,8.D5, 8.1A, [19891 
8.BE, 820, 81C 

1760 DATA 8.13,8.23, 8.10,8.F8, &79, &FE, 8.00,8.28, [2007] 
8.0D, &E1.&01 

1770 DATA 8.11,8.00, 8.09,8.EB, 8.E1,8.09, &C1, 8.0E, [20961 
8.00,8.18,8.E6 

1780 DATA 8>21,8.16,8.94,8.CB, 8.00, 8.C9,8.79, 8.FE, C1991) 
8.00,8.28, &03 

1790 DATA 8.D1.8.E1,8.01,8.21,8.16,8.94,8.CB, 8.00, [18871 
8.3A, 8.17,8.94 

1800 DATA 8.FE, 8.02, &C0.8.CB, 8.00,8.C9.8.F5, 8.3A, C22781 
&AA, 8.96, &3C 

1810 DATA 8.FE.8.3A, 8.20,8.02,8.3E, 8.30, 8.32, 8.AA, [16603 
8.96,8.CD, 8.5A 

1820 DATA 8.BB.8.F1, 8.09,8.30, 8.00,8.00,8.00,8.00, [15873 

8.00, 8.00,8.00 


Listing 6 


IQ BASIC-Laader Fuer dia BaFah C37173 

lserwaiterung Profi RSX ******«“»*• 

HO ' E1173 

30 'Teil 3: Bildschirm-BaFehla - E30773 

-•*** Wanderungen zur +++• - 

HO * E1173 

50 'Programm-Stand: 1B.01.1387 - C42923 

Oersion Fuar ***»- 

BO ’ C1173 

70 ’Uersion 5 CFuer Schnaidar CPC BBH! 3 — .E4B653 

-•*** den CPC 4EH I ****- 

BO ' C1173 

90 'Copyright Cc) 19BB hy Klaus KramBr - C33BB3 


100 * C1173 

110 • E23713 


120 ' E1173 

130 ’Initalisierung mit CALL 36752 E20S13 

140 ’ E1173 


270 DATA 8C8,847,8HD,BHF,844,SC5,800,8DF,& E17333 
03,a90,6C9 

2B0 DATA 877,8DD,8FD,83E,801,832,&1S,894,& C1BB23 
21,SFB,8B7 

290 DATA 835,820,812,800,848,890,832,8FB,8 E14523 
B7,821,8FB 

300 DATA SB7,87E,82F,877,8AF,832,8F7,SB7,8 C25203 
18,80A,82B 

320 DATA 895,85E,823,856,8EB.8CD,804,890,8 E22253 
21,8DH,8B7 

330 DATA SCO.aiD.SBl.SCl.SDl.SEl.aFl.aCS.S C20253 
3A,8FB,8B7 

340 DATA 8B7,a3A,aD3,8B7,8CB,a3A,aD2,aB7,a C20B33 
C9,8F3,83A 

350 DATA 842,8B9,82A, 843,8B9,832,820,894,8 1124983 
22,81E,894 

3B0 DATA 83E,&CD,821,850,891,832,842,8B9,8 E18653 
22,843,8B9 

470 DATA 8CB,889,8CB,881,8B1,84F,8D9,83A,8 E21423 
F6,8B7,8B7 

S30 DATA 8FE,801,810,87F,SED,849,83A,8F6,8 E20703 
B7,8B7,820 

550 DATA 879,8C9,8AF,832,818,894,832,8F7,8 E14543 
B7,SCO,811 

570 DATA 866,890,Bll,SD4,8B7,8C3,825,8BD,8 C23273 
08,830,80A 

810 DATA 826,800,811,824,800,8CD,805,890,8 E19363 
11,811,800 

B30 DATA 8E5,878,8CD,SOC,80D,846,879,8CD,8 C22863 
0C,80D,S4E 


870 DATA 821,8D4,8B7,8C5,805,801,822,800,8 C25803 
ED,8B0,806 

890 DATA 8E9,a3A,aE5,8B7,aCB,SF7,832,814,8 C23333 
94,83A,804 

900 DATA 8B7,8CB,8F7,832,825,894,8C3,8AC,8 C20643 
95,83A,817 

1070 DATA 832,818,894,821,8F9,8B7,8CD,8DD, C17413 
SBC,SCO,819 

1610 DATA 8DC,895,85E,823,856,8EB,811,804, C15623 
8B7,8CD,811 

1640 DATA 8F5,821,804,800,8CD,805,890,811, C23533 
846,895,819 


Listing 7 


10 .......... BASIC-Loader Fuer die Befeh C37173 

lserweiterung Profi RSX ***•»***•• 

20 ' C1173 

30 'Teil 3: Bildschirm-BBFahlB - C30773 

-•*** Aandarungen zur - 

40 ' E1173 

50 'Programm-Stand: 18.01.19B7 - C42923 

Uarsion Fuer ****- 

60 ' C1173 

70 ’Uersion 3 CFuer Schneider CPC 61281) - C42493 

-*•** dBn CPC 464 I **•*- 

80 ' C1173 

90 ‘Copyright Cc) 1988 hy Klaus Kramer - C33B63 


100 ’ C1173 

110 >***************»***»**•»**********«•** C23713 


120 ’ E1173 

130 'Initalisierung mit CALL 36752 C20513 

140 * C1173 


270 DATA 8C8,847,84D,84F,844,BC5,800,8DF,8 C17333 
09 890 8C9 

280 DATA 872,8DD,8FD,83E,801,832,815,894,8 C22243 
21,8F8,8B7 

290 DATA 835,820,812,BCD,848,890,832,SFB,8 C14523 
B7,821,8F6 

300 DATA 8B7,87E,82F,877,8AF,832,8F7,8B7,8 E25203 
18,80A,82B 

320 DATA 895,85E,823,856,8EB.SCD,804,890,8 C22253 
21,8D4,8B7 

330 DATA 8C0,aiD,S91,aCl,a01,8El,8Fl,aC9,S C20253 
3A,8F6,8B7 

340 DATA 8B7,83A,8D3,8B7,SC8,83A,8D2,8B7,8 C20B33 
C9.8F3.83A 

350 DATA 842,8B9,82A,843,8B9,832,820,894,8 E249B3 
22,SIE,894 

360 DATA 83E,BCD,821,850,891,832,842,8B9,8 E18653 
22,843,8B9 

470 DATA 8CB,889,8CB,881,8B1,84F,8D9,83A,8 C21423 
FB,8B7,8B7 

530 DATA 8FE,801,ai0,a7F,aED,a49,&3A,aFB,a E20703 
B7,8B7,820 

550 DATA 879,8C9,8AF,832,818,894,832,8F7,8 E14543 
B7,8CD,811 

570 DATA 866,890,811,8D4,8B7,8C3,825,SBD,8 C23273 
OB,830,80A 

810 DATA 826,800,811,824,800,8CD,805,890,8 E19363 
11,811,800 

B30 DATA aE5,878,8CD,ai0,80D,S46,a79,aCD,a C26193 
10,80D,84E 

870 DATA 821,8D4,8B7,8C5,8D5,801,822,800,8 E25803 
ED,8B0,806 

B90 DATA 8E9,83A,RES,8B7,8CB,8F7,832,814,8 C23333 
94,83A,8D4 

900 DATA 8B7,8CB,8F7,832,825,894,8C3,8AC,8 E20643 
95,83A,817 

1070 DATA 832,818,894,821,8F9,8B7,SCD,8DD, C17413 
BBC,8CD,819 

1610 DATA 8DC,895,85E,823,856,8EB,811,8D4, C15623 
8B7,SCD,Bll 

1640 DATA 8F5,821,804,800,SCD,805,890,811, C23533 
846,895.819 
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Das erste und einzige 


Joyce Sonderheft 

ist (noch) da. 



Für Joyce-Besitzer haben wir das erste Sonderheft fertiggestellt. Für alle, denen die Joyce-Rubrik in der 
PC International nicht genügend Stoff für einen ganzen Monat bieten konnte, stellt dies Sonderheft eine 
Fülle von Informationen, Tips und Tricks und Programmen zur Verfügung. 

Dies Heft deckt das ganze Interessenspektrum eines Joyce- 
Besitzers ab - vom Basictip bis zur Erweiterung mathe¬ 
matischer Funktionen, von der Druckereinstellungsroutine 
bis zum kompletten Assembler/Disassembler ist alles ent¬ 
halten, was Joycer’s Herz höher schlagen läßt. 


Aus dem Inhalt: 

- ein komfortabler Maskengenerator erlaubt die 
Erstellung von Bildschirmmasken für selbstgeschrie¬ 
bene Programme aller Art, ohne umständlich mit 
PRINT-Anweisungen hantieren zu müssen. 

- eine Bauanleitung ermöglicht Ihnen, auf einfache 
Weise einen Joystick an den Joyce anzuschließen. 
Die Richtungen des Joysticks werden auf Pfeiltasten 
gelegt - fertig ist die »Fernbedienung«. 

- für LocoScript-Freunde bietet das Heft einen Beitrag 
über Fußnoten unter LocoScript. 

- ein besonderer Leckerbissen für CP/M-Fans wird 

• mit dem Beitrag XBIOS serviert. 

- zur Entspannung zwischendurch stehen kleine 
Spiele zur Verfügung, u.a. ein Mau-Mau mit de¬ 
finierbarem Level. 


- last not least: Tips und Tricks zu Basic, Logo, 
dBase und vielem anderen mehr. 


Das JOYCE-Sonderheft 1 ist ab sofort im guten Zeitschriftenhandel, beim Fachhandel oder direkt beim Ver¬ 
lag für DM 20, - erhältlich. 

Sämtliche im Sonderheft enthaltenen Programme sind auch auf 3“-Disk (Databox) zum Preis von DM 30, - 
beim Verlag erhältlich. 
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Fairlight a Preiude 

Dunkle Mächte und finstere Zauberer, 
damit wird der geneigte Spieler auch in 
Fairlight konfrontiert. Zwar handelt es 
sich auch hier um ein Arcaden Adventu- 
re, nur hier liegt die Betonung eindeutig 
mehr auf Adventure. 

Ralf Schilling und Uli Lichtner haben 
sich unabhängig voneinander damit be¬ 
schäftigt und das Spiel gelöst. Auch diese 
beiden Meisterspieler erhalten für ihre 
Einsendung den Preis der Mühen. 

Gleich zu Beginn, also im ersten Raum 
von Fairlight, befindet sich ein Zauber¬ 
spruch, den Sie sogleich einheimsen soll¬ 
ten. Danach gehen Sie in den Turm und 
begeben sich, die Treppe hinauf, zur Bal- 
lustrade. Den dort patroullierenden 
schwarzen Wächter stoßen Sie am besten 
gleich in den Hof hinunter, dort wird er 
später nicht mehr lästig. Begeben Sie 
sich nun in Raum neun, jener, der auf die 
Ballustrade folgt. Den Wächter dort er¬ 
schlagen Sie am besten gleich. Danach 
nehmen Sie eines der Fässer aus diesem 
Raum mit und gehen die Treppe hinun¬ 
ter. Im folgenden Raum erwartet Sie 
schon ein großer, keulenschwingender 
Troll. Auch ihn müssen Sie erschlagen, 
merken Sie sich die Stelle, an derer ver¬ 
schwand, und stellen Sie das Faß darauf. 
Der Troll kann nun nicht mehr erschei¬ 
nen . Im Raum mit dem Troll gibt es zwei 


Türen und einen Korridor. Folgen Sie 
dem Korridor. Von dort aus können Sie 
in mehrere verschiedene Räume gelan¬ 
gen. Suchen Sie den Raum, in dem sich 
ein Schlüssel befindet. Den Wächter dort 
erschlagen Sie am besten gleich und den 
Schlüssel nehmen Sie an sich. Danach 
wenden Sie sich dem ersten Raum auf 
dem Korridor zu. Dort finden Sie eine 
Sanduhr, die allerdings unerreichbar auf 
einem Regal steht. Am besten bauen Sie 
sich mit den Helmen, die vor diesem 
Raum liegen, und einem Faß eine Trep¬ 
pe. Wenn Sie nun die Sanduhr ergattert 
haben, zurück zu dem Raum, in dem Sie 
bereits den Troll erschlugen. 

Außer Treppe und Korridor befindet sich 
dort noch eine Tür, den Raum dahinter 
müssen Sie nun aufsuchen. Mit etwas 
Geschick können Sie den Mönch und die 
beiden Elementarwesen umgehen und 
sich das dort befindliche Fläschchen mit 
Lebenselexier unter den Nagel reißen. Ist 
dies geschehen, so schicken Sie Ihr 
Männchen wieder in den Raum mit den 
vielen Fässern, auf unserer Karte Raum 
Neun. Von dort aus nicht zurück zur Bal¬ 
lustrade, sondern die in der gegenüber¬ 
liegenden Wand befindliche Tür. 

Nun sollten Sie in einem Korridor ste¬ 
hen. Diesem Gang folgen Sie, mogeln 
sich so clever wie möglich an den beiden 
Kriegern vorbei und begeben sich dann 
in den Raum hinter der ersten Tür. So ge¬ 


langen Sie in einen Komplex von (auf 
den ersten Blick) vier Räumen, die alle 
ein Schachbrettmuster auf dem Boden 
haben. In einem dieser Räume steht, 
scheinbar unerreichbar unter einem Tre¬ 
sen eine weitere Flasche mit Elexier. Um 
an die Flasche heranzukommen, müssen 
Sie verschiedene Gegenstände einsam¬ 
meln, diese von der einen Seite her un¬ 
ter den Tresen schieben. Haben Sie ge¬ 
nug Zeugs eingeschoben, rutscht die Fla¬ 
sche auf der anderen Seite unter dem 
Tresen heraus und kann nun aufgenom¬ 
men werden. Nun sollten Sie sich ohne 
zögern in den Raum begeben, in dem 
sich der Thron befindet. Dort mogeln Sie 
sich an dem Mönch vorbei und springen 
auf das Podest des Throns. Unter diesem 
Podest, genauer unter der rechten vorde¬ 
ren Platte, befindet sich ein Kreuz. 
Schieben Sie die Platte beiseite und neh¬ 
men Sie das Kreuz an sich. So ausgerü¬ 
stet wandern Sie zurück in den Anfangs¬ 
raum des Spiels. Dort müssen Sie nun 
den ersten Turm von den dort herumgei- 
stemden Wesen säubern. 

Also hinein in den Turm und die Trep¬ 
pen rauf. Allerdings werden Sie einen 
Tritt brauchen, denn an einer Stelle gibt 
es nur eine Luke in der Decke aber kei¬ 
ne Treppe. Der erste Mönch wird mit 
dem Kreuz besiegt, der zweite und der 
dritte mögen kein Elixier. 

Im vierten Stock erwarten Sie zwei Wa¬ 
chen, die Sie am besten auf die bewähr¬ 
te Art und Weise beseitigen (meuchel). 
Einen der beiden hinterlassenen Helme 
nehmen Sie mit sich und gehen zu den 
vier Schachbretträumen. Den Helm wer¬ 
fen Sie den dort herumirrenden Elemen¬ 
tarwesen vor. Nun weiter in den Raum, 
der in unserer Karte mit der Nummer 
zehn bezeichnet ist. Dort greifen Sie sich 
fünf Gegenstände, um damit im Burghof 
eine Leiter zu errichten. Diese Leiter 
brauchen Sie, um die Krone, den wich¬ 
tigsten Gegenstand des Spiels überhaupt, 
zu erreichen. Diese Krone liegt auf ei¬ 
nem Eingang und wird von einem Wäch¬ 
ter bewacht. Nachdem der Wächter be¬ 
seitigt (schlitz) wurde, besorgen Sie sich 
die Krone. Nun fluchs zurück ins An¬ 
fangsbild, auf die Ballustrade hinauf und 
in den Raum mit der Treppe und den 
Fässern hinein. Dort die Treppe hinun¬ 
ter und weiter in den Korridor. Dem 
Gang folgen Sie bis an sein Ende. Hin- 
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ter dem Tor befindet sich dann eine 
Brücke mit einem Mönch der sie be¬ 
wacht. Tricksen sie den Mönch aus und 
überqueren die Brücke. Nun stehen Sie 
ausserhalb des Schlosses, aber auch hier 
erwarten Sie Untiere mit denen es fertig¬ 
zuwerden gilt. Wandern Sie an dem Ele¬ 
mentarwesen vorbei nach links unten in 
das nächste Bild. Dort erwartet Sie ein 
Troll den Sie entweder erschlagen oder 
ignorieren können. Wandern Sie nun 
nach rechts in das nächste Bild. Achtung, 
nun wirds wichtig. Sie sollten sich nun 
in einem Gang der von links nach rechts 
quer über den Bildschirm führt, befin¬ 
den. Mit der Benutzen Option Wählen 
Sie nun die Krone an und wandern un¬ 
mittelbar an der nördlichen Wand des 
Bildes entlang. 

Wenn Sie es richtig gemacht haben soll¬ 
ten Sie nun, schwuppdiwupp, in der kö¬ 
niglichen Gruft stehen. Gotteslästerlich 
wie wir nun mal sind, schieben Sie nun 
die Deckeiplatte vom Sarkophag herun¬ 
ter. Nun müßen Sie sich in den Geheim¬ 
gang der unter dem Sarg liegt hineinfal¬ 
len lassen. Allerdings benötigen Sic da¬ 
für unbedingt vierzig Punkte Lebense¬ 
nergie, andernfalls endet die Aktion 
fatal. 

Nun befinden Sie sich in einer zweiten 
Gruft in der sich außerdem, oh Wunder, 
das langgesuchte Buch des Lichts befin¬ 
det. Dies nehmen Sie dann auch sogleich 
an sich. Von hier aus schnurstracks zu 
Turm drei gelaufen (auf der Karte als T3 
gekennzeichnet). Unterwegs organisie¬ 
ren Sie sich noch ein Faß zum draufstel¬ 
len. Steigen Sie den Turm ganz hinauf 
und beseitigen die dort herumgeistemde 
Wache (metzel). 

Bauen Sie sich nun eine Treppe und stei¬ 
gen über diese in den obersten Raum des 
Turms, das Buch ist der Schlüßel hierfür. 
Greifen Sie sich nun den dort liegenden 
Schlüßel und zaubern Sie sich mit der 
Schriftrolle zurück in den Burghof. Nun 
brauchen Sie nur noch das Haupttor der 
Burg zu öffnen und Fairlight a Prelude 
ist gelöst. 

ZOMBIE ZOMBIE 

Wie Sie sich vielleicht noch erinnern hat¬ 
ten wir im letzten Heft den größten Teil 
der Lösung zu Zombie. Herr Schulz, 
dem wir diese Tips verdanken war nicht 
untätig. Er hat auch den Rest geschafft. 
Nachdem Sie alle im Einkaufszentrum 
herummlaufenden Zombies eliminiert 
haben, beseitigen Sie die Leichen indem 
Sie sie alle in den Kühlraum transportie¬ 


ren. Bevor Sie allerdings die letzte Lei¬ 
che beseitigen, müßen Sie sich mit dem 
Walkie Talkie ausstatten. Haben Sie 
dann die letzte Leiche in das Kühlhaus 
gebracht, benutzen Sie das Walkie Tal¬ 
kie, woraufhin folgende Meldung er¬ 
scheinen sollte: Vielen Dank für die Be- 
reitmachung des Platzes. Bleiben Sie ru¬ 
hig. Wir kommen gleich. Sobald Sie die¬ 
se Meldung empfangen haben öffnen die 
Rocker den südlichen Eingang des Ge¬ 
bäudes. Ab hier müßen Sie vorsichtig 
sein, denn die Rocker sind bewaffnet. 
Nun müßen Sie ihre Schußwaffen ge¬ 
brauchen und auch die Rocker eliminie¬ 
ren. Ist das erledigt, gehen Sie durch den 
südlichen Ausgang zum Auto der Rocker 
und öffnen den Tank. Jetzt wieder zu¬ 
rück in das Gebäude und einen Schlauch 
nebst Kanister organisieren. Danach 
wieder an den Wagen und dort das Ben¬ 
zin abzapfen. Mit dem vollen Kanister 
gehen Sie nun zum Hubschrauber und 
betanken diesen. Jetzt brauchen Sie nur 
noch alle anderen Spielfiguren zum Hub¬ 
schrauber zu geleiten, einzusteigen und 
die Flucht ist gelungen. 


MnHIISHIiHIHIHHIIiiHiHHiiHHIIiliüHillliliil 

DRUID 

Druid, einer der Vorreiter der Gauntlet 
Welle ist unser nächstes Thema. Zu die¬ 
sem rasanten Arcaden Adventure er¬ 
reichten uns zwei hochinteressante Ein¬ 
sendungen, die beide für sich, so gut zu 
gefallen wußten, daß es diesmal sowohl 
für Andreas Lober wie auch für Fred Ei- 
denberg einen Preis gibt. Wir haben die 
Tips und Karten der beiden zusammen¬ 
gelegt und einen Beitrag daraus gemacht. 

Erstes Gebot bei Druid ist immer den di¬ 
rektesten Weg zu gehen und dabei so we¬ 
nig wie möglich Energie und Zauber¬ 
sprüche zu vergeuden. 

Beim Öffnen der Schatztruhen darauf 
achten das immer genügend Schlüssel 
vorhanden sind. Der Unsichtbarkeits 
Zauber ist im verlauf des Spiels wenig 
sinnvoll und sollte deshalb nicht mitge¬ 
nommen werden. Der Chaos Zauber 
hingegen sollte gehortet werden. Ab Le¬ 
vel fünf tauchen nämlich die Erzdämo¬ 
nen auf und diese lassen sich nur mit dem 
Chaos Spruch besiegen. Wenn Sie vor 
einem Dämon stehen ist die beschwö- 
rung eines Golems ratsam. Diesen kön¬ 
nen Sie dann nämlich vor sich her 
schicken und damit die Feuerbälle des 


I)ruid — Level 1 



Level 1 



Level 2 


Druid - Level 3 



Level 3 


Druid - Level 4 
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Druid - Level 5 
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I—Abenteuer 


How to survivc 


Teil X 


Druid - Level 7 



Level 7 



Level 8 

Dämons abfangen. In Level vier ange¬ 
kommen müßen Sie, um weiterzukom- 
men den richtigen Ausgang wählen, 
denn nur einer führt so in das folgende 
Level, das von dort aus ein weiterer Ab¬ 
stieg möglich ist. Zur genauen Orientie¬ 
rung können Sie auch die auf diesen Sei¬ 
ten abgedruckte Karte (Level 1—8) ver¬ 
wenden. 



Seid gegrüßt, tapfere Recken und muti¬ 
ge Magier des Landes Mandragore! Wie 
ich hörte, mußtet Ihr eine schwere Auf¬ 
gabe auf Euch nehmen, um das Land 
Mandragore zu retten. — Wie bitte? Ihr 
habt es noch gar nicht gerettet? Das ist 
aber seltsam, mir kamen anderslautende 
Gerüchte zu Ohren. Doch, wenn das so 
ist, will ich Euch gerne ein wenig helfen. 
Denn es ist ja fast schon ein Rätsel, die 
richtige Partie zusammenzustellen. 

Fangen wir also mit dem ersten Teil un¬ 
serer Trilogie »Wie und Wohin« an. Dar¬ 
in geht es darum, welche Charaktäre 
wichtig, nützlich oder unnütz sind. Wer 
stand nicht schon einmal vor dem Pro¬ 
blem: soll ich jetzt als 4. Charakter einen 
menschlichen Kleriker oder einen Dieb 
des Zwergengeschlechts nehmen? 

Vorneweg einmal für die weniger in 
Fantasy-Literatur betuchten ein kleiner 
Lehrgang was was ist. Ein Ranger ist 
eine Mischung zwischen Krieger und 
Trapper, der allerdings eine wesentlich 
höhere Körperkraft als ein Kämpfer be¬ 
nötigt. Ein Warrior ist ein tapferer 
Recke. Dumm, stark und laut. Seine De¬ 
vise lautet: »Draufschlagen bis die Kno¬ 
chen krachen!«. Er benötigt allerdings 
keine bestimmten Mindestwerte. 

Ein Wizard ist ein Zauberer, der zwar 
nicht zum Kämpfen geeignet ist, dafür 
aber seinen Gefährten mit manchem 
Kampfzauberspruch schon das Leben 
gerettet hat. Ein Cleric ist ein Kleriker, 
(wieder) eine Mischung zwischen Krie¬ 
ger und Magier. Er ist mitunter auch kein 
schlechter Kämpfer, besitzt aber nur ein 
mageres Sprücherepertoire. 

Der Thief ist ein Dieb wie er im Buche 
steht. Er klaut alles was nicht angenagelt 
ist und läßt sich (sofern es seine Lebens¬ 
energie erlaubt) gerne mal auf ein Schar¬ 
mützel ein. 

Letzendlich der Minstrel: Ein Minstrel 
ist ein Minnesänger. Er ist gut dazu ge¬ 
eignet, mit Anderen ein Gespräch zu fuh¬ 
ren oder sie zu einer bestimmten Aktion 
zu überreden. Er ist (wieder mal) ein An¬ 
gehöriger des Kriegergeschlechts und hat 
auch teilweise seine Vorzüge. 

So, doch nun endlich zur Zusammenstel¬ 
lung. Man muß sich einmal vorstellen, 
die vier verschiedenen Personen der Par¬ 
tie würden zu einem Körper verschmel¬ 
zen. Da gäbe es den Ranger und den 
Krieger als Arme, den Magier als Kopf 


und den Dieb für die Beine (zum ren¬ 
nen. ..). Genau nach diesem Prinzip müs¬ 
sen wir die Partie zusammenstellen. 
Zuersteinmal zu den Armen: Es emp¬ 
fiehlt sich, jeweils zwei Kämpfer oder 
Ranger bei sich zu haben, da nacheinan¬ 
der ein Zusammentreffen mit einem Ti¬ 
tanen und einem Berserker durchaus zum 
Verlust des einen führen kann. Aller¬ 
dings hat sich ein Ranger mehr bewährt 
als ein Krieger, denn diese bringen 
manchmal auf zehn Schläge nur einen 
Treffer. 

Dann zum Punkt Kopf: Eine Partie ohne 
Magier ist wahrscheinlich genauso wie 
ein Computer ohne Monitor. Also: eine 
magisch begabte Person muß her! Bei 
dieser Gelegenheit möchte ich aller¬ 
dings vor dem Kleriker warnen: er be¬ 
sitzt nur einen Zauberspruch, mit dem er 
Lebenspunkte von sich auf eine andere 
Person übertragen kann. Eine wandelnde 
Flasche Lebenselexieralso. Beim Kämp¬ 
fen manchmal ganz brauchbar, anson¬ 
sten ein Klotz am Bein. 

Doch der Magier ist alles andere als un¬ 
nütz. Er besitzt jede Menge Kampfsprü¬ 
che und ist auch sonst nicht ohne. Prädi¬ 
kat: unbedingt notwendig. 

Fassen wir noch einmal zusammen: Un¬ 
sere Partie besteht bis jetzt aus zwei Ran¬ 
gern, einem Magier und ... tja, und eine 
Stelle ist noch frei. Nun können Sie sich 
entscheiden, ob Sie eher zu Dieben oder 
zu Minnesängern tendieren. Des Diebes 
Fähigkeit Sachen zu klauen ist manchmal 
recht nützlich, meistens aber findet man 
das begehrte Objekt auch in irgendeinem 
Chateau. Der Minnesänger ist eine Art 
schwacher Ranger, den man allerdings 
oft und gerne mit anderen Personen re¬ 
den lassen sollte. 

Die Idealzusammenstellung meiner Par¬ 
tie sieht folgendermaßen aus: 



I ODIN 
RANGER 

2. MERLIN 
MAGIER 

3. DARKON 
DIEB 

4 STORN 
RANGER- 

CONST. 

20 

20 

20 

20- 

STR. 

20 

5 

5 

20- 

WIS 

5 

20 

5 

5- 

INT. 

5 

20 

10 

5- 

DEX. 

20 

10 

20 

15- 

APP 

K) 

5 

20 

15- 


So, das wars für diesen Monat. Viel Spaß 
am Spiel bleibt noch zu wünschen und 
Tschüß bis nächsten Monat. 

(JH/HS) 
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INFIDEL 

Auf der Suche 

nach der vergessenen 

Pyramide 


20. September des Jahres 1920. Tagebuch 
der Ellingsworth Expedition. 

Nach langer mühevoller und gefährlicher 
Reise haben wir unser Ziel erreicht. Zwar 
weiß ich immer noch nicht ob die Legen¬ 
den, denen ich bis hierher folgte, auf 
Wahrheit beruhen, doch sollte nur ein 
Körnchen Wahrheit enthalten sein, so muß 
dies der Platz sein. 

27. September 1920 

Endlich ein Beweis. Eine Platte, über und 
über bedeckt mit Hyroglyphen. Minde¬ 
stens 5000 Jahre alt. Nach einer ersten 
Analyse der Schriftzeichen glaube ich sa¬ 
gen zu können, daß wir auf der richtigen 
Spur sind. Hier irgendwo muß die Pyrami¬ 
de sein die ich suche. 

Doch Ellingsworth, der Leiter der Expe¬ 
dition, stirbt wenig später. Da außer der 
Platte noch kein weiterer Beweis für die 
Existenz der gesuchten Pyramide gefun¬ 
den wurde, gab der Rest der Expedition 
die Suche auf und kehrte nach Kairo zu¬ 
rück. Das gefundene Artefakt ging in Be¬ 
sitz von Lady Ellingsworth über. Diese 
vererbte es ihrer Tochter Rose. Doch wäh¬ 
rend das Artefakt von Hand z,u Hand wan- 
derte wurde es ruhig um die legendäre Py¬ 
ramide. Die Jahre vergingen. 

Doch irgendwann begegnet die Tochter 
der Ellingsworths einem Glücksritter der 
eine neue Expedition ausrüstet und erneut 
versucht die Pyramide zu finden. Diese 
neue Expedition bricht, mit dem notwen¬ 
digsten ausgestattet zum Oberlauf des Nils 
auf. Bereits während der Reise dorthin hat 
unser Glücksritter Probleme mit seinen 
Trägern. Als dann noch das Navigations¬ 
set kaputt geht und die genaue Lage der 
Pyramide nicht mehr bestimmbar ist, be¬ 
ginnen die Träger zu murren. Doch noch 
hören sie auf den Expeditionsleiter. Der 
beschriebene Lageplatz der Pyramide wird 
erreicht. Obwohl schon seit Tagen über 
Funk bestellt, ist das neue Navigationsset 
noch nicht eingetroffen. 

Der Expeditionsleiter läßt seine Träger 
nach gut Glück in der Wüste graben. Die 
Träger werden immer unruhiger. Allent¬ 


halben wird gemunkelt. Eines Morgens 
gehen die Träger nicht an die Arbeit. Un¬ 
ser Glücksritter glaubt ein Machtwort 
sprechen zu müssen. Er folgt den Eingebo¬ 
renen in die Wüste und versucht sie zurück 
an die Arbeit zu bekommen. Der Führer 
der Träger, Abdulha, erklärt ihm das heute 
ein heiliger Tag für die Eingeborenen sei, 
und sie nur aus diesem Grunde nicht arbei¬ 
ten würden. Abdulhas Worte stoßen auf 
Unglauben, er erhält für seine vermeintli¬ 
che Lüge sogar eine Ohrfeige. Aber trotz 
solch drastischer Maßnahmen sind die 
Eingeborenen nicht dazu zu bewegen an 
die Arbeit zurückzukehren. 

Langsam glaubt auch der Expeditionslei¬ 
ter das heute ein heiliger Tag ist, läßt die 
Eingeborenen alleine und begibt sich zu¬ 
rück zum Camp. Dort nimmt er einen 
Schluck Wasser und beginnt einen Brief an 
Miss Roseworth zu schreiben. Doch nun 
zeigt es sich, daß er sein Gehabe gegen¬ 
über seinen Trägem zu weit getrieben hat. 
Noch während er an den letzten Zeilen sei¬ 
nes Briefes schreibt, umfängt ihn Bewußt¬ 
losigkeit. Als er dann Stunden später wie¬ 
der zu sich kommt ist er alleine in der 
Wüste. 

An dieser Stelle fängt das eigentliche Ad- 
venture an. Die Zauberer von Infocom 
versetzen Sie diesmal in die Rolle des be¬ 
schriebenen Glücksritters. Infidel gehört 
zur Infocom Tales of Adventure Reihe. 
Das heißt, hier tauchen weder Magier 
noch Fabelwesen auf. 

Am besten läßt sich die hier präsentierte 
Story mit den Geschichten von Henry Ri¬ 
der Haggard vergleichen. Auf das Konto 
dieses Autors gehen so bekannte Bücher 
wie Allan Quatermain und König Salomos 
Diamanten. Wie in diesen Büchern, so gibt 
es auch in Infidel ein imaginäres Ziel, eben 
jene Pyramide, doch sonst bleibt alles im 
Rahmen der Realität. Das erste Problem 
mit dem der Spieler in Infidel konfrontiert 
wird, ist die Suche nach dem Einstieg in 
die Pyramide. Wie bereits beschrieben, 
besitzen Sie zu Anfang des Spiels keine 
funktionsfähige Navigationsausrüstung. 


Gelingt es Ihnen die ersten fünfzehn Züge 
zu überleben, was übrigens nicht sonder¬ 
lich schwer ist, erhalten Sie auch ein neu¬ 
es Navigationsset. An dieser Stelle wird 
der Spieler das erste Mal mit einem Info¬ 
com Adventure Trick konfrontiert. Der 
Packung liegt nämlich eine Karte mit nau¬ 
tischen Längen und Breitengraden bei. Mit 
dem neuen Navigationsset kann der Spie¬ 
ler nun seine genaue Position ermitteln und 
auf der Karte lokalisieren wo sich nun die 
Pyramide befinden müßte. Ein ausgespro¬ 
chen guter Schutz gegen Schwarzkopien. 
Ohne diese Karte ist es zwar möglich die 
eigene Position zu ermitteln, jedoch un¬ 
möglich diese in Beziehung zum Standort 
der Pyramide zu bringen. Der Spieler ei¬ 
ner Schwarzkopie wird also aller Wahr¬ 
scheinlichkeit nach durch die Wüste laufen 
bis er schwarz ist. 

Eine weitere Finesse dieses Spieles ist ein, 
ebenfalls der Packung beiliegendes Faksi¬ 
mile des Artefaktes und eine Überset¬ 
zungshilfe zu den Hyroglyphen. Dieses 
Faksimile enthält weitere wichtige Infor¬ 
mationen über die genaue Lage des Ein¬ 
gangs der Pyramide. 

Wie schon bei allen anderen Infocom 
Abenteuerspielen bezaubern auch bei In¬ 
fidel die stimmigen Details der Story. Was 
ich Ihnen bis hierher über das Spiel erzählt 
habe, macht im Endeffekt nicht mehr als 
zwei oder drei Prozent des eigentlichen 
Spieles aus. Richtig interessant und ge¬ 
fährlich wird die Geschichte erst in der Py¬ 
ramide selbst. Dort erwarten den Spieler 
allerlei tödliche Fallen denen es zu entrin¬ 
nen gilt. Infocom klassifiziert den Schwie¬ 
rigkeitsgrad der einzelnen Spiele von Haus 
aus. Infidel fällt dabei in die Kategorie Ad¬ 
vanced, ist also nicht gerade leicht zu lö¬ 
sen. Jedoch glaube ich, daß der gewohnt 
komfortable Parser und die ausgezeichne¬ 
ten Texte dieses Spiels auch für Abenteu¬ 
er Anfänger mit guten Englischkenntnis¬ 
sen interessant machen. Denn nach wie 
vor gilt, Infocom ist die Creme de la Cre¬ 
me unter den Abenteuern. 

(HS) 
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I Kleinanzeigen 


Achtung! 

An alle CPC-User-Clubs! 
Suchen Sie noch Mitglieder 
oder wollen Kontakte zu 
anderen CPC-Usern oder 
Clubs knüpfen 
Dann schreiben Sie uns 
doch einfach. Wir veröffent¬ 
lichen Jede Anschrift eines 
CPC-User-Clubs gratis! 

Falls auch Ihr User-Club sich 
einmal vorstellen möchte 
(evtl, mit Foto), nutzen Sie 
unsere Zeitschrift als Ver¬ 
bindungsglied und Kontakt¬ 
adresse! 


Joyce (+) Club »TIPP-SUMM« sucht noch 
Mitglieder(innen). Erfahrungsaustausch, 
Beratung und gegenseitige Hilfe, das sind 
unsere Ziele 

Info von »TIPP-SUMM« PCW-Club, 
Postfach 150541,6700 Ludwigshafen 


Berlin: 

Computer-Club-Neugründung in Berlin! 
Suchen immer noch interessierte und 
engagierte User aller Systeme! 

INFO gegen Rückporto oder Telefonnum 
mer angeben bei: CCF 

PLK: 045894 c 
1000 Berlin 42 


Schneider PC 1512 User-Club 
im Bereich Ruhrgebiet 

sucht Gründungsmitglieder. 

Meldet Euch bei: Uwe Breuer 

4630 Bochum 1 
Josephstr. 22 
Tel.: 0234/51 1408 
schriftlich od. telefonisch 


Suche Kontakt zu CPC Usern 

ggf Clubgründung im Raum 3042 Munster 

S. Meyer, Tel.: 05192/5304 


Schneider PC 1512 User-Club! 

Wir arbeiten überregional und bundesweit, 
und geben damit allen PC-Besitzern die 
Möglichkeit, die monatliche Club-Zeitschrift 
und die Software zu beziehen und von 
unserem Club zu profitieren 
Unsere Zeitschrift bietet Soft- und 
Hardwarevorstellungen, Tips, Tricks und 
vieles mehr. 

Tragen auch SIE dazu bei, daß unser Club 
noch besser wird. 

Gegen Rückporto erhalten Sie eine 
unverbindliche Info von 
Rolf Knorre, Postfach 200102, 

5600 Wuppertal 2 


CCS - COMPUTER CLUB Solingen e.V. 
sucht Mitglieder aus dem Raum Solingen. 
Informationen und Antragsformulare bitte 
mit Rückporto amManfred Henkels 

Eick 29,5620 Solingen 1 


’ Joyce-User-Club Südhessen 
sucht Kontakt 
besonders 

Textverarbeitung/Gestaltung (DTP) 
c.o Claus Brauch 
Schulgasse 6 
6148 Heppenheim 

■ Bitte das Rückporto nicht vergessen 
Danke 


»JOYCE-CLUB« Nbg 

Suche JOYCE Anwender/Benutzer in Raum 

Nbg/ER/SC/Fü 

Ullmann, Tel: 0911/264616 


COMPUTERCLUB KIRCHDORF 

Postfach 24, A 6382 Kirchdorf, 

Tel: 05352/322573 


Biete an Software 


■■ TURBO-Library I (f. CPC) ■■ 
100 Proc./Func (viel Grafik)! 
mit LIBRARY MANAGER, nur 49 DM 
Fordern Sie unser kostl Info! 
Kangoroosoft: Tel (05 11)49 77 60 
Freboldstr. 2,3000 Hannover 91 G 


HANDWERK I - lebt - 
neueste Updates anfordern 
KMS-SOFT-KRAUTWALD 
Julius-Leber-Str 28 

2000 Hamburg 50 G 


HANDWERK I 

ANGEBOT-RECHNUNG-KALKULATION 
AUFMASS-LEISTUNGSBESCHREIBUNG 
NACHKALKULATION-ZEITVORGABE 
DM 998,00 

KMS-SOFT-KRAUTWALD 
Julius-Leber-Str. 28 

2000 Hamburg 50 G 


DISKOMAN-Software: 3" D + Liste = 

10 DM + Freiumschlag Wilfried 
Hary, Gärtnerstr. 14,6602 Dud- 
weiler Preiswertweltmeister! G 


VITAL-TRAINING! Per Computer, 
klar (CPC/Joyce)! Für SIE und 
IHN! Das komplette Programm 
(3" D) nur 30, - DM (in bar o. V-Scheck): 
HARY, Gärtnerstr. 14, 

6602 Dudweiler 


Teufelsjäger MARK TATE ist da! 

Original auf 3" D! Mit 10,- DM 
bist Du dabei: Direkt an: HARY 

- Gärtnerstr 14,6602 Dudweiler 

- macht CPC/Joyce glatt zum 
HELL-GATE - Tor zur Hölle! 


■ JOYCE: Public-Domain-Software ■ 

■ GEM + Desktop-Publishing ■ 

■ LISTE: 1,60 DM/FA. Frenzei ■ 

■ Am Kl Rahm 101,403 Ratingen ■ G 


Textomat, Dalamat, Profimat (Ass) 
Profi Painter-je DM 40,- 
Spiele u. Utilitie-Sammlung 
(7 Disk + 6 Cass) kompl, DM 90,— 
U. Weiss, Tel. 0 76 24 / 74 81 


** Dias ordnen mit Computer ** 

CPC 464/664/6128. JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing W Grotkasten, 

Birnenweg 6, 7060 Schorndorf 

Tel: 0 71 81 / 42 84 6 G 


LABEL-BASIC für JOYCE 

BASIC-Programmieren 

OHNE Zeilennummern 

3" DISKETTE DM 45,- 

H. Schreiber-Moltkestr 108 

5000 Köln 40 G 


SYSTEMWECHSEL: VERK. PROG. FÜR 
CPC 464 z.B. TEXTPROG PHASE 4 MM 
FÜR DM 100,-, LISTE GEG RÜCKP 
PULLNIG, AUG.-MACKE-WEG 4, 8 MU. 71 


WORDSTAR 30 m. Mailmerge und 
STARBASE für JOYCE 50% von NP 
Tel 02 02 / 76 13 75 


*** SOFTWARE FÜR JOYCE 
ORIGINALE: WORDSTAR 3.0, MULTI PLAN, 
dBASE II nur je DM 120,— 

3 D-CLOCK CHESS 35,-; BATMAN 30,- 
TOMAHAWK 40,-; FAIRLIGHT 30,- 
BIORHYTHMUS 32,- -VORKASSE + 3,10 
PORTO - GERD NIEMANN, Karl-Valentin- 
Weg. 10,8011 Kirchheim, 089/9037997 


JOYCE USER!!! STARBASE ZU VERK 
mit Sicherungsdisk., Handbuch, 
Übungshandbuch, noch ungebraucht 
VB 250,-DM, Tel: 0 60 28/42 47 


GEMWRITE DM330 - 

GEM GRAPH DM330,- 

GEM FONT EDIT DM300,- 

IM PAKET DM900 - 

EINNAHME-UBERSCHUSS 
PC u KOMP DM150,- 

TEL. 0 75 02 / 25 29 


• Für jeden JOYCE -Sensationell 

• • 1 • Joycestick m interface dtsch 

• + Colossus Chess 4 3 D Schach • 

• + Qualitätsjoystick=!! 85, — • 

• 2 • Colossus Chess 4, auch f CPC 

• enorm spielstark nur 38, - • 

Für sämtliche disk CPC'S • • • • 

• Disk 50 Games-disk's = 43, - • 

• ACE, der Flugsimulator 35, - • 

bester Flugsimulator ’86 in GB 

• Supersoflware-Berlin H Stein • 

• Hohefeldstr. 55,1 Berlin 28 • 

• 24 Std. Telefon 0 30 / 404 23 91 • 

G 


*** CPC *** Joyce** *PC *** 
Anwendungsprogramme 
Arztpraxis: PVA-Privatabrechnung 

Vertreter: EWS-Kundenverwaltung 

Autovermietung: Auto-Fakt 

Programmierservice, Anwendungsberatung 

EWS-E Witte, Bahnhofsplatz 2a 

*’ 2900 Oldenburg, (0441)26364 *’ G 


*** SCHNEIDER PC*** 
MATHE-SOFTWARE SEK I (KL 5-10) 
IDEAL FÜR LEHRER UND SCHÜLER 
TEILWEISE MIT GRAFIK, (200 K) 
DRUCKOPTIONEN, ALLES IN BASIC 2 
NUR 50,- DM (SCHECK ODER BAR) 
M SCHÄFER I POSTFACH 7222 
4800 BIELEFELD 1 


Gratisinto über Software für 
alle CPC-Computer und PC 1512 
bei Friedrich Neuper.Postf. 72 
8473 Ptreimd Comp Typ angeben! G 


* Soft- u Hardware * 
für alle Typen CPC, Joyce + PC 
Info gegen 2 DM in Briefmarken 
Bitte Ihren Comp.typ angeben. 
MSV-Software Postfach 1227 
4506 Hagen a.T G 


CPC 464 Disketten 3", dBase DM 130,-, 
Chess DM 25-, Elite 30,- 
Tel.: 0 80 71 / 89 10 ab 18 Uhr 


Prg »Joyce« als Com. File 3" 
f. Sportschützen (max 150) 
incl. MWST 60,- DM 
Bildschirm- u. Druckersteuerung 
(Menü), Immerwährender Kalender 
incl. MWST 40,- DM 
Mock, Hauptstr 68,8045 Ismaning 


CPC: Elite (D), Bombjack (D), Zoids 
(D), Spaceharrier (C), Biggles (D), 

M Meiler, Tel : 0 92 89 / 13 60, ab 17 h 


ORIG. dBASE FÜR JOYCE DM110,- 
TEL. 0 20 3-59 96 44 AB 18.00 UHR 


ORIGINAL STAR-WRITER I V 3 1 
DM 120,-; NEVADA-FORTRAN-COMPI 
LER DM 85,-; SORCERY +; HACKER; 
SPINOIZZY; KORONIS RIFT; WERNER 
zu verkaufen. Spiele DM 25,— 
je Disk 3“ (0 71 1)3666 17 


Zu verk.: Turbo 120,—, Nevada 
COBOL 90,-, C Compiler 150,-, 
Hacker + Hause + Elite 120,-, 
ser. Schnittstelle + Modem + 
Terminalprog. zus. 250,-. Nur 
Originalsoft. Binzinger, 0 25 1/ 

24 79 68 Preise incl Versand! 


AMDRUM 50 DM ADVANCED MUSIC SYSTEM 
40 DM MASTERCALC 128 40 DM 
TEL. 0 52 1 - 12 16 06 


• •• ACHTUNG HANDWERKER ••• 
ENDLICH IST SIE DA. DIE KOM- 
PLETT-LÖSUNG FÜR IHREN JOYCE 
PCW 8512 VON HANDWERKERN FÜR 
HANDWERKER ANGEBOTSERSTELLUNG, 
AUFMAßBERECHNUNG, KALKULATION, 
ANALYSE, RECHNUNGEN, AKKORD- 
UNO STUNDENLOHNBRECHNUNG 
DEMODISKETTE 20,- DM 
PREIS 600,- DM, INFOS VON 
HUSOF, HALDE 12, 7463 ROSENFELD 

G 


WERNER, ELITE, SPINDIZZY« 

Liste bei M.Hosch, Altmarkring 9 
3180 Wolfsburg 14 •••••< 


JOYCE-SOFTWARE SUPERGÜNSTIG!! 
dBASE II u DR DRAW je 120,-DM 
STAR-MAIL: 70- DM / zusammen 260,- DM 
Tel.: 0 23 1 / 65 65 80 oder 0 26 64 / 321 


»COMPUTER-KURS«: Das Sammelwerk 
für Anfänger u Fortgeschrittene 
84 Hefte! DM 240,- + NN.-Gebühr. 
(Neupreis DM 320,-). Nur komplette 
Abgabe 0 54 1 / 79 43 0 


TUTORENPROGRAMM FÜR GYMNASIALE 
OBERSTUFE (JOYCE) 040 /6 77 26 27 


* * * CP / M POWER * * * 

KICK CP/M Benutzeroberfläche 
Start, Listen ..per Knopfdruck 
TOPDAT Adressdatei m. Etiketten! 
je (f CPC u. JOYCE) 49, ~ 

MUHLE-SPIEL (CPC/JOYCE): nur 39, - 

WS KEY+TURBO.KEY (Joyce) 29- 

aew-soft, Breite Str. 16, 53 Bonn G 


FOTO LABOR-Programm für Joyce 
Für Belichtungszeitberechnung, 
Labordatenspeichern u Prozeß¬ 
timer Into gegen Rückporto bei 
J Trunk, Oberfeldstr 18, 

7512 Rheinstetten 1 


Lohn- und Einkommenssteuer 1987 
Druckerausgabe +■ Datensicherung 
Ausführliche Anleitung • Info 1,50 
3" -Disk t CPC DM 79,- + VP. 

Versand gegen Vorkasse oder NN. 

88er-Aktualisierung DM 20,— 

S Teurich, Mesternstraße 6, 

G 4952 Porta Westfalica G 


160 PC 8’87 































































Kleinanzeigen - 1 


S: _, "3ider PC + Kompatible 
~ - I ;■ ab DM 3,80. Info gral. 

\srosch Remscheiderstr 18 
5ö5GSolingen 1 - Tel. 0 21 2 /4 31 40 


: .• JOYCE: Schreiblehrg - 89- DM 
en Sie Maschineschreiben 
’: 3 Frage + 4 Antw/ ausw./ Auswertg. 

: szen selbst eingebbar 59,- DM 

• 13 TAL-Berechg. bei verschied, 
j :a r ra1en/Laufz./Zins 39,- DM 

: "s + NN/Panier, Softw Dorlstr, 13 
.'331 Struxdorf Tel. 0 46 23 / 10 44 G 


RETAX’86: LST u.-EINKSTEUER (NUR 
-OHNEINK.) BER, AUSDR TAB.-F JOYCE, 

-R 49,- DM. REIMER ERDMANN, 
-ElGOLAND. SIR 17, 2244 WESSELBUREN, 
04833/2747 (NACH 18.00 UHR) 


■ Astrologie mit Computer ■ 

■ International geschätzte Astro- ■ 

■ logenprogramme, professionelle ■ 

■ Deulungsprogramme, Lernprogramme ■ 

■ für Anfänger Handsc'nriftanalyse, ■ 

■ Bio-Rhythmus. Astro-I-Ging. ■ 

■ Info gegen DM 2,- in Marken. ■ 

■ Astron, K.W. Bonerl, ■ 

■ Peter-Marq.-Str.4a, 2000 Hamburg 60 ■ 

G 


PUBLIC DOMAIN für IBM / Komp 
5 DM/Disk, Katalog (4D)-10 DM 
Johrend, Neusalzer Str 9.85 Nbg 


T- + + + + + CPC-Software 4 + + + + + 
fifth Quadrant 20,-/27,50 

ACE 23.50/33,- 

TT-Racer 24,50/35. - 

Hit Pack 25,— 

.iste von B.Stülb, 5429 Buch, 

Bundesstr.7, Tel: 0 67 72 / 78 89 G 


“* JOYCE-Vokabeltrainer *** 

nach Leitner, max. 11 * 2450 Vok., 
en + Ir, 37 DM, Info 2 DM, Kenzelmann 
3 , Sonnenbühl 26. 7964 Kißlegg 


^C Super Software nur 40 DM je 
D rogr Bücher-, Video-, Datei-o. 
Lagerverwallung, Zensurdatei, 
Karteikasten, Pferderennen, 
.ottohelfer, Vokabeltrainer, 

Soll 2 Intodisk 20 DM, H. Groß, 
Ginsterberg 13, 6630 Saarlois 4 
:i] Suche Tauschpartner II! 


Kassenbuch auf Schneider JOYCE 
für Vereine oder Haushalt Nur 
99 DM, Demo 20 DM. Bahmüller, 
Petristr.15, 7057 Winnenden 


•/erkaufe folgende Oriainal-Software für 
JOYCE: 

Prompt 30, — 

Prompt-Druck 20, — 

Dalei-Star 60,— 

Wordstar 3.0 120,— 

Lutz Bechf, Im Prüfling 24, 6000 Frankfurt 
60 (ab 15.8.87) 


JOYCE-MAILING-SYSTEM UND 
LOCOMAIL 1 41 TEL 089 / 39 32 23 


DEUTSCHES PASCAL / BCI 
Pascal Compiler in deutsch 
versieht deutsch und englisch 
ab DOS 2. x incl. Handb. 250 - DM 
Vorauskasse oder Scheck! 

Fa. Hannawald EDV & SERVICE 
Postfach 1205,7928 Giengen 1 G 


Zu Verk. für CPC Turbo Grundpol 
Business DM 80,-/120.- Startexter 
datei a. DM 55,- Basic Comp. DM 50, — 
Devpac DM 50,- Termstar DM 50,- + 
viele Spiele C/D 4- Anwenüungs- 
prog. Tel 0 61 03 / 2 59 31 


Orig. Software f. JOYCE: DR Graph 
110,- Turbo Pascal 155,- Turbo- 
Lader Grundpaket 80, Turbo-Lader 
Science 90,- (alle Turbos 
zus. 288,-) Programmieren m. cpm 
(Sybex NP 52,-) 28,-(04 31) 3 49 12 


Frei-Programme 
für IBM PC + kompatible Liste 
gegen Rückporto von CFS 3450 
Holzminden Postlagernd 


SCHREIBEN LERNPROGRAMME FÜR CP 
C'S (AUCH ANDERE MÖGLICH) TEL: 

0 20 53 / 33 92 ODER 0 20 53 / 52 90 


PUBLIC DOMAIN SOFTWARE f.d CPCs 
& Joyce. 400 Freidisketten (l)-eine irre 
Sache. Info 2,- DM/Cal Disc 12,- DM 
PDI. Pf 1118, 6464 Altenhaßlau G 


Programmiere'- schre'bt individuelle 
Software für Schneider PC Spezialgebiet: 
Datenbanken und Kfm. Programme. Erster 
Kontakt unter 0 68 51 / 57 27 oder 
KR, Pf 1673. 6690 St. Wendel. G 


Starke Software für CPC-User 
auf 3“ Disc Info: Norbert 
Rausch, Niehlerstr 44,5 Köln 60 


Neu! Datenbank dBase II le:cht 
handhabe/' mit varDal II - an 
Vlenue mit 20 Befehlsdateien 
tür alle Anwendungen: Aflress, 
Verein, Lager, Serienoriet lür 
Schneidei PC, Joyce. CPC und 
Vortex varDal II mit dl. 
Handbuch/Schuber nur 199,- DM 
einschl MWST Direkt gegen 
Scheck oder NN(+10,- DM) von 
SOFTDESIGN Horstmar Konradl 
Btechslr 25.4040 Neuss 


Tel.: 0 21 01/27 61 51 17-20 Uhr 

G 


nnnmni nrn t innnn 



Für Joyce: □ STEUERMAT □ 


□ 

Lohn- und Einkommensteuer 85: 

□ 

□ 

Ausdruck auf Formular, Analyse, 

□ 

□ 

Tabelle, Disk 70,- OM; Aktu 20,- DM 

C 

□ 

•BIORHYTHMUS *: Disk 48 -DM 

□ 

Info gg kank Umschlag: F Farin, 

Elisabelhslr 65, 4460 Nordhorn 



□!□□□□□□□□□□□□□□□□□ 

G 


“'JOYCEJJOYCE 4 : LITBOX 2 *** 
das (slark verbesserte), un/ver 
seile KARTEIPROGRAMM (LITERATUR 
u.a) 

variabel komfortabel praktisch 
(s CPC 5/86) Info gegen Rückum 
schlag: Klaus Wiltsch, Süüslr 9 
3501 Schauenburg 


AKTIENANALYSE/DEPOTVERWALTUNG 
Balken-.Liniengrafik.61 Durch 
Schnitts u.v m.; CPC 464/664/ 

6128 und PC 1512, Disk 84,50 

Gratisinfo: Dieter Borchers 

Schönstedt Sir. 6,1000 Berlin 44 

Tel : 030/6 87 08 50 G 


JOYCE: DR-DRAW, CBASIC,$MALL-C: 
zus. 300,- VB (a, e.) 0 22 04 /6 14 53 


Word Star-Zusatzprogramme 
für Schneider-Joyce u. alle CPC 
Wiss Fußnotenverwaltung; 
Inhaltsverzeichnis; Literatur¬ 
verwaltung. Info: Boving, 
Postfach 100361; 5000 Köln 1 


PROFI-PAINTER (D/49 DM)4- ++++++ 
SPACE-SHUTTLE (D/35 DM)+ + 4- + 4 + 

3 D-BOXING (D/29 DM) alles orig. 

4 DB Bücher Tel. 0 66 42 / 55 48 


"'JOYCE PCW 8256/8512 ** 
verkaufe wegen Systemwechsel: 
DESKTOP PUBLISHER NP180/VK130 

JOYCE MAILING SYS NP189/VK120 

TASWORD 8000 (neu) NP148/VK110 

FIBUKING (neu) NP136/VK 85 

CPM+/Anwenderhdbch NP46M35 

JOYCE PRAXISBUCH NP38/VK28 

BIORHYTHMUS (neu) NP75/VK50 

JOYCE TRAGEKOFFER NP200/VK135 

Tel: 0 60 81 / 63 20 K. Junker 


JOYCE Originalsoftware 
'DR DRAW, DR GRAPH incl. Handbuch 
je DM 125,-; Starglider DM 35,-; 
Fairlight, 3-D-Chess, Colossus-4- 
Chess je DM 25,- incl. Original¬ 
anleitungen Tel: 0 46 34 / 91 47 
" MULTIPLAN 


Leluer/Schulprogrammß, Klassenverwaltung, 
Noten+Punkteberechnung, Schnitte, Listen 
Info 1,30 Freiumschlag. Claus Bernhold 
Rommelstraße 31, 8783 Hammelburg 


Wirtschaftliche Programme 
für die Arzlpraxis auf 
dem Schneider CPC, Joyce,PC 
Fa .EFFEKTA.Am Wiggerl 9c 
45 Osnabrück,0541-442 416 * G 


Biete Hardware 


CPC 464: VORTEX-F1S; VORTEX SP-5 
12; ORIGINAL WORDSTAR;LIT: 6x 
DATA BECKER; CPC INT. 5/85-10/87; 

CPC MAGAZIN 1-12/86 4- ANDERE: 

NP> 2200: VB 1300: TEL.: 07 31/6 47 60 
AB 20 UHR 


JOYCE PLUS + DBASE 4- Dr Graph + 
Databox 5/86-5/87 4- Literatur: 

1900,- 089-65 38 29 


TV-Modulator tür alle CPC • • • 

• ••EWLPostf, 6752,33 Br.schweig G 


CPC 6128 COLOR * TOPZUSTAND' 

4- 3,5" LAUFWERK, 4- DATARECORD. 

4 - ca.70 DISK, mit Software 
4 - Zubehör 4- Literat, nur DM 1449, — 

4 - DMP 2000 mit 8K nur DM 1949,- 
Fritza 0 76 66/15 09 4- 07 61/5 18 27 37 


SehneiderPC MM/SD mit 
20 MB Festplatte m. Garant. 


nur 

2595, - 

Speicheren« JOYCE 

73- 

2. Laufwerk PC/360 KB 

399.- 

Star Writer PC 

398,- 

Schneider Wordstar 

199,- 

COMPUTER • TEAM 


2190 Cuxhaven 1 


Tel. 0 47 21-2 22 99 



CPC6128, RS232, Grünm.,Cassrec.4 
Spiele; PASCAL, Dateiverw, 4- CPM-P 
Buch und Databecker Bücher +16 Disks 
für 1200,- DM, 0 64 64/71 56 


Verkaufe CPC 464 4- DDI-1 4- Drucker 
DMP 2000 + Data Becker 
Bücher Preis nach VB 
Tel.: 0 71 44 /51 92 


DRUCKER CPA 80, Preis VH 
11-17 Uhr, Tel. 042/76 77 


JOYCE PCN 8512 9 Mon alt + 
MULTIPLAN, DBASE II. DR GRAPH 
TURBO PASCAL, CYRUS II 3D SCHACH 
Fachbücher 4- Leerdisketten 
(Neupreis ca. 3500,-) tür 2500.— 

Tel.: 0 81 41/2 18 42 


CPC 464 Farbe 4- Drucker DMP 2000 
4- viel Softw 4- Bücher 4- CPC Hefte 
Preis DM 1400,-. Tel 0 62 93/10 57 


CPC 6128 GRÜN + FILTER + 2, 

FLOPPY4- DRUCKER/TRAKTOR/MON - 
STANDER 4 -ABDECKUNGEN 4 FIBU-STAR, 
DBASE, DR GRAPH, WORDSTAR, 
STARWRITER 3 0; DRUCKERTREIBER + 
CA. 20 DISKETTEN 4 - LITERATUR VK 
DM 2300,-, TEL,:02 01/48 41 22 0 
VERSAND KOSTENLOS BEI VORKASSE 


256 k RAM DISK lür 150,- DM, Original- 
Software. 083 42/4 09 26 ab 18 Uhr 


CPC 464 mono 4 - DDI-1 4 - MP 2 4 - V 24 
4 Software + Bücher 4 - 10 Disketten 
VB 1099,- DM. Auch einzeln 
Telefon: 0 87 62/26 36 


Verkaufe: CPC 464 (6M) + 64 kERW. + DDI 
+KAW0N 2 LW.-f NLG 401 + TRAKTOR + 
JOYST 4 STARWRITER 4 BUGET MANAGER 
4 BASIC KURS 4 SCHACH 4 CYKLUS 4 
MUSIKSYSTEM 4 VIELE SPIELE zusammen 30 
DISC FÜR NUR 2300,-DM TEL 07066/61 11. 
GEORG ULBRICH 


CPC 464 GRÜN + FARBE 4- DD1 Fl x + 
SP256 4 - DBASE + WORDSTAR + 
MULTIPLAN 4 - FACHBÜCHER + 
DISKETTEN 4 - ZEITUNGEN 4- 10 x 
DATABOX f. PC INT. 

GESAMTPREIS 1800,- / AUCH EINZELN 
TEL 0 91 51/7 02 22 AB 18.00 UHR 


DMP-2000 Matrixdrucker 4 - Drucker 
Kabel VB 440,- Tel: 02 09/6 34 19 


464 FARBE 2 LAUFWERKE 3" und 
3,5" VORTEX MIX 4 -SOFTWARE 
VB DM 1987-, Tel.: 07 31/2 51 51 


WEGEN SYSTEMWECHSEL CPC464+ 128 
KB + VORTEX FIS (700 KB) + ORIG 
WORDSTAR 4 DBASE 4 MULTIPLAN + 
HEADLINE. DIVERSE BÜCHER FÜR 1200 DM 
ZU VERKAUFEN (NEUPREIS 3000,-) AB 
18-20 UHR, TEL. 07 11/35 43 14 


JOYCE PCW 8256 MIT AUSREICHEND 
LITERATUR GEGEN GEBOT ZU VERKAUFEN 
TEL.: 0 20 51 15 34 62 


Österreich: Floppystation (3", neu) 
zu verkaufen. OS 2900,-, 

Tel.: 0 26 82/6 12 24, R. Münzer 
Aubachweg 7. A-7000 Eisenstadt 


8’87 PC 161 







































































I Kleinanzeigen 


VORTEX WD 2000 zu verkaufen: 
Festplatte f. Joyce o. CPC, ca. 

50 Betriebsstd. DM 1850,- 
Tel.: 0 57 42/25 32(8-12,14-18 Uhr) 


Joyce, 5 Mon. alt, Disk + Software, 
Buch, etc, Preis VB, 02 28/ 69 24 47 


JOYCE, 2 LW, 512 KB RAM, DRUCKER-VERL.- 
KABEL. ZUS. PAPIERZUF., DISK-BOX, 10 
EINF.-DISK. + 5 DD-DISK., ORIG.-SOFTW. 

MULTI PL ,STAR-BASE, DR-DRAW, STAR¬ 
MAIL, RH DAT, 7 ST.PCW-DATABOX 
NP:5000,-, VKP: 3000, TELEF: 0 78 41/2 64 14 


SP 512 + dbase II + Buch (M & T) für 
CPC 464 340- DM. 07 11/56 98 78 


CPC 6128 + Grünm., 6 Disketten 
VB 800,-. Tel.: 089/1 49 30 02 ab 
20 Uhr oder 089/47 20 83 tags. 


** DMP 2000 ** Tel.: 07 41/3 16 91 


CPC464 CPC664 CPC6128 USER! 

Lichtgriffel mit Programmen 

und dt. Anlertungnur DM 49,- 

Versand gegen Scheck/Nachnahme 

Info gratis! Fa. Schißlbauer 

Postfach 1171S, 8458 Sulzbach 

Tel.: 0 96 61/65 92 bis 21 Uhr G 


ZWEITLAUFWERK CUMANA 51/4 FÜR 
CPC 464 199,- DM. TEL.:0 71 53/5 35 66 


JOYCE PLUS, 9 Mon. alt, zus. nützliche 
Software,10 CF 2DD Disc, für 1950,- DM 
von privat. Tel.: 0 22 03/6 47 06 


JOYCE 8256 wg. Syst. Wechsel 
inkl. div. Software + Leerdisk. 
Preis: VB DM 1200,-, sFR 1100,- 
Tel: CH 00 41 64-37 34 71 abends 


VORTEX-5 1/4"- DOPPELLAUFWERK für 
CPC 464 m. Adapter Kab. f. 800,- DM 
geg. NN. zu verk. 0 77 31/ 6 13 09 


CPC 6128 grün + 5 Discs + Lit. 

VB 790,- DM, Tel.: (0 22 73) 5 53 15 


Joyce Plus + 30 Disks + Zub, 
VB 2100,- , Tel. 02 08/68 72 87 


*'MODEMS**DATA-COMMUN|KATION** 

Modem, Auto-Answer, Auto-Dial, 
300/1200 baud, Bell/CCITT-Stand 
Halb/Voll Duplex, Hayes Compat., 
Halfcard, mit Software-Paket f. 
IBM-PC/XT/AT und Compatible, 
ab 398,- DM, ohne FTZ, Info bei: 
Burchert, Am Fahrweg 6,5300 Bonn 

G 


CPC 6128 grün, wie neu, 650,- DM 
203" Disketten, 150,- DM 
Tel.: 0 61 64-34 97 ab 19 Uhr 


JOYCE 8256 + Speicheren«., 
Software (f. ca. 800,- DM), Literatur, 
+ 15 Disk. 

VB 1850 - DM. Tel.: 0 23 05/4 12 12 


Neue und gebrauchte 464/664/6128/Joyce/PC ” 
Nur Laufwerke: 3“+3,5“=195 DM; 51/4“=285 
DM * Vortex Geräte' Grün/Fartmonitore * Ankauf 
bei Systemwechsel * Reparaturservice * Manfred 
Kobusch Bergenkamp 8,475 Unna, 02303/13345 


JOYCE PLUS 8512 

wegen Systemwechsel + serielle SS 

+ PASCAL + MIC-C + 30 Disketten 

NP 3300,- VB 2200,- 

TeL: 0 80 94/14 87 G 


JOYCE PLUS 8512 
wegen Systemwechsel + serielle SS 
+ DBASE II + DR DRAW + COBOL + WORD¬ 
STAR - FIBUSTAR + COMAC-KASSE + 

+ COMPACK (Original SW m. Doku) 

NP 4300,-, VB 2850,-, ggf. einzeln 
Tel.: 089/6 51 90 15 G 


CPC 6128, Vortex Fl-x-Zweitlauf 
Starwriter + Datamat + Disketten¬ 
neuwertig - Nur DM 1300! 

Tel.: (0 70 34) 23 82 


LEERDISKETTEN 4,-DM das Stück! 
Tel: 0 80 51/6 21 53 ab 18 h 


JOYCE m Speicheren«. 512 k + RS 
232/Centronics + div. Software + 
Discs, VB 1100-(04 31) 3 49 12 


CPC 464 Grün + DD1 (neu!) + MP1 + 
Zeitschriften + Software + Joyst. 

Kompl DM 750,- Tel.: (0 21 29) 5 07 36 


Verk CPC-6128 mit sehr viel 
Zubehör Alles fast neuwertig 
Tel (Nach 19.00 Uhr): 0 88 41/1212 
Preis: 2000 DM, Neupreis: 3100 DM 


Vortex Doppellloppy 51/4“ für 
CPC 464 DM 950,- + NLQ 401 mit Traktor 
DM 400,- + CPC 464 mit 128 KB DM 400,- 
dBase II, Wordstar, Multiplan 51/4“ 
je DM 99 -, 0 40/5911 25 


CPC 6128 Farbmon. + Star NL-10 
+ 34 Disk. 3" (voller Spiele u. 
Anwendungen) + 4 Data-Becker 
Bücher, NP 4000,- DM, VB 2100,- DM 
Tel.: 0 83 95/14 97 ab 14,00 Uhr 


JOYCE 950 - DM, TEL.: 0 65 25/71 94 


6128 Färb + Grün + sep. Netzteil + 51/4“ 
Plotter + Software + Bücher + Piokart. 
alle Preise VB, TEL: 0 21 83/14 15 


Speichererweiterung für 

Schneider PC 69,-DM 

Druckerkabel 39,- DM 

zuzügl. 5,- DM Verpackung u 

Nachnahme 

Ing -Büro M. Schiller 

Hauptstr. 2,8044 Unterschleißheim 

Tel.: 089/3 10 64 53 G 


AKTIENANALYSE/Depotverwallung 
Balken-, Liniengrafik, 61 Durch¬ 
schnitte u.v.m.; CPC 464/664/ 

6128 und PC 1512. Disk. 84,50 
Gratisinfo, Dieter Borchers 
Schönstedt Str, 6,1000 Berlin 44 
Tel: 030/6 87 08 50 G 


Neu! DatenbankdBase II leicht 
handhaben mit varDat II - ein 
Menue mit 20 Befehlsdateien 
für alle Anwendungen: Adress 
Verein, Lager Serienbriet tür 
Schneider PC, Joyce, CPC und 
Vortex varDat II mit dt. 
Handbuch/Schuber nur 199,- DM 
einschi. MWST. Direkt gegen 
Scheck oder NN (+10 DM) von 
SOFTDESIGN Horstmar Konradt 
Bleichstr.25,4040 Neuss 
Tel.:0 21 01/27 61 51 17-20 Uhr G 


Suche Software 


Suche Ans-Cobo! für Schneider PC 1512. 

Tel: 094 91/21 82 ab 17.00 


Für CPC 6128 

Turbo Pascal + Grafik 

Arps, Lerchenweg 9,228 Westerland 


Suche BASIC Kpierprogramm ca. 

50,- 3-4KB Laufwerk AzuB u in 
Vortex Ramdisk sowie umgekehrt 
mit VDOS 2.1 Tel. 02751/6183 


Suche Anspruchsvolles 
- Schacharchiv - 

Für CPC 6128 * Belohnung* 

Tel. 07966/2430 


Suche Hardware 


Suche Box mit Erweiterungssteck¬ 
plätze für Schneider PC 1512 
Tel. 0511/3 56 32 00 


Festplatte incl. Disklfw. zu CPC 464 ges. 
Ang an K. Lausten, PF 1625,5960 Olpe 


Kaufe Farbmonitor bis DM 300,— 

für 464 - nur Berlin - Chiffre 30787 


Suche 3“Zweitfloppy FD-1 evtl 

defect Tel.: abends 02058/72081 


Tausch 


CPC 6128 OStR (E/F) sucht Kollegen 
für Erfahrungsaustausch 
J Kühn, Buxacherstr. 103 1/2 
8940 Memmingen 


Tausche Turbo Pascal und Tutor 
gegen Desktop Publishing Programm 
für Joyce Tel.: 0 62 52/62 79 


Verschiedenes 


COMPUTERBUCHVERSAND KRISSEL 

WIR VERSENDEN FACHBÜCHER ZUM 
THEMA COMPUTER. KOSTENLOSE INFO 
ANFOROERN. COMPUTERBUCH-VERSAND 
JÜRGEN KRISSEL, IM VIERTEL 5 
D - 5409 DIENETHAL, TEL.O 26 04/18 18G 


■ Schnell zugreifen ■ 

■ 3“ Disc Panasonic nur DM 6,66 ■ 

■ Re Electronic, Tel. 0 63 03/47 65 ■ G 


! 11 Besuchen Sie uns!! I 

ELEKTRONIK & COMPUTERTAGE SAAR 
Verkaufs-Informationsmesse 4.-6.9. 

Kongreßhalle Saarbrücken 
Aussteller sollten unser Angebot 
unbedingt noch anfordern! 

INFO: PF 101260,6620 Völklingen G 


■ DISKETTEN m. Gar. ■ 

■ 5 1/4“, 48 tpi, DM0,81 2D ■ 

■ 31/2“,135 tpi, DM2,60 1DD ■ 

■ 31/2"135 tpi. DM2,75 2DD ■ 

■ 3" Markendisk. DM6,80 2CF ■ 

■ Allgem. Austro-Agent.Ringstr.10 ■ 

■ D-8057 Eching, Tel: 0 81 33/61 16 ■ G 


Suche Schaltpläne zu PC 1512 
Kostenerstattung, Tel: 08 71/77 02 75 


Wer kopiert mir meine 3,5“ Zolldisketten 
vom PC 6128, auf PC 1512 51/4 
Zolldisketten? 

Telephon Nr. 02 61/6 56 00 


Suche CPC-USER in FFM + Umgebung 
Ruft mich an: (069) 76 26 06!!! 


****TIEFSTPREISE **** 
10 NO NAME 3" Disketten DM 59,00 
10 MAXELL 3“ Disketten DM 69,00 
Mengenrabatt ab 100 Stck. INFO von 


TREVERIS-COMPUTER 
5500 Trier, PF 2106, TEL.: 06 51-1 63 66 


G 


»Suche Kontakt zu PC 1512 USERN,in 
Raum Heidenheim-Aalen«. Bin Anfänger. 
Tel. 0 73 27/56 92 


SUCHE F. SCHNEIDER-PC INFO ÜBER 
SCANNER, (F. TEXT U. GRAFIK) 

H. WAGNER, NIDDASTR.4, 6236 
ESCHBORN 


JOYCE-NEWS 


Das Magazin aller Joycer (innen) 
Aktuelles Heft für OM 2,- bei: 
Wolfram Schuchardt 
Offermannsheide 24,5067 Kürten 4 


* Gratis 

* Fordern Sie noch heute Ihr Info 

* über deutsche und englische Free- * 

* und Shareware von Esser Computer, * 
“ Postfach 522c, 5100 Aachen, an * G 


Suche PC-INTERN, v. 1/86 -12/86 
u. Kontakt zu CPC-Club 
AUGSBURG u. Umgebung 
Tel: 0 82 30/72 35 ab 17 Uhr 


CPC International 6/85-3/87 

CPC DATA-BECKER BÜCHER + weitere 

Literatur. Laugisch Tel.: 0 63 26/2 29 


Verkaufe die Hefte CPC Int. ab 
Heft 3/85. Angebote an Volker 
Theißen, Marienburgerstr, 17 
7406 Mössingen 0 74 73/2 27 74 


SUCHE CPC INT. JAHRG. ‘85 KOMPL. 
MARTIN LANGENBERG 
OIEPENBRUCHER STR. 34 
5650 SOLINGEN 11 


GARANTIERT die größten Adven 
tures aller Zeiten in dieser 
Art: DISCOMAN! Liste anfordem 
bei Wilfried Hary, Gärtnerstr. 14, 
6602 Dudweiler. Postkarte! 
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Händlerverzeichnis—) 


Berlin 



SB 

'ffnunqszetlen Mo-Fr 10-18 Uhr Sa 10-13 Uhr 

WOLFGANG MÜLLER und 
JÜRGEN KRAMKE GbR 

jmükra 

DATEN TECHNIK 

l 42 Toi 030-752 9150/60 


Elekir. + elektronische Gerate, 
Bauelemente + Werkzeuge 

ELECTRONIC VON A-Z 

Stresemannstr. 95 • Berlin 61 
Teleton (030) 2611164 



Thörner s 

Büro c“S r Laden 

Das Fachgeschäft speziell für „ausgefallenes" Compuler-Zubehör. 

Mil Beralungl Riesenauswahl ... ----— 

C—Schneider Ü V/OrteX 

mßconPurER Division e • . : ,T;. 

Unverbindlich 'mal relnschauenl Sie werden überrascht seinI 
B 62, Innsbrucker StraOe 56 if Oi JA 04 Eine Filiale der Firma 
am Bayerlechen Pfalz / 0*1 *1U Bürobedarf Thörner 


Hamburg 



Basel 


A\\\\\\\\\\\\\\\> 

COMPUTER-STUDIO 

BASEL 

Cm Schneider 

cohputer otviston 


PC 1512 


Reittrxtraäe 2. Nahe Nauweilarplau. 4054 Basal Videota* 
Talafon 10611 39 14 14 

v\\\\\\\\\\\\\\\\ 


Löhne/Ostwestfalen 


f Schneider Vertragshändter S Servicecenter 
Hard- & Software von A-Z für Ostwestfalen 

FMZ •BEIBilil 

•Computer’Hifi'Video'TV* 
alles für Schneider vom 464 - Joyce 

m anptkilrttf • Hader»r »MlltUhlI 'TU.II 7 IZ/IMB 


G Schneider 

coriPUTERomm 

Vertragshändler 

Büro Knüppel & Co. 

Computer und Büromaschinen 
Riehenring 81 (MUBA) 

4058 Basel 
Telefon (061)261262 


Bonn 


radio-fernsehen/^ _ 

HIFI VIDEO 


SERVlCf SERVICE SfUVK f S[ l'V 


Plittersdorfer Straße 206T elefon (02 28) 36 40 29 


Castrop-Rauxel 


Nürnberg 


ffnCompulerslore 


Hochstraße 11 
8500 Nürnberg 00 
Tel 0911/20 90 28 


_Schneider_ 

m+conPurER Division 

Wir führen zu den original SCHNEIOER-Produkten Software, Bücher und 
Zubehör verschiedener Firmen wie DATA BECKER, VORTEX, CUMANA, 
ISS, RUSHWARE, MARKT & TECHNIK, SYBEX, VOGEL-Veriafl usw.l 


ETC GUTE IDEE NACH DER ANDEREN 

Schuster Electronic 


IlCRTRCMSCht 




Vertrags handlet 

Z Commodore 

* Ve«tragswrfk*t*l1 



Oben MunstefSti 33 4620 Castrop- Rauxel 


(02305) 3770J 



Düsseldorf 


Vellmar 


i mm 


Schneider 

mm qi irrn nn iicihn 

LUI II U I L)\ UlPlDlUI I 


Beratung 
Vertrieb 
Service 

BÜRO ORGANISATION DATENTECHNIK Vertnebsgesellschall mbH 
4000 DusscWotl l rnedensuafle 13 Tel 02" 30B071 


LCL. 




Schneider 

COMPUTER DlVISIOn 



ki roeleclronlcr_ 

Holländisch« Sfr. 121,3502 Votlmar, Tel.: 0561/8201 80 


Zürich 



Computers 

zentral in Seebach, Schaffhauser Str. 473,8052 Zürich 
Telefon: 01-302 26 00 

_ Versa ndkatalog anfordern 



Eintragungen 
Im Händlerverzeichnis, 
nach Städten geordnet, 
kosten je mm Höhe 6, - DM bei 
einer Spaltenbreite von 58 mm. 
Einträge möglich 
mindestens 
6 x innerhalb eines 
Insertionsjahres. 

Nähere Informationen: 

Wolfgang Schnell 
Telefon (0 56 51) 8702 


Anzeigenschluß für die 
Ausgabe 10/87 
von 

PC Schneider International 
Ist der 

26.8.87 

Erscheinungstermin 
Ist der 

30.9.87 
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Inserenten 8/87 


ABD Computer... 

.97 

Arnor. 

.99 

BBG. 

.131 

Büro für Soft Wareentwicklung.. 131 

Byte me. 

.103 

CSE Schauties.... 

.7 

CSV Riegert. 

.143 

DMV. 

.117,41,43,49,53,61, 

. 109,125,129,155,165 

Dohbertin. 

.23 

Famos. 

.45 

G-Computerstore.... 

.103 

GA1. 

.119 

G + K Elektronic... 

.119 

Göddeker. 

.9 

Habersetzer. 

.45 

Henschke. 

.27 

Infosystems. 

.56 

Keil. 

.13 

Kempenich. 

.143 

Köhler + Hörter... 

.15 

Kotulla. 

.23 

Mükra. 

.137 

Naujoks. 

.147 

Prosoft. 

.31 

PR8 Softwaredienst. 

.21 

Rushware. 

.167 

SFK. 

.9 

SKG Bank. 

.27 

SPI. 

.168 

Syndrom. 

.25 

Schneider Data. 

.95 

Schuster. 

.83,84,85,86 

Star Division. 

.91,2 

TeWi-Verlag. 

.79 

Van der Zalm. 

.153 

Vortex. 

.57,89,101 

Weeske. 

.140,141 

Werder. 

.147 

ZS-Soft. 

.55 


Eine Bitte an unsere 

Abonnenten 

Vermerken Sie 
bei Schriftverkehr 
und Zahlungen 
neben der 

vollständigen Anschrift 
stets Ihre Abo- 
Nummer. 

Sie vermeiden 
damit unnötige 
Verzögerungen 
bei der 
Bearbeitung 
Ihres 

Abonnements. 
Vielen Dank. 

Ihre 

DM V-Versandabteilung 


Anzeigenschluß 
für die 

Ausgabe 10/87 
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PC Schneider 
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26.8.87 
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ist der 

30.9.87 
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—Warum DOS?- 

Preiswerte PC's erobern einen neuen Anwenderkreis , deshalb die 
DOS International. 



DAS MAGAZIN FÜR AKTIVE PC-ANWENDER 


Das neueste 
vom 

Atari PC 

Test: Turbo c 

Der PC als 
Grafikgigant 

- Intel 82786 

- Grafik mit 
Turbo Pascal 

Text¬ 

verarbeitung 

besser ausgenutzt: 

- Wordstar 

- Word 

- Star-Writer PC 


Tips und Tricks 

ZU MSDOS, DOS PIUS 
und GEM 


neue 


Darum DOS!- 

DOS International bringt neben Berichten über neueste Soft- und Hardware jede Menge 
lips und Tricks, die Ihnen die Arbeit am PC zum Vergnügen werden lassen. 

Im ersten Heft finden Sie u.a. einen Test von Turbo C und von Ist Word Plus , die Turbo 
Prolog Toolbox und viele Tips & Tricks. 


Jetzt im Zeitschriftenhandel 

oder vom DMV Verlag, Fuldaer Str. 6, 3440 Eschwege, Tel.: (056 51) 8702 , Telex: 993210 dmv d 










r~ Vorschau 



»PC Schneider International« 
erhalten Sie ab 26. August 
bei Ihrem Zeitschriftenhändler 



PROWORT deutsch — aktueller Test in der nächsten 
Ausgabe. 



Detaillierte Informationen zu den Grafikkarten EGA , 
CGA und Hercules finden Sie im nächsten Heft. 


RPED 



RPED ist mehr als nur ein Editor; was er alles kann, 
erfahren Sie in unserem Beitrag... 


Berichte: 


Amstrad Computer Show 

— London war erneut Schauplatz einer 
reinen Amstrad-Messe. Wir haben 
uns für Sie umgesehen und berichten 
aktuell über die neuen Produkte. 

Computer-Viren 

- ein Thema, das alle Computer-An¬ 
wender und Interessierte anspricht. 
Hintergründe, Verfahrensweisen, 
Auswirkungen und mögliche Schutz¬ 
maßnahmen werden aufgezeigt. 

CPC für Einsteiger: 

In dieser Rubrik werden die noch nicht 
fortgeschrittenen CPC-Anwender das 
Material finden, um ihren CPC besser 
kennenzulemen und somit auch optima¬ 
ler ausnutzen zu können. 

Viele Artikel und Programme setzen heu¬ 
te schon fast selbstverständlich die grund¬ 
legenden Kenntnisse der CPC-Eigen- 
schaften und -Eigenheiten voraus und 
sind für die Einsteiger nur schwer oder 
gar nicht verständlich. Hier soll unsere 
Rubrik Tips und Hilfen bieten, um Stück 
für Stück dem Anwender die Kenntnis¬ 
se zu vermitteln, die für die alteingeses¬ 
senen CPCler bereits zur Routine gewor¬ 
den sind. 


Programme: 

MINI-CALC 

- leistungsfähige Tabellenkalkulation 
für alle Schneider CPC. Vielfältige 
Optionen bieten dem Anwender eine 
schnelle und übersichtliche Hilfe beim 
Kalkulieren. 

Superpac 

— eine Adaption des legendären 
Spielhallen-Hits.Ein Oldie der Com¬ 
puterspiel-Ära, für die Leser von PC 
International neu aufbereitet und mit 
verblüffenden Effekten versehen. 


Tips & Tricks: 

Convert 

— dieses komplett in Assembler ge¬ 
schriebene Utility ermöglicht es, 
ASCII-Dateien einen Header zu geben 
und diesen in Binärprogrammen wie¬ 
der zu entfernen. So lassen sich 
CP/M-Dateien auch unter BASIC be¬ 
arbeiten. Convert läuft unter CP/M 
2.2,3.0 und auch unter dem 62K 
RAM-Card CP/M von Vortex. 


NEU: 


Amor Deutschland legte das Textverar¬ 
beitungsprogramm PROWORT vor. Un¬ 
sere Redaktion hat dieses deutschsprachi¬ 
ge Programm für Sie getestet und kündigt 
einen interessanten Erfahrungsbericht an. 


PC 1512: 


Programme im Test 

- FIBU-Star 

- Copy n 

Thema Grafik 

- das Top-Modell des neuen Schneider 
PC bietet bekanntlich drei Grafikkar¬ 
ten. Wir informieren Sie ausführlich 
über die Eigenschaften und Leistungs¬ 
daten von EGA, CGA- und Hercules- 
Grafikkarten. 


Joyce: 

RPED — das unbekannte Wesen? 

— Der auf den Systemdisketten mitgelie¬ 
ferte Editor RPED ist ein ausgezeich¬ 
netes Werkzeug zur Erstellung und 
Bearbeitung von Texten und allerlei 
Dateien im ASCII-Format. 

Unser Beitrag zeigt mit anschaulichen 
Beispielen, daß RPED noch viel mehr 
kann... 


Aus der Trickkiste: 


— wie Sie den Zugriff auf Ihre Program¬ 
me für Andere verhindern, verrät Ih¬ 
nen der Beitrag »Passwordloader«. 

— Die große Angst der JETSAM- 
Anwender ist die nüchterne Meldung 
< Disc full >. Wir haben einen Zau¬ 
ber gegen Datenverlust: DISCFREE 
zeigt Ihnen auf Tastendruck den ver¬ 
bleibenden Speicherplatz auf der ak¬ 
tuellen Datendiskette an... 


Software Reviews: 


Head over Heals 

Entgegen allen Unkenrufen, daß Arcaden- 
abenteuer mit 3D-Touch tot seien, bewei¬ 
sen hier zwei Engländer das Gegenteil. 
Head over Heals ist seit langem das bun¬ 
teste und lustigste, das über unsere Mo- 
nitore flimmerte. 
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tag-team wrestling 

CBM64/CBM128 


CRYSTAL CASTLES 

CBM64/CBM1 28 /Schneider/ 


Spectrum 


COMMODORE 64/138 


SUPERHUEY II 

CBM64/CBM128 


deceptor 

CBM64/CBM128 


Vorsicht vor Grauimporton! 

Bitte prüfen Sie schon beim Kauf, ob die¬ 
ses Programm wirklich eine deutsche An¬ 
leitung enthält. Spätere Reklamationen 
können leider nicht berücksichtigt werden. 


U.S Gold Computerspiele GmbH, An der Gümpgesbrücke 24, 4044 Kaarst 2 


Vertrieb: Rushware Mitvertrieb: Distribution in Österreich: Karasoft 



HP 
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Die erste und einzige 
relationale GEM Datenbank, 
die einfach zu bedienen ist. 




Die erste und einzige 

unter der GEM Benutzerober¬ 
fläche. Das macht alles unvergleich¬ 
lich einfach: Daten verwalten, mit¬ 
einander verknüpfen, abrufen, listen 
berichten, transferieren usw. 

Mit integriertem Texteditor, selbst 
gestalteten Eingabeformularen und 
einem flexiblen Reporting-System. 
Ein für alle Dateien gleicher Daten¬ 
stamm - einmal eingegeben - 
eröffnet neue Möglichkeiten auf 
bequemste Art. 

So bestimmen Sie, was 
wesentlich ist und wie berichtet 
werden soll, indem Sie mit der 
Maus nur eine Verbindung von 
einem Abfrage-Merkmal zum 
anderen ziehen. 

Vorbei sind die Zeiten, wo nur 
DV-Profis mit echten, relationalen 
Datenbanken arbeiten konnten! 

GBase - Ihre Daten einfach 
im Griff. 


■ Zu gewinen 

sind 10 ACCESS CALC und 

10 SPI-T-Shirts! 

Diesen Kupon einfach ausfüllen und 
einsenden an: SPI, Rosenkavalierplatz 14, 
8000 München 81. 

Einsendeschluß ist der 30. September 1987. Die 
Verlosung erfolgt unter Ausschluß des Rechts¬ 
weges. Ihr Gewinn wird Ihnen zugesandt. 

Ihr Name:_____ 

bei Firma:_ 

Anschrift:_ 


Frage 1 

Benötigt GBase eine zusätzliche 
Textverarbeitung? 

□ nein Dja 

Frage 2 

Die Benutzeroberfläche 
von GBase heißt . . . 

Frage 3 

Wie gestalten Sie Masken bei GBasd? 

□ einfach mit der Maus 

□ Mit Hilfe eines eigenen Masken-Generators 

Tel,Nr.:_ 

Beruf/Funktion:_ 


Mehr Information? Schicken wir Ihnen zu. 

Sie wollen GBase kennenlernerf? Wir sagen 
Ihnen wo. 


51 GEM 


■ Gewinnen Sie eine Reise 
zur COMDEX/Las Vegas. 

Wir prämiieren die interessantesten 
GBase-Anwsndungsbeispiele! 


Die zwei kreativsten Anwendungen mit GBase 
werden von SPI prämiiert und gewinnen je eine 
Reise zur COMDEX nach Las Vegas. 
Schreiben Sie uns, verlangen Sie dazu Unter¬ 
lagen! 


VON DIGITAL RESEARCH 3 


GEM sl em eingelragenes Warenzeichen von DIGITAL RESEARCH 


SPI 


SOFTWARE PRODUCTS INTERNATIONAL 

Rosenkavalierplatz 14, D-8000 München 81, Telefon 089/921006-0, Teletex (17) 897174 















































